[es] - Access izvestaji u excelu

aldabic
Serbia

Član broj: 18240
Poruke: 76
212.200.97.*

Profil

^{02.10.2004. u 19:50}

Pozdrav svima

Interesuje me da li je moguce praviti izvestaj iz access-ove baze u excel tabelu?
Kroz neku formu/masku odabrati vrstu izvestaja i kreirati je kao excelb tabelu, koja se moze snimiti, odstampati...

^{02.10.2004. u 19:50}

Goran Aničić
Goran Aničić
Novi Sad

Član broj: 7404
Poruke: 407
*.dialup.neobee.net.

Sajt: www.personalmag.co.yu/blo..

Profil

Re: Access izvestaji u excelu

^{02.10.2004. u 21:03}

Postoji više opcija. Određeni stepen automatizacije može se postići korišćenjem OLE konektivnosti i VBA koda. Primer uvezenih izveštaja iz Accessa, ali u ovom slučaju u Word što je kompatibilno sa Excelom, možeš videti u tekstu Izveštaji u Word-u iz Access-a.

ICT magazin
IT, Mobile, Gaming online magazin
------------------------------
Blog
Svakodnevnica Blog Auto blog
------------------------------

Kompjuterski e-zine
Personal magazine

^{02.10.2004. u 21:03}

gosha
Goran Bundalo
Zemun

Član broj: 2384
Poruke: 341
*.smin.sezampro.yu.

Profil

Re: Access izvestaji u excelu

^{03.10.2004. u 20:18}

Od access-a 2000 (a možda i ranije) postoji opcija eksporta reporta u excel.
Nije nešto ekstra ali pogledaj možda ti odgovara.

Pozdrav Goran.

JokeJunky :)

Mrzim sublimirane marketinske poruke.

^{03.10.2004. u 20:18}

aldabic
Serbia

Član broj: 18240
Poruke: 76
212.200.97.*

Profil

Re: Access izvestaji u excelu

^{08.10.2004. u 14:06}

Hvala na savetima!
Obican export daje suvise jednostavne izvestaje, moracu da dodajem VBA kod...

POZDRAV

^{08.10.2004. u 14:06}

maxum

Član broj: 32629
Poruke: 9
*.halliburton.com

Profil

Re: Access izvestaji u excelu

^{08.10.2004. u 15:21}

Evo vrlo jednostavan VBA kod gdje mozes na svoj vec kreirani Excel fajl, ubaciti podatke iz Access tabele ili query-a...

Javi ako ti bude trebao primjer, pa cu ti ga poslati mail-om...

*******************************************************

Private Sub Izvjestaj_Click()

Dim rsHeading As Recordset
Dim rsDetails As Recordset
Dim row As Integer

Dim xlApp As Excel.Application
Dim xlWb As Excel.Workbook
Dim xlWs As Excel.Worksheet

Dim strPath As String
strPath = "d:\My Documents \" ovdje unesi direktorij gdje se nalazi Excel fajl

Set db = CurrentDb()
Set rsHeading = db.OpenRecordset("select * from TABELA/QUERY") SQL upit

row = 6 pocetni red u Excel fajlu

If rsHeading.RecordCount > 0 Then
Set xlApp = CreateObject("excel.application")
Set xlWb = xlApp.Workbooks.Open(strPath & "\FAJL.xls") ime Excel Fajla
Set xlWs = xlWb.Sheets("Sheet1") Sheet u Excel fajlu

Do Until rsHeading.EOF = True

With xlWs

.Cells(row, 2) = rsHeading!Polje1
.Cells(row, 3) = rsHeading! Polje2
.Cells(row, 4) = rsHeading! Polje3
.Cells(row, 5) = rsHeading! Polje4
.Cells(row, 6) = rsHeading! Polje5

End With

row = row + 1
rsHeading.MoveNext

Loop

End If

xlApp.Visible = True
Set xlApp = Nothing

End Sub

Prikačeni fajlovi

Export u Excel.zip - 29.57k

^{08.10.2004. u 15:21}

maxum

Član broj: 32629
Poruke: 9
*.halliburton.com.

Profil

Re: Access izvestaji u excelu

^{04.12.2004. u 08:08}

Evo upload-ovao sam jednostavan praktican primjer Exporta izvjestaja u Excel. Naravno ovaj primjer se moze jos doraditi ali opet sve zavisi od potrebe...

^{04.12.2004. u 08:08}

phactor

Član broj: 6825
Poruke: 77
80.65.64.*

Profil

Re: Access izvestaji u excelu

^{07.01.2005. u 20:29}

...probao sam ovaj tvoj primjer ali mi izbaci sljedeci error:

missing or broken reference dao2535.tlb ...

...kako da se ovo isparvi i u cemu je fora?

^{07.01.2005. u 20:29}

maxum

Član broj: 32629
Poruke: 9
*.halliburton.com.

Profil

Re: Access izvestaji u excelu

^{11.01.2005. u 12:57}

Citat:

phactor: ...probao sam ovaj tvoj primjer ali mi izbaci sljedeci error:

missing or broken reference dao2535.tlb ...

...kako da se ovo isparvi i u cemu je fora?

Pogledaj da li su ti odgovarajuci References ukljuceni...

Ja koristim Win 2000 + MS Access 2002 i evo mozes pogledati koji su kod mene 'references' ukljuceni.

Prikačeni fajlovi

references.jpg - 38.37k

^{11.01.2005. u 12:57}