VBA如何指定另存为文件的文件名？

比如 A1=001 那么文件名就是 001.xlsSub 另存()ActiveWorkbook.SaveCopyAs "D:/" & [a1] & ".xls"End Sub显示标准的“另存为”对话框，获取用户文件名，而无须真正保存任何文件。expression.GetSaveAsFilename(InitialFilename, FileFilter, FilterIndex, Title, ButtonText)expression 必需。该表达式返回一个 Application 对象。InitialFilename Variant 类型，可选。指定建议的文件名。如果省略本参数，Microsoft Excel 将活动工作簿的名称作为建议的文件名。FileFilter Variant 类型，可选。一个指定文件筛选条件的字符串。本字符串由一个文件筛选字符串与 MS-DOS 通配符表达的文件筛选规则说明组成，中间以逗号分隔。每个字符串都在“文件类型”下拉列表框中列出。例如，下列字符串指定两个文件筛选串，文本文件和加载宏：“文本文件 (*.txt)、*.txt、Add-In 文件、(*.xla)、*.xla”。要为单个文件筛选类型使用多个 MS-DOS 通配符表达式，需用分号将通配符表达式分开。例如：“Visual Basic 文件 (*.bas; *.txt)、*.bas; *.txt”。如果省略本参数，则默认参数值为“所有文件 (*.*),*.*”。FilterIndex Variant 类型，可选。指定默认文件筛选条件的索引号，取值范围为 1 到 FileFilter 指定的筛选条件数目之间。如果省略本参数，或者取值大于可用筛选数目，则采用第一个文件筛选条件。Title Variant 类型，可选。指定对话框标题。如果省略本参数，则使用默认标题。ButtonText Variant 类型，可选。仅用于 Macintosh。说明本方法返回选定的文件名或用户输入的名称。返回的文件名可能包含路径说明。如果用户取消了对话框，则该值为 False。本方法可能更改当前驱动器或文件夹。示例本示例显示文本文件的“另存为”对话框。如果用户选择了一个文件名，则在消息框中显示所选的文件名。fileSaveName = Application.GetSaveAsFilename( _fileFilter:="Text Files (*.txt), *.txt")

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/y233yrj3x.html