[ΑΛΕΞΙΑ]

Καλησπέρα για όλους

Ψάχνοντας στο forum βρήκα αυτό το κώδικα
Αλλα όταν ο κώδικας φτάνει εδώ CurrentProject.Connection.Execute strSQL, lngRecs
βγαζει σφάλμα "Invalid object name Excel 8.0;HDR=YES;Database=C:\test.xls.DataSheet$ "

μηπως ξέρει κανεις γιατί;

Private Declare Function GetTickCount Lib "kernel32" () As Long

Sub Test()
Dim strSQL As String
Dim lngStart As Long
Dim lngRecs As Long

' On Error GoTo ErrHandler
DoCmd.SetWarnings False
strSQL = "Insert Into dbo.Table1 (ag, ab) " _
& "Select AM, NAME From [Excel 8.0;HDR=YES;Database=C:\test.xls].[DataSheet$];"

lngStart = GetTickCount


CurrentProject.Connection.Execute strSQL, lngRecs

MsgBox lngRecs & " records added in Table1 in " _
& (GetTickCount - lngStart) & " milliseconds!", vbInformation
'ExitProc:
' DoCmd.SetWarnings True
' Exit Sub
'ErrHandler:
' MsgBox Err.Description, vbExclamation
' Resume ExitProc
End Sub