VBA从Access将Excel文件另存为.xls

Question

嗨，我必须执行从Excel文件到Access DB的导入，没有重复项。 唯一可以做到这一点的方法是创建一个表，在该表中可以导入Excel数据，然后通过构建查询将其追加到目标表中。 问题是此Excel文件必须为.xls格式，没有其他格式对我有用（不知道为什么）。 我该如何从Access做到这一点-无需打开Excel工作簿，只需更改它的扩展名即可？ 这就是我尝试过的（我收到错误：“对象不支持此属性或方法”）

Dim XFile As Excel.Application


Set XFile = CreateObject("Excel.Application")
XFile.Workbooks.Open "C:\Users\Mike\Desktop\Copy.xlsx", True

XcelFile.SaveAs Filename:="C:\Users\Mike\Desktop\Copy.xlsx", FileFormat:=56
XFile.Workbooks.Close

End Sub

如您所见，我需要从.xlsx保存，这是Excel 2013的默认格式。

任何帮助，不胜感激！

Answer 1

感谢@ Porcupine911，即使没有打开工作簿也能正常工作:)

Dim XcelFile As Excel.Application
Dim wb As Excel.Workbook

Set XcelFile = New Excel.Application

Set wb = XcelFile.Workbooks.Open("Filepath here")

wb.SaveAs Filename:="Filename here, with different destination and desirable extension", FileFormat:=56
wb.Close
Set XcelFile = Nothing

End Sub