Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

vba macro za export podataka iz excela u access

[es] :: Office :: Excel :: vba macro za export podataka iz excela u access

[ Pregleda: 2188 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

zafa

Član broj: 27917
Poruke: 8
*.dynamic.isp.telekom.rs.



Profil

icon vba macro za export podataka iz excela u access02.04.2012. u 21:33 - pre 145 meseci
Probao sam sa sledećim primerom, ali mi prijavljuje grešku

u excelu imam podatke u kolonama B do E i sa sledećim kodom sam pokušao da exportujem podatke iz excela u access ali prijavljuje grešku kod
db As Database

Sub p()
Dim db As Database, rs As Recordset, r As Long
Set db = OpenDatabase("C:\FPC\od3.mdb")
' open the database
Set rs = db.OpenRecordset("od31", dbOpenTable)
' get all records in a table
r = 3 ' the start row in the worksheet
Do While Range("B" & r).Value > 0
' repeat until first empty cell in column A
With rs
.AddNew ' create a new record
' add values to each field in the record
.Fields("ID") = Range("B" & r).Value
.Fields("prezime") = Range("C" & r).Value
.Fields("ime") = Range("D" & r).Value
.Fields("ocena") = Range("E" & r).Value
' add more fields if necessary...
.Update ' stores the new record
End With
r = r + 1 ' next row
Loop
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
End Sub

zafa
 
Odgovor na temu

FOX028
Visoka tehnicka skola strukovnih studija
Kosovska Mitrovica

Član broj: 258986
Poruke: 850

Sajt: https://www.zile028.com


+49 Profil

icon Re: vba macro za export podataka iz excela u access03.04.2012. u 08:09 - pre 145 meseci
Problem je u tome sto ti nisi cekirao referencu na Microsoft DAO 3.6 Object Library (Tools=>References). U prilogu ti saljem malo izmenjen ovaj tvoj kod zajedno sa Access bazom. Potrebno je da oba fajla budu u istom folderu ili ako ne zelis da ti budu u istom folderu moraces u kodu promenljivoj dbName da dodelis adresu kao string gde ti se nalazi baza.

Code:
Sub ExportAccess()

Rem *********************************************************************
Rem Potrebno je da cekiras referencu na Microsoft DAO 3.6 Object Library*
Rem Tools=>References                                                   *
Rem *********************************************************************

Dim db As Database
Dim rs As Recordset
Dim r As Long
Dim dbName As String    'adresa Access baze

'jedno od ova dva je potrebno da bude aktivno, nikako oba
dbName = ActiveWorkbook.Path & "\Ocene.mdb"             'ako je baza u istom folderu gde je i Excel fajl
'dbName = "C:\Users\USER\Desktop\Vezba\Export\Ocene.mdb" 'ovde mozes rucno uneti adresu Access baze

Set db = DBEngine.OpenDatabase(dbName)
Set rs = db.OpenRecordset("Ocene", dbOpenDynaset)

' get all records in a table
r = 2 ' the start row in the worksheet
Do While Cells(r, 2) > 0
' repeat until first empty cell in column A
    With rs
        .AddNew ' create a new record
        ' add values to each field in the record
        .Fields("ID") = Cells(r, 2)
        .Fields("prezime") = Cells(r, 3)
        .Fields("ime") = Cells(r, 4)
        .Fields("ocena") = Cells(r, 5)
        ' add more fields if necessary...
        .Update ' stores the new record
    End With
    r = r + 1 ' next row
Loop

rs.Close
Set rs = Nothing
db.Close
Set db = Nothing

End Sub

Prikačeni fajlovi
 
Odgovor na temu

srdrazic

Član broj: 187994
Poruke: 509



+13 Profil

icon Re: vba macro za export podataka iz excela u access03.04.2012. u 21:46 - pre 145 meseci
Pa zar nije lakše iz access-a importovati excel tabelu pa čak i linkovati?
Teško je biti direktor a još teže ne biti!?
 
Odgovor na temu

mld

Član broj: 156249
Poruke: 274
*.adsl-2.sezampro.rs.



+13 Profil

icon Re: vba macro za export podataka iz excela u access04.04.2012. u 07:41 - pre 145 meseci
Ovo bi moglo još funkcionalnije biti kada bi se dodalo da to uradi sa više sheetova, jer to ne može običnim importom iz accesa.
 
Odgovor na temu

[es] :: Office :: Excel :: vba macro za export podataka iz excela u access

[ Pregleda: 2188 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.