Vba DoCmd.1电子表格问题

使用

DoCmd.TransferSpreadsheet acImport，8，TableInput，FilePathName，True通过VBA将一组特定的Excel工作簿导入Access中的表时遇到问题

有一件事是有效的，当我打开每个工作簿并重新保存它们时，代码就起作用了，不确定会出现什么问题。文件类型显示工作簿是97-2003，因此我使用值8，但除非执行上述操作，否则仍会出现运行时错误3274。该代码与其他excel文件集没有任何问题。在使用文档检查器时，我也看不到文件之间有任何差异

注意，我使用的excel文件是由第三方公司提供的。谢谢你的帮助
 您可以尝试直接从查询中读取Excel：

SELECT  s.*
FROM [Sheet1$] s IN '' [Excel 12.0 Xml;HDR=YES;IMEX=2;ACCDB=YES;DATABASE=@sourceFile]

只需将Sheet1$替换为工作表名称后面的$，

并将@sourcefile替换为完整的文件名

您甚至可以指定起始行、列和条件：

SELECT  s.*
FROM [Fees$a10:h10] s IN...
WHERE [someField] IS NOT NULL

可能重复的