运行时错误1004

Question

当尝试运行以下时,我收到以下错误:

"这个扩展不能与所选的文件类型使用.更改文件名文本框中的文件扩展名或者通过更改保存类型选择不同的文件类型."

码:

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,您还必须传递fileformat.

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