Excel VBA保存为文件格式(12个合适的例子)

  • Share This
Hugh West

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

下载实践工作手册

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

VBA保存为文件格式.xlsm

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保存为文件格式 继续使用它们,如果你有更多的方法来完成任务,请告诉我们。 遵循 ǞǞǞǞ 如果你有任何意见、建议或疑问,别忘了在下面的评论区提出。

Hugh West is a highly experienced Excel trainer and analyst with over 10 years of experience in the industry. He holds a Bachelor's degree in Accounting and Finance and a Master's degree in Business Administration. Hugh has a passion for teaching and has developed a unique teaching approach that is easy to follow and understand. His expert knowledge of Excel has helped thousands of students and professionals worldwide improve their skills and excel in their careers. Through his blog, Hugh shares his knowledge with the world, offering free Excel tutorials and online training to help individuals and businesses reach their full potential.