vba - 运行时错误 1004

Question

尝试运行以下内容时，出现以下错误:

"This extension can not be used with the selected file type. Change the file extension in the file name text box or select a different file type by changing the save as type."

代码:

Dim strPath As String
Dim strFolderPath As String


strFolderPath = "Y:\

strPath = strFolderPath & _
Sheet1.Range("A1").Value & _
Sheet1.Range("B1").Value & ".xlsx"


ActiveWorkbook.SaveAs Filename:=strPath

Answer 1

该错误意味着 ActiveWorkbook 正在尝试另存为不同的文件格式，然后是“.xlsx”。要强制它保存为 .xlsx，您还必须传递文件格式。

ActiveWorkbook.SaveAs Filename:=strPath, FileFormat:=xlOpenXMLWorkbook