如何在 MS Access VBA 中打开新格式的 Excel 工作簿？

Question

我正在使用 MS Access 和 Excel 2010。

在 MS Access VBA 中，我 create/open 新工作簿是这样的：

Set objXl = CreateObject("Excel.Application") 
Set xlWBk = objXl.Workbooks.Add

尽管有 Excel 2010，但出于某种原因，此工作簿最多只能增加 65535 行，我认为是因为出于某种原因，在制作新书或其他内容时它默认为 .xls。

只有当我另存为 xlsx/close/reopen 时，我才能获得完整的 100 万多行：

xlWBk.SaveAs someFilePath, FileFormat:=xlOpenXMLWorkbook 'xlsx format AFAIK
xlWBk.Close
Set xlWBk = objXl.Workbooks.Open(someFilePath)

有没有一种方法可以将新 Excel 工作簿的创建默认为具有完整行数的 .xlsx 格式，而无需 save/close/reopen 它？

编辑：在我的例子中，更改 Excel 选项中的默认保存方法似乎并没有因为任何原因而坚持。新工作簿总是希望以兼容模式打开。

Answer 1

您可以在创建工作簿前设置default format：

Set objXl = CreateObject("Excel.Application")
objXl.DefaultSaveFormat = xlOpenXMLWorkbook ' or xlOpenXMLWorkbookMacroEnabled
Set xlWBk = objXl.Workbooks.Add

如何在 MS Access VBA 中打开新格式的 Excel 工作簿？

How to open up a new Excel Workbook in MS Access VBA that's of the newer format?

excel

ms-access

vba

ms-access-2010