另存为不保存文件

Question

我试图获得“另存为”＃39;对话框提示用户表单上输入的信息并保存为新文件。当我点击“保存”时，一切看起来都有效，甚至还有保存/加载图标。但没有实际保存的文件保存在我的文件夹中。这是我的＆＃39;另存为＆＃39;代码：

Dim IntialName As String
Dim fileSaveName As Variant
InitialName = Range("d1") & "_" & Range("j1") & "_" & Range("p1")
fileSaveName = Application.GetSaveAsFileName(InitialFileName:=InitialName, _
    fileFilter:="Excel Macro-Enabled Workbook (*.xlsm), *.xlsm") 

Answer 1

添加

ActiveWorkbook.SaveAs fileSaveName, xlFileFormat.xlOpenXMLWorkbookMacroEnabled

在你的代码实际保存之后。

您当前所做的所有代码都会为您提供一个字符串，以便您可以使用该名称进行保存。你必须自己实际保存。