de volgende code gebruik ik om data uit een excel document te importeren, en dat werkt goed. echter kijkt hij alleen naar het eerste tabblad van het excel document. heeft iemand een idee hoe ik hem kan aanpassen dat hij naar alle tabbladen kijkt?
Code:
Sub Do_Verwerk_XLS_Invoer()
Dim XLSInvoerFolder As String, NewFileName As String, strFile As String, cnnMyTran As ADODB.Connection, AantalFout As Long
'
DoCmd.Close acTable, "_XLS_Invoer", acSaveNo
Set cnnMyTran = CurrentProject.Connection
cnnMyTran.BeginTrans
'
XLSInvoerFolder = CurrentProject.Path & "\Invoer"
strFile = Dir(XLSInvoerFolder & "\*.xls*")
Do While strFile <> ""
'Controleer of bestand niet geopend is
If Not IsFileOpen(XLSInvoerFolder & "" & strFile) Then
'Link naar deze EXCEL file
If Relink_XLStables(XLSInvoerFolder & "" & strFile) Then
cnnMyTran.Execute "UPDATE Uitslagen INNER JOIN _XLS_Invoer ON Uitslagen.ID = [_XLS_Invoer].PartijNummer SET Uitslagen.Car1=[_XLS_Invoer].Car1, Uitslagen.Car2=[_XLS_Invoer].Car2, Uitslagen.Hser1=[_XLS_Invoer].Hser1, Uitslagen.Hser2=[_XLS_Invoer].Hser2"
Else
MsgBox strFile & " is niet te koppelen!", vbExclamation
End If
Else
MsgBox strFile & " is in gebruik!" & vbCrLf & "Bestand wordt overgeslagen!", vbExclamation
End If
strFile = Dir
Loop
'
cnnMyTran.CommitTrans
cnnMyTran.Close
Set cnnMyTran = Nothing
MsgBox "EXCEL uitslagen inlezen succesvol beëindigd"
End Sub
