Sorry na kasnjenju, ali ja sam malo na odmoru.
Evo ovako druze: Ako hoces da ti to radi kada pritisnes neko dugme ima dva nacina da to uradis:
1) Stavis u dogadjaj Click nekog dugmeta ceo ovaj kod koji se nalazi izmedju <Private Sub ExportExcell()> i <End Sub>
2) Ostavish ovu proceduru kakva jeste, a u dogadjaju Click nekog dugmeta ubacis sledecu liniju <Call ExportExcell>
U sustini, dao sam ti primer iz jednog tekuceg projekta, ali da bih ti objasnio kako excell radi, evo ovako:
Najvaznije ti je sledece:
Code:
Dim aplikacija As Excel.Application 'definisanje objekta excell aplikacje
Dim wBook As Workbook 'Definisanje excell dokumenta
Dim wSheet As Worksheet ' Definisanje stranice-sheeta
Znaci treba ti aplikacija tipa Excell koja radi pod kontrolom VB-a, to ti je objekat aplikacija, treba ti neki dokument za Excell(wBook) i worksheet(znas da u Excell-u imas dole u levom uglu 3 sheeta)
Sada kako se ovi objekti definisu:
Code:
Set aplikacija = CreateObject("Excel.Application") 'Napravi ti excell aplikaciju u pozadini koja radi pod kontrolom VB-a
Set wBook = aplikacija.Workbooks.Add(App.Path & "\Templates\Report.xlt") 'Ova linija otvara neki Excell template
Set wSheet = aplikacija.Sheets(1) 'Ova linija podesava Focus na prvi sheet excell dokumenta
E sad napravili smo aplikaciju i ucitali neki dokument, tj napravili smo novi dokument na osnovu template-a. Ja cesto koristim ove .XLT template-ove za excell jer prvo sve lepo ispodesavam na dokumentu, ubacim logo,itd... pa samo na taj gotov sablon upisujem sta treba...Moze i da se pravi novi dokument za excell, ali je mnogo lakse kada prvo u Excell-u napravish neki template, i samo ga ucitavas(gnjavaza je iz VB-a podesavati sirinu polja, linije franica itd...)
Upis u excell:
Generalno: wSheet.Cells(BrojReda, BrojKolone).Value = VrednostKojaSeUpisuje
Moj Primer: wSheet.Cells(i + 12, 2).Value = (RezultatExport.Fields.Item(0).Value)
Dalje, da ti sve to prikaze kada lepo upisesh svoje vrednosti u Excell:
Code:
aplikacija.Visible = True 'Excell je visible
aplikacija.ShowMe 'Excell se sada prikaze preko tvog programa
Set aplikacija = Nothing 'Excell se sada otkaci od tvog programa
Eto, nadam se da sada nije nejasno,Pozdrav!