[es] - Izvoz Queria u Excell

kamicak

Član broj: 38051
Poruke: 630
*.ptt.yu.

+156 Profil

^{17.01.2006. u 16:46 - pre 222 meseci}

Evo ako neko hoce da pomogne.
Trebao bih rezultete Queria da prebacim u Excell.
Konkretno: Queri ima polje1 "mesec" i polje2 "Iznos", znaci predstavlja ukupan promet po mesecima, tako u Excelu svako polje iz Queria ima celiju sa pocetnom vrednoscu "0" za polje "iznos", pa kako se polje2 povecava tako da se i celija u Excelu automatski azurira posto se na osnovu tih podataka iz Excela pravi dijagram
Hvala unapred
Pozdrav

Odgovor na temu

vmatoic
Vjekoslav Matoić
Hrvatska

Član broj: 60050
Poruke: 123
*.net.t-com.hr.

Sajt: www.ben.hr

Profil

Re: Izvoz Queria u Excell

^{17.01.2006. u 18:50 - pre 222 meseci}

Nisam bas siguran sto te muci, no mozda pomogne primjer u prilogu.

A pretpostavljam da znas da grafikone mozes raditi i u Accessu.

Prikačeni fajlovi

Primjer.xls - 14k

Odgovor na temu

kamicak

Član broj: 38051
Poruke: 630
*.nspoint.net.

+156 Profil

Re: Izvoz Queria u Excell

^{17.01.2006. u 22:51 - pre 222 meseci}

Nismo se razumeli, izgleda da ne objasnjavam bas najbolje, a mozda je moje prvo pitanje trebalo da bude da li to uopste moguce, ali pretpostavljam da se sa kodom moze sve.Evo probacu jos jednom.
Na osnovu tabele u Aceess-u koja predstavlja evidenciju o svakodnevno prodatim artiklima, napravio sam Queri koji mi sumira iznose prodatih artikala po mesecima.Znaci dobijem Queri sa dve kolone :
January 2006, 10000
February 2006,20000(naravno tek kada dodje februar)
...........
E sad da li moze automatski ili pritiskom na neko dugme da se te dve kolone kopiraju u Excel, znaci recimo:
A1=January, B1=10000
A2=February,B2=20000
...............
Kako se vrse promene u Queriju tj u tabeli na osnovu koje je napravljen Queri, tako da se odmah vrsi azuriranje i u Excelu, ako moze automatski bez copy/paste kao do sada.
Nadam se da je sada malo jasnije, inace u Excelu su mnogo jasniji i lepsi dijagrami od onih u Access-u.
Pozdrav

Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
*.dialup.neobee.net.

+41 Profil

Re: Izvoz Queria u Excell

^{17.01.2006. u 22:57 - pre 222 meseci}

Excel -> Data -> Import External Data -> Import Data i onda izaberes Access bazu i tabelu ili view koji hoces i to je to. Kad ti trebaju najsveziji podaci ides na:
Excel -> Data -> Refresh Data

Nadam se da si na to mislio.

Odgovor na temu

Trtko
Koprivnica

Član broj: 69494
Poruke: 695
195.29.146.*

+8 Profil

Re: Izvoz Queria u Excell

^{18.01.2006. u 07:41 - pre 222 meseci}

Evo to moj primjer gdje iz Acessa prepisujem u excel datoteku
A ti si ga malo prepradi

PPDEF = Application.CurrentProject.Path
PPopen = PPDEF + "\prazna.xls"
dput = Dir(PPopen)

If Len(dput) < 3 Then
MsgBox "NE POSTOJI EXCEL TABLICA " + PPopen + " MORATE JE KREIRATI"
Exit Sub
End If

Set objexcel = CreateObject("Excel.Application")
objexcel.Workbooks.Open (PPopen)

objexcel.Application.Visible = True
' objexcel.Parent.Windows(1).Visible = True

Dim dato11 As Database
Dim rek11 As Recordset
Set dato11 = CurrentDb
Dim sqlupit11 As String
sqlupit11 = "select * from finstatement"
Set rek11 = dato11.OpenRecordset(sqlupit11)

kolona = 1

Do While Not rek11.EOF

objexcel.Cells(1, kolona).Value = rek11.Fields("CompanyName").Value
objexcel.Cells(2, kolona).Value = rek11.Fields("CurrencyUnit").Value
objexcel.Cells(3, kolona).Value = rek11.Fields("Currency").Value
objexcel.Cells(4, kolona).Value = rek11.Fields("startdate").Value
objexcel.Cells(5, kolona).Value = rek11.Fields("enddate").Value
objexcel.Cells(6, kolona).Value = rek11.Fields("version").Value

statid = rek11.Fields("statementid").Value

Dim dato2 As Database
Dim rek2 As Recordset
Set dato2 = CurrentDb
Dim sqlupit2 As String
sqlupit2 = "select * from finitem where statementid=" & statid
Set rek2 = dato2.OpenRecordset(sqlupit2)

red = 10

Do While Not rek2.EOF
objexcel.Cells(red, kolona).Value = "'" & rek2.Fields("accountid").Value
objexcel.Cells(red, kolona + 1).Value = rek2.Fields("Accountvalue").Value
red = red + 1
rek2.MoveNext
Loop
rek2.Close
Set dato2 = Nothing

kolona = kolona + 2
rek11.MoveNext
Loop

rek11.Close
Set dato11 = Nothing

