如何根据单元格的值保存Excel文件？

当您使用工作簿时，是否想过根据单元格内容来保存Excel文件呢？例如，如果单元格A1中包含“销售价格”，您希望将工作簿保存为“销售价格”这个名称。当然，您可以手动在“另存为”对话框中输入名称并保存，但如果您的工作量很大，这种方法效率会很低。今天，我将介绍一个快速技巧来解决这个问题。

使用VBA代码根据特定单元格值保存Excel文件

使用VBA代码根据特定单元格值保存Excel文件

以下VBA代码可以帮助您根据指定的单元格值保存工作簿，请按照以下步骤操作：

1. 按住 ALT + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 单击 插入 > 模块，并将以下代码粘贴到模块窗口中。

VBA代码：根据特定单元格值保存Excel文件

Private Sub filename_cellvalue()
'Updateby Extendoffice
Dim Path As String
Dim filename As String
Path = "C:\Users\dt\Desktop\my information\"
filename = Range("A1")
ActiveWorkbook.SaveAs filename:=Path & filename & ".xls", FileFormat:=xlNormal
End Sub

3. 然后按 F5 键执行代码，您的工作簿将被命名为单元格A1中的内容。请参见截图：

注意事项：

1. 您可以通过修改上述代码中的A1为其他单元格引用，指定任何单元格值作为文件名。

2. 您当前的工作簿将保存到 C:\Users\dt\Desktop\my information\ 文件夹（替换路径时必须保留最后一个斜杠），您可以根据需要更改路径。

相关文章：

如何在Excel中保存带有日期和时间的文件？

如何在Excel的标题栏或工具栏中显示文件路径？