Pa nema tu neke mudrosti, dodaš referencu na excel objekat i onda dodaš u kod nešto ovako
Code:
Dim xlApp As Excel.Application
Dim xlWrk As Excel.Workbook
Dim xlSht As Excel.Worksheet
Set xlApp = New Excel.Application
Set xlWrk = xlApp.Workbooks.Add 'kreira novi workbook, ako hoces postojeci onda umesto Add
'ide Open(putanja do fajla)
Set XlSht = xlWrk.Worksheets("Sheet1")
'uradi nesto sa otvorenim worksheetom
'recimo ako hoces da procitas vrednost celije B2
MsgBox xlSht.Range("B2").Value
'ako hoces da upises vrednost u celiju
xlSht.Range("B2").Value = "neka vrednost"
'ako hoces da upisujes u vise celija
Dim i As Long
For i = 1 to 10
xlSht.Cells(i,1).Value = "Red " & i
Next i
'ili ako hoces da koristis range, sto radi kud i kamo brze
For i = 1 to 10
xlSht.Range("A" & i).Value = "Red " & i
Next i
'itd, itd
'onda snimis workbook
xlWrk.Save
'ili ako hoces da ga snimis pod drugim imenom
xlWrk.SaveAs "C:\proba.xls"
'i onda zatvoris excel objekat
Set xlSht = Nothing
xlWrk.Close False
Set xlWrk = Nothing
xlApp.Quit
Set xlApp = Nothing
Ovo se zove early binding, a može da se koristi i late binding u kom slučaju ti ne treba refereca na excel objekat. Jedina izmena je u prve 4 linije koda
Code:
Dim xlApp As Object
Dim xlWrk As Object
Dim xlSht As Object
Set xlApp = CreateObject("Excel.Application")
Prednosti early bindinga su u tome što imaš na rasplaganju intelisense, pa samim tim i autocomplete prilikom kodiranja, kao i mogućnost da koristiš excel konstante bez prethodnog deklarisanja. Prednosti late bindinga je relativna nezavisnost od verzije excela (kažem relativna zato što ako iskoristiš neku funkciju koja postoji u Excelu 2003, a ne postoji u Excelu 2000, ako se program instalira na mašinu gde je instaliran Office 2000, on neće raditi kako treba kada bude trebao da izvrši tu funkciju, možda dođe i do pucanja. Međutim, opet je bolje malo pripaziti na to koje se funkcije koriste, nego da program uopšte neće da se pokrene, jer neko nema verziju Excela koju si ti koristio prilikom izrade programa.
Eto, to je nešto uopšteno, a ako imaš konkretan problem, ti javi :)
-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti