[es] - Baze povezivanje axcesa i excela

adenis
bih

Član broj: 24296
Poruke: 256
*.dlp119.bih.net.ba.

Profil

Re: Baze povezivanje axcesa i excela

^{13.10.2005. u 07:58 - pre 225 meseci}

tvoje pitanje odaje tvoje neznanje o accessu. access ima siroke mogucnost saradnje sa ostalim office programima. mozes bazu raditi u excelu pa je importovati u access ali to je besmisleno. za unos podataka u access otvori new tables i pocni unos. preporucujem ti da malo bolje procitas ovaj dio foruma i da pronades nesto literature na netu vezano za access.

Odgovor na temu

Trtko
Koprivnica

Član broj: 69494
Poruke: 695
195.29.146.*

+8 Profil

Re: Baze povezivanje axcesa i excela

^{14.10.2005. u 10:21 - pre 225 meseci}

Naravno da se moze .
Ali moras malo i znati programirati u Accesu.

Evo tu ti stavljam moj primjer prepisivanja iz tablice u accesu u
zeljena polja u exceli

----------------------------------------

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

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.Application.DisplayAlerts = False
odmjdefault = "FPuvozDD_" + Format(DATUMOD, "mm") + "_" + Format(datumdo, "mm") + "_" + Format(datumdo, "yyyy")
odmj = InputBox("Unesi ime .XLS datoteke", "EXPORT PODATAKA", 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"

--------------------------------

Eto , mozda ti pomogne , a i ostalim ljudima

Pozdrav svima

Trtko

Odgovor na temu