Excel是否可以在用户单击“另存保存为”之前设置工作表的文件名?

63lcw9qa  于 12个月前  发布在  其他
关注(0)|答案(1)|浏览(97)

我写了一些Excel宏来打开一个.txt文件并构建一个花哨的工作簿,还有一些代码来自动保存它,如下所示:

ActiveWorkbook.SaveAs Filename:="MyReport.xlsx", FileFormat:=xlWorkbookDefault

字符串
即使文件名上有.xlsx后缀,也需要文件格式来提醒Excel将其保存为真实的工作簿,而不是文本。
但实际上我只是想设置文件格式,这样用户就可以 * 决定 * 是否保存(通过点击正常的东西,但不必记住保存为.xlsx而不是.txt)。

nhjlsmyf

nhjlsmyf1#

您需要事先获取文件名。

fileSaveName = Application.GetSaveAsFilename( _
    fileFilter:="Excel Files (*.xlsx), *.xlsx")

If fileSaveName <> False Then
    ActiveWorkbook.SaveAs Filename:=fileSaveName, _
        FileFormat:=xlWorkbookDefault
End If

字符串

相关问题