objexcel.Application.Visible = False
'objexcel.Parent.Windows(1).Visible = False

objexcel.Application.DisplayAlerts = False

'objExcel.Workbooks(1).Save
odmjdefault = "FPuvozDD_" + Format(DATUMOD, "mm") + "_" + Format(datumdo, "mm") + "_" + Format(datumdo, "yyyy")
odmj = InputBox("Unesi ime .XLS datoteke", "EXPORT PODATAKA", odmjdefault)

'odmj = ODMJDEFAULT
PPDEF = Application.CurrentProject.Path
ppexcel = PPDEF + "\" + odmj
dput = Dir(ppexcel)

If IsNull(odmj) Or odmj = "" Then
odmj = odmjdefault
End If

If Len(dput) < 3 Then

Else
Kill (ppexcel + "\" + odmj)
End If

objexcel.Workbooks(1).SaveAs PPDEF + "\" + odmj
objexcel.Application.Quit
objexcel.Application.DisplayAlerts = True

MsgBox "Podaci su prepisani u " + PPDEF + "\" + odmj + ".XLS"
End Sub

Napomena : Ako ti program poslije otvaranja excel fajla padne, javi gresku.
morat ces rucno zatvoriti EXCEL sa task menagerom, CTRL-ALT-DEL pa onda odaberes excel i zatvoris ga., inace ako ga ne zatvoris, on ti je otvoren ali ga ne vidis na desktopu

Pozdrav

Trtko

Odgovor na temu

kamicak

Član broj: 38051
Poruke: 630
*.ptt.yu.

+156 Profil

Re: Izvoz Queria u Excell

^{18.01.2006. u 13:42 - pre 222 meseci}

Hvala GoranuVuc, njegovo resenje je ono sto sam trazio, znaci resenje je u EXcel-u a ne u Access-u, jos sam podesio da se podaci automatski refresuju sa otvaranjem falja u excelu, ako moze jos samo jedna pomoc, kako da u Access-u otvorim konkretan Excel fajl, znam da sa makrom otvorim Excel ali ne i konkretan fajl.
Hvala unapred
Pozdrav

Odgovor na temu

Trtko
Koprivnica

Član broj: 69494
Poruke: 695
195.29.146.*

+8 Profil

Re: Izvoz Queria u Excell

^{18.01.2006. u 14:43 - pre 222 meseci}

Pa kad bi malo bolje pogledao moj gornji post
znao bi kako da otvoris u Accessu odredjenu excel tablicu

Odgovor na temu

kamicak

Član broj: 38051
Poruke: 630
*.ptt.yu.

+156 Profil

Re: Izvoz Queria u Excell

^{19.01.2006. u 13:01 - pre 222 meseci}

PPDEF = Application.CurrentProject.Path
PPopen = PPDEF + "\prazna.xls"
dput = Dir(PPopen)

If Len(dput) < 3 Then
MsgBox "NE POSTOJI EXCEL TABLICA " + PPopen + " MORATE JE KREIRATI"
Exit Sub

Na formi sam dodao dugme i njemu na klik dodao ovaj Trtkov kod, samo sam umesto "prazna.xls" stavio naziv mog fajla, i kada kliknem nista se ne dogadja, gde sam pogresio?
Pozdrav

Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
*.neobee.net.

+41 Profil

Re: Izvoz Queria u Excell

^{19.01.2006. u 13:22 - pre 222 meseci}

Ne znam na cega mislis, ali probaj sa:

Code:

Private Sub OtvoriExcel(ByVal strFilename As String)
   Dim ExcelAPP As Excel.Application

   Set ExcelAPP = CreateObject("Excel.Application")
   ExcelAPP.Workbooks.Open strFilename
   ExcelAPP.Visible = True

End Sub

Metoda "Open" od kolekcije Workbooks ima jos dodatne parametre koji su opcioni. Nadam se da si na to mislio.

Odgovor na temu

Trtko
Koprivnica

Član broj: 69494
Poruke: 695
195.29.146.*

+8 Profil

Re: Izvoz Queria u Excell

^{19.01.2006. u 13:34 - pre 222 meseci}

Kamicak jos samo da si si iskopirao jos one tri linije ispod.
da pojasnim

PPDEF = Application.CurrentProject.Path
' ppdef dobije path (direktorij) gdje ti je startan Access) npr. C:\PRIMJER
PPopen = PPDEF + "\prazna.xls"
dput = Dir(PPopen)

' meni je tako trebalo, ali ti mozes staviti da je PPopen="D:\KAMICAK\TABLICE\primjer.xls

If Len(dput) < 3 Then
MsgBox "NE POSTOJI EXCEL TABLICA " + PPopen + " MORATE JE KREIRATI"
Exit Sub
End If

' i sad je tu otvoris , znaci otvorena je

Set objexcel = CreateObject("Excel.Application")
objexcel.Workbooks.Open (PPopen)
objexcel.Application.Visible = True

' e sad mozes da dodajes u polja u exceel , u cell sta god zazelis

objexcel.Cells(1, 1).Value = "Dobar dan" ' to znaci cell A1
objexcel.Cells(2, 1).Value = "Ovo je " ' to znaci cell B1
objexcel.Cells(2, 3).Value = "Proba" ' to znaci cell B3

Jel sad jasnije
kad zavrsis s upisom moras je i zatvoriti

Pozdrav

Odgovor na temu