1、举例:假设你想将当前工作簿文件错聂庋堀保存到本地,并且想以某个单元格的值作为保存文件名。例如,Cell A1的值是testWork,您希望将工作簿保存为testWork的名称。
2、步骤1:打开您的Excel工作簿,然后单击开发工具选项卡下的“Visual Basic”命令,或者只需按“ALT + F11”快捷方式。
3、步骤2:然后将出现“Visual Basic编辑器”窗口。
4、步骤3:单击“插入” – >“模块”以创建新模块。
5、步骤4:将以下VBA代码粘贴到代码窗口中。然后单击“保存”按钮。代码:Sub FileNameAsCellContent() Dim FileName As String Dim Path As String Application.DisplayAlerts = False Path = "C:\test\" FileName = Range("A1").Value & ".xlsx" ActiveWorkbook.SaveAs Path & FileName, xlOpenXMLWorkbook Application.DisplayAlerts = True ActiveWorkbook.Close End Sub
6、步骤5:返回当前工作表,然后运行上面的excel宏。点击执行按钮。
7、步骤6:让我们看看结果: