如何使用VBA将excel工作簿的所有工作表导入Access



我收到了一个带有1429 sheets的excel文件。我需要将所有数据作为一个表或多个表输入Access 2013,并且正在寻找VBA方法(或任何其他可行的方法(。

这里的答案中给出的代码不适用于我,尽管几年前它似乎一直适用于其他人:

"运行时错误'91':对象变量或块变量未设置">

参考行"For lngCount=1 to objWorkbook.Worksheets.Count">

我最终解决了它,结果发现它真的很愚蠢:在我将源电子表格转换为.xlsx格式后,代码就工作了。我最终使用了我链接到的同一答案中发布的第二个代码,该代码将所有电子表格导入到一个表中。

谢谢你的帮助,我在这里学到了很多!

最新更新