小编joh*_*ohn的帖子

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

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

码:

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