exceldata importeren in access met vba

Status
Niet open voor verdere reacties.

naominaomi

Nieuwe gebruiker
Lid geworden
26 jun 2011
Berichten
1
Sindskort ben ik begonnen met programmeren in vba en wil exceldata importeren in access mbv vba. Via het web vond ik onderstaande code. Tijdens het testen van de code stuitte ik op de volgende vragen en foutmeldingen:


* Moet ik onderstaande code in excel of access zetten?
* Ik heb de code in access gezet en kreeg de volgende foutmelding: "Compileerfout sub of function is niet gedefinieerd". Wat houdt deze foutmelding in en hoe kan ik dit verhelpen?
* Hoe moet ik de velden defini�ren in de accesstabel?
*Wat betekent deze code ".Fields("FieldName1") = Range("A" & r).Value"? Ik neem aan dat r = 3 betekent dat in excel vanaf rij 3 wordt gestart met zoeken. Echter is me uit de code niet duidelijk op welke manier er in excel wordt gezocht naar de waarden en op welke manier deze worden gezet in access.

Kan iemand mij op weg helpen om de code beter te begrijpen en toe te kunnen passen?
Alvast bedankt.


Sub DAOFromExcelToAccess()
' exports data from the active worksheet to a table in an Access database
' this procedure must be edited before use
Dim db As Database, rs As Recordset, r As Long
Set db = OpenDatabase("C:\FolderName\DataBaseName.mdb")
' open the database
Set rs = db.OpenRecordset("TableName", dbOpenTable)
' get all records in a table
r = 3 ' the start row in the worksheet
Do While Len(Range("A" & r).Formula) > 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("FieldName1") = Range("A" & r).Value
.Fields("FieldName2") = Range("B" & r).Value
.Fields("FieldNameN") = Range("C" & 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
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan