如何用vba另存excel表格

作者：佚名|分类：EXCEL|浏览：115|发布时间：2025-04-15 20:09:57

如何用VBA另存Excel表格

在Excel中，使用VBA（Visual Basic for Applications）脚本可以自动化许多重复性的任务，包括另存表格。通过编写VBA代码，你可以轻松地将Excel工作簿另存为不同的文件名或格式。以下是如何使用VBA另存Excel表格的详细步骤和代码示例。

1. 打开Excel工作簿

首先，你需要打开一个Excel工作簿，这个工作簿是你想要另存的目标。

2. 打开VBA编辑器

在Excel中，你可以通过以下步骤打开VBA编辑器：

按下 `Alt + F11` 键，或者点击Excel菜单栏中的“开发工具”选项卡（如果未显示，请先通过“文件”->“选项”->“自定义功能区”来勾选“开发工具”）。

在打开的VBA编辑器中，找到你的工作簿名称，双击它，然后在打开的代码窗口中编写代码。

3. 编写VBA代码

在VBA编辑器中，你可以使用以下代码来另存Excel表格：

```vba

Sub SaveWorkbook()

Dim strFileName As String

Dim strFileExtension As String

Dim strSavePath As String

' 设置保存路径和文件名

strSavePath = "C:\YourPath\"

strFileName = "SavedWorkbook"

strFileExtension = ".xlsx" ' 可以根据需要更改文件扩展名

' 构建完整的文件路径

strFileName = strFileName & Format(Now, "yyyy-mm-dd_hh-mm-ss") & strFileExtension

' 另存工作簿

ThisWorkbook.SaveAs Filename:=strFileName, FileFormat:=xlOpenXMLWorkbook

End Sub

```

这段代码做了以下几件事情：

定义了三个变量来存储文件路径、文件名和文件扩展名。

设置了保存路径和文件名，这里你可以根据需要修改路径和文件名。

使用 `Format(Now, "yyyy-mm-dd_hh-mm-ss")` 来生成一个基于当前时间的唯一文件名，这样可以避免覆盖已有的文件。

使用 `SaveAs` 方法将工作簿另存为指定的文件路径和文件名。

4. 运行VBA代码

编写完代码后，你可以通过以下方式运行它：

在VBA编辑器中，点击“运行”按钮（绿色三角形）。

或者按下 `F5` 键。

或者将代码拖放到VBA编辑器左侧的“快速访问工具栏”中。

5. 保存VBA代码

如果你希望将这段代码保存为宏，以便以后使用，可以按照以下步骤操作：

在VBA编辑器中，点击“文件”->“另存为”。

选择一个位置来保存你的宏，并给它一个文件名。

保存类型选择为“Excel宏表单（*.bas）”。

点击“保存”。