Importazione Dati Da .xls Su Access

[misonsanbea]

grazie a tutti gli amici della ml

verificando il comando, ho scritto il codice per poter eseguire l'importazione dei fogli da .xls a mdb access.

Mi sembra abbastanza coerente e rispettoso della posizionalità e del formalismo del comando, ma non viene eseguito dandomi un errore che mi sembra incomprensibile.

Qualcuno ha qualche idea ?

Function importa()

' importa i dati da tutti i fogli excel ------------------------------------------------

Set DBCorrente = CurrentDb

Set tabella = DBCorrente.OpenRecordset("WrkordiniExcel", dbOpenDynaset)

Dim SQL_Text As String

Set xl = CreateObject("Excel.Application")

sSource = "c:\Ordini_Prova.xls"

With xl

.Workbooks.Add

.Workbooks.Open sSource

sheetcount = .worksheets.Count

For x = 1 To sheetcount

strname = .worksheets(x).Name

.Sheets(strname).Select

DoCmd.TransferSpreadsheet acImport, 8, "WrkordiniExcel", "c:\Ordini_Prova.xls", False

Next x

End With

xl.Application.Quit

End Function

debug_xls2mdb.zip

[dinop]

nella tabella ordini Access manca il campo F (che dovrebbe essere la quantità suppongo...) della tabella Excel...

Dinop....