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

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

1 个答案: