Ovo je osnovna verzija makroa koja se startuje iz Worda i otvara Excel radnu tabelu iz koje se potom bira opseg za kopiranje
Code:
Sub PasteLink()
'
' PasteLink Macro
' Makro otvara Excel tabelu i na izabrani opseg kopira na
' tekucu poziciju u aktivnom word dokumentu
'
' P.Jovanovic za elitisecurity.org
' 19/02/2007
'
Dim xlApp As Excel.Application
Dim rngTemp As Excel.Range
Dim wkb As Excel.Workbook
Dim FilePath As String
' Open Excel table
Set xlApp = New Excel.Application ' Pokrece Excel aplikaciju
FilePath = "C:\Temp\Test.xls"
Set wkb = xlApp.Workbooks.Open(FileName:=FilePath, ReadOnly:=True)
xlApp.Visible = True
' Opseg koji se kopira
Set rngTemp = xlApp.InputBox("Selektuj opseg za kopiranje", "Copy Link", Type:=8)
rngTemp.Copy
' Paste u Word dokument
Selection.PasteExcelTable True, False, False
' Zatvaranje Excela
xlApp.DisplayAlerts = False ' Da ne pita za cuvanje
xlApp.Quit
xlApp.DisplayAlerts = True
Set xlApp = Nothing
End Sub
U kodu je fiksirana tabela koja se poziva. Ukoliko je potrebno da biraš tabelu pozovi Open dijalog. Vidi npr.
http://www.praktikum.co.yu/office/excel/xl_030.htm.
Kompletna verzija ovog makro treba da radi sa izuzetcima - ne postoji fajl i sl.
Nije to loše Rembrante, samo što ne bi dodao još malo boje?