qua un codice ke ho trovato (in un mio prog ke caricava dati da excel)

caricava dati un una tabella vuota (table), da excel

codice:
Dim ExcelApp As Object
Set ExcelApp = CreateObject("Excel.Application")

NomeFile = Dir.Path & "\" & Me.File

If Right(Me.File, 3) = "xls" Then
ExcelApp.Workbooks.Open (NomeFile) 

ExcelApp.worksheets("Foglio1").Activate

Set db = OpenDatabase(App.Path & "\Db\file.mdb")
Set table= db.OpenRecordset("TabellaAccess")

If table.EOF Then
For i = 1 To 50
table.AddNew
 table.campo= ExcelApp.worksheets("Foglio1").range("a" & i).Value
table.Update
Next


ExcelApp.Workbooks.Close

ExcelApp.Visible = False

Else
MsgBox "Tabella non vuota....riprovare"
End If


Else 'il file ke si sta tentando di aprire non è xls!

 MsgBox "Tipo File non Compatibile...xls/doc"

End If