我们将重要信息存储在 ǞǞǞ 我们也会根据我们的要求进行各种操作。 因此，一旦我们更新了文件，就有必要保存它。 否则，我们可能会丢失一些有价值的数据。 有一些有效的方法来 拯救 一个 Excel工作簿 此外，保存一个 ǞǞǞ 按照我们所期望的 格式 ，或将文件存储在所需的 地点 在这篇文章中，我们将向你展示最有用的例子。 Excel VBA保存为文件格式 .

下载实践工作手册

下载以下工作手册，自己练习。

12个Excel VBA保存为文件格式的例子

为了说明这一点，我们将使用以下数据集作为例子。 例如，该数据集代表了 业务员 , 产品 ，以及 净销售额 在这里，我们将通过应用以下方法保存这个工作簿 Excel VBA保存为文件格式 .

1.以VBA方式保存为Excel文件

在我们的第一个例子中，我们将向你展示一个简单的 VBA代码 来保存一个 ǞǞǞ 因此，请按照下面的步骤来执行这项任务。

步骤。

• 首先，到 开发者标签。
• 然后，选择 视觉基础 .

• 因此， VBA 窗口会跳出来。
• 之后，点击 插入 .
• 随后，选择 模块 .

• 因此， 模块 窗口将出现。
• 之后，复制以下代码并将其粘贴到盒子里。

 Sub Example_1() ActiveWorkbook.SaveAs End Sub 

• 现在，运行代码，按 F5 .
• 因此，你必须按要求输入文件名、格式和其他信息。
• 最后，它将把文件保存在你指定的位置。

阅读更多。 如何使用Excel VBA将工作表保存为一个新文件

2.用Excel VBA指定文件扩展名

在前面的例子中，我们必须手动指定 文件格式 但在这里，我们将展示一种更有效的方法来应用 Excel VBA保存为文件格式 我们只需在文件名后指定文件扩展名即可。 因此，在文件中插入以下代码 模块 窗口。

 Sub Example_2() Dim location As String location = "D:\SOFTEKO\excel vba save as file format.xlsm" ActiveWorkbook.SaveAs Filename:=location End Sub 

通过这种方式，你可以运行代码来获得所需格式和位置的文件。 将文件保存为xlsx格式。 类型 xlsx 以代替 xlsm .

阅读更多：Excel VBA宏保存在特定文件夹中的PDF（7个理想的例子）。

3.Excel VBA使用的文件格式代码

然而，我们可以输入 文件格式代码编号 一些有用的代码是。 .xlsx = 51 , . xlsm = 52 , .xlsb = 50 , .xls = 56 因此，复制以下代码并将其粘贴到 模块 箱子。

 Sub Example_3() Dim location As String location = "D:\SOFTEKO\excel vba save as file format" ActiveWorkbook.SaveAs Filename:=location, FileFormat:=52 End Sub 

阅读更多。 [修复！]为什么Excel不保存我的格式？ (7种可能的原因)

4.用VBA保存在同一目录下

在这个例子中，我们将展示如何 拯救 在 同一目录 其中文件已经与 Excel VBA 因此，将代码插入到 模块 窗口。

 Sub Example_4() ActiveWorkbook.SaveAs Filename:="excel vba save as file format" End Sub 

阅读更多。 Excel VBA：选择位置并保存为PDF

5.VBA在新目录中的存储

然而，我们可能还需要将文件保存在一个 新目录 .因此，在下面的代码中输入 模块 盒子并运行它。

 Sub Example_5() Dim location As String location = "D:\SOFTEKO\excel vba save as file format" ActiveWorkbook.SaveAs Filename:=location End Sub 

6.要求提供密码以打开Excel文件

此外，你可以申请 Excel VBA保存为文件格式 来要求 密码 至 打开Excel文件 因此，插入并运行以下代码。

 Sub Example_6() ActiveWorkbook.SaveAs _ Filename:="D:\SOFTEKO\excel vba save as file format.xlsm", Password:="one" End Sub 

阅读更多。 如何用密码保存Excel文件

类似读物

• Excel VBA以变量名称保存文件（5个例子）
• 如何保存Excel为PDF景观（与快速步骤）。
• 拯救世界上最伟大的人--中国人
• 在Excel中保存按钮的VBA代码(4种变体)
• [固定！]Excel CSV文件不保存更改（6种可能的解决方案）。

7.在Excel中添加密码进行编辑

此外，你可以要求 密码 为 编辑工作 在 ǞǞǞ 没有密码，它只能以只读格式打开。 复制代码并粘贴。 然后，运行该代码。

 Sub Example_7() ActiveWorkbook.SaveAs _ Filename:="D:\SOFTEKO\excel vba save as file format.xlsm", WriteRes:="one" End Sub 

8.以只读格式打开

同样，对于打开一个文件，在 只读格式 输入以下代码，然后按 F5 来运行它。

 Sub Example_8() ActiveWorkbook.SaveAs _ Filename:="D:\SOFTEKO\excel vba save as file format.xlsm", _ ReadOnlyRecommended:=True End Sub 

阅读更多。 如何用VBA Excel打开Word文档并保存为PDF或Docx？

9.生成 "另存为 "对话框

的另一个有用的操作是 Excel VBA保存为文件格式 是为了产生 另存为对话框 因此，插入以下代码。

 Sub Example_9() Application.GetSaveAsFilename End Sub 

阅读更多。 Excel宏保存为PDF（5个合适的例子）。

10.用VBA创建& 保存新工作簿

除了保存文件之外，我们还可以 创建和保存新的工作簿 与 VBA 要完成这项任务，请在 "我的 "中键入以下代码。 模块 窗口，并按 F5 .

 Sub Example_10() Dim book As Workbook Set book = Workbooks.Add Application.DisplayAlerts = False book.SaveAs Filename:="D:\SOFTEKO\excel vba save as file format.xlsm" Application.DisplayAlerts = True End Sub 

阅读更多：Excel VBA：将工作表保存为新工作簿而不打开

11.在Excel中保存活动工作簿

同样，我们可以保存已经存储的活动工作簿。 为了执行该操作，插入非常简单的代码。

 Sub Example_11() ActiveWorkbook.Save End Sub 

阅读更多。 如何为Excel中的所有工作簿保存一个宏程序（简易步骤）

12.用VBA在Excel中保存为PDF格式

最后，我们可以使用 PDF 文件扩展名在我们的 VBA 代码，以保存在 PDF格式 所以，应用 Excel VBA保存为文件格式 然后，按以下步骤运行代码 F5 .

 Sub Example_12() ActiveSheet.SaveAs Filename:="excel vba save as file format.pdf" End Sub 

阅读更多。 如何保存Excel为PDF（6个有用的方法）。

总结

从此以后，你就可以在保存文件时使用 Excel VBA保存为文件格式 继续使用它们，如果你有更多的方法来完成任务，请告诉我们。 遵循 ǞǞǞǞ 如果你有任何意见、建议或疑问，别忘了在下面的评论区提出。