|
Verovatno zelis da vec unete podatke u access-u ubacis u excel stranicu koja je prethodno graficki obradjena. Ak je tako - no problem. Verovatno znas da u niz prebacis sva potrebna polja iz jedne ili vise tabela access baze. Onda iz VB-a iskopiraj praznu i prethodno uredjenu excel tabelu u folder gde to treba da bude:
FileCopy odakle, gde ' stavis puno ime prazne excel tabele
primer: FileCopy "c:\arhiva\radna.xls","c:\radna.xls",
' definises excel objekat
dim Exl As New Excel.Application
'otvoris excel tabelu
Exl.Workbooks.Open "c:\radna.xls",
Dim n as integer
With Exl.ActiveSheet
For n=0 to ...
Cells(n+5, 2) = Niz(n, 0) ' umesto slova kolona u excel tbl stavi brojeve
' ako smatras da ce omasis u kraju petlje stavi IF Niz(n,0)="" then Exit For
next n
' ili idi sa Do petljom
do While Niz(n,0)<>""
Cells(n+5, 2) = Niz(n, 0) ' n - se odnosi na red.br. prikaza
Cells(n+5, 3) = Niz(n, 1)
...
n=n+1
loop
end With
Exl.ActiveWorkbook.PrintOut
Exl.ActiveWorkbook.Close SaveChanges:=True
Ako ti excel tabela ima vise strana onda u njoj definisi zaglavlje koje se ponavlja. E sad tu ide problem kako da se u hederu numerisu strane u tabeli koja ima svoj border ako unapred otvoris, primer, 10 mogucih strana. Problem je relativno lako resiv kroz brisanje viska i tada sve bude lepo i pregledno. Aj sad malo pomuci se da ne bi bas sve bilo za dz tj. bez znoja. Mozda nadjes i neko bolje resenje pa da mi uzvratis poruku 
|
