Microsoft.Jet VB fra Exel!
Jeg har lige fået at vide at Microsoft.Jet skulle være noget hurtigere end Mine gamle SQL sætninger, når man arbejder med Access og Excel... altså hente og skrive data fra filerne..MEN...
Jeg forstår ikke helt hvordan det erMicrosoft.Jet virker... nogen der vil hjælpe lidt?
Jeg har denne sætning:
Sub ADOFromExcelToAccess()
Dim cn As ADODB.Connection, rs As ADODB.Recordset, r As Long
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\FolderName\DataBaseName.mdb;"
Set rs = New ADODB.Recordset
rs.Open "TableName", cn, adOpenKeyset, adLockOptimistic, adCmdTable
r = 3 ' startraden i regnearket
Do While Len(Range("A" & r).Formula) > 0
With rs
.AddNew
.Fields("FieldName1") = Range("A" & r).Value
.Fields("FieldName2") = Range("B" & r).Value
.Fields("FieldNameN") = Range("C" & r).Value
.Update
End With
r = r + 1 ' neste rad i regnearket
Loop
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub
-------------------------
Det er osse meget fint, men hvor står der hvilken TABEL der skriver til og hvor står der hvilken Excel fil den henter fra???
Det er det jeg ikke lige kan gennemskue...
