VBA导入Excel数据到Access表

[HardlyStudy]

Function FileImport()
        DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel97, "Table1", txtOriginalFilePath, False
End Function

用这个方法导入总是失败，400多行数据只能导入10行左右。
想请教下还有其它方法导入吗？

SELECT * into AccessNewTableName from [Excel 8.0;Database=ExcelFile].[Sheet1]
这个方法是如何使用的呢？

Function FileImport()

        SELECT * into Table1 from [Excel 8.0;Database=txtOriginalFilePath].[Sheet1]
        '这里如何执行呢？？？

End Function

[dsd999]

用这个方法导入总是失败，400多行数据只能导入10行左右。


失败后有没有错误提示？把提示贴上来。

[HardlyStudy]

已经不记得当时如何解决的了，结贴，谢谢！