另存为不保存文件

问题描述 投票:1回答:1

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

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") 
excel vba
1个回答
2
投票

ActiveWorkbook.SaveAs fileSaveName, xlFileFormat.xlOpenXMLWorkbookMacroEnabled

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

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

© www.soinside.com 2019 - 2024. All rights reserved.