Excel VBA:保存和关闭工作簿(5个合适的例子)

  • Share This
Hugh West

在这篇文章中,我们将向你展示 5 使用方法 Excel VBA 拯救 关闭工作簿 由于时间是非常宝贵的,我们可以通过跳过平凡的任务来节省大量的时间。 Excel VBA 此外,我们采取了一个数据集,其中包括 3列 : " 命名 ", " 出生 ",以及" 最新作品 "。 这个数据集代表了 6 人们的出生年份和他们的最新电影信息。

下载实践工作手册

保存和关闭工作簿的VBA.xlsm

在Excel中使用VBA保存和关闭工作簿的5个例子

1.通过使用Excel VBA保存和关闭活动工作簿

对于第一种方法,我们将 拯救 关闭 活跃的工作手册 使用 VBA宏程序 我们将提出。 VBA模块 窗口,输入我们的代码,然后执行代码,以实现我们的目标。 闲话少说,让我们跳到按步骤的程序。

步骤。

在输入我们的代码之前,我们需要调出 VBA模块 要做到这一点--

  • 首先,从 开发商 标签>>> 选择 视觉基础 .

或者,你可以按 ALT + F11 也可以这样做。 微软Visual Basic 适用范围 "将出现在这之后。

  • 其次,从 插入 >>> 选择 模块 .

在这里,我们将输入我们的代码。

  • 第三,在以下代码中输入 模块 .
 Sub Save_and_Close_Active_Workbook() ActiveWorkbook.Close SaveChanges:=True End Sub 

VBA代码分解

  • 首先,我们正在调用我们的 子程序 保存并关闭活动工作簿 .
  • 那么,我们是指我们目前的 工作手册 作为 活跃的工作簿 .
  • 此后,使用 关闭 我们的方法是 关闭 我们的文件。
  • 最后,我们设定 保存更改 ,这将拯救我们的 工作手册 关闭 .

现在,我们将执行我们的代码。

  • 首先。 拯救 这个 模块 .
  • 第二,点击我们的代码内部。
  • 最后,按 运行 按钮。

如果我们去找我们的 Excel应用 ,我们将看到我们的 工作手册 因此,我们已经成功地 节省了 关闭的 工作手册 使用 Excel VBA .

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

2.Excel VBA保存和关闭特定工作簿

对于第二种方法,我们将使用 拯救 关闭 一个具体的 工作手册 使用其他 VBA 在这里,我们已经打开了两个 工作簿 而我们将 保存 关闭 第一个 工作手册 从左边开始。

步骤。

  • 首先。 如方法1所示 ,调出 VBA模块 .
  • 第二,在里面输入这段代码 模块 .
 Sub Save_and_Close_Specific_Workbook() Workbooks("Macro Save and Close.xlsm").Close SaveChanges:=True End Sub 

VBA代码分解

  • 首先,我们正在调用我们的 子程序 保存并关闭特定的工作簿 .
  • 然后,我们指的是我们的第一个 工作手册 里面的 工作簿对象 .
  • 此后,使用 关闭 我们的方法是 关闭 我们的文件。
  • 最后,我们设定 保存更改 ,这将拯救我们的 工作手册 关闭 .
  • 第三。 如方法1所示 ,执行该代码。

在这之后,我们将看到,第一个 工作手册 关闭的 而只有第二个 工作手册 开放 因此,我们已经向你展示了另一种方法。 节约 关闭 a 工作手册 .

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

3.保存并关闭特定文件夹中的特定工作簿

对于第三种方法,我们要做的是 拯救 关闭 a 具体工作手册 在一个 文件夹 使用 Excel VBA .

步骤。

  • 首先。 如方法1所示 ,调出 VBA模块 .
  • 第二,在里面输入这段代码 模块 .
 Sub Save_and_Close_Workbook_in_Specific_Folder() Workbooks("Macro Save and Close.xlsm").SaveAs _ Filename:="C:\Users\Rafi\OneDrive\Desktop\Exceldemy\Macro Save and Close.xlsm" Workbooks("Macro Save and Close.xlsm") 。End Sub 

VBA代码分解

  • 首先,我们正在调用我们的 子程序 保存和关闭特定文件夹中的工作簿 .
  • 此后,使用 拯救行动 我们的方法是 节约 我们的文件在一个特定的位置。
  • 然后,我们保持文件名与原始文件相同 工作手册 .
  • 最后,我们 关闭 我们的 工作手册 .
  • 第三。 如方法1所示 ,执行该代码。

在这之后,它将 拯救 我们的 工作手册 在我们定义的文件夹位置内,以及 关闭 因此,我们已经向你展示了另一种方法 节约 关闭工作手册 在一个 特定文件夹 使用 VBA .

阅读更多。 Excel VBA Macro将PDF保存在特定文件夹中(7个理想的例子)。

类似读物

  • 拯救工作簿--Excel VBA:无需提示即可保存工作簿(简易步骤)
  • [修复!]为什么Excel不保存我的格式? (7种可能的原因)
  • 如何保存Excel为PDF景观(与快速步骤)。
  • 拯救世界上最伟大的人--中国人
  • [固定!]Excel CSV文件不保存更改(6种可能的解决方案)。

4.在Excel中插入保存和关闭工作簿的按钮

对于第四种方法,我们将创建一个 VBA按钮 关闭并保存Excel中的工作簿。

步骤。

  • 首先。 如方法1所示 ,调出 VBA模块 .
  • 其次,在里面输入这段代码 模块 .
 Sub Button_Click_Save_and_Close_Workbook() ThisWorkbook.Save Application.Quit End Sub 

VBA代码分解

  • 首先,我们正在调用我们的 子程序 点击 "保存并关闭工作簿 "按钮 .
  • 此后,使用 拯救 我们的方法是 节约 我们的工作手册
  • 最后,我们 关闭 我们的 工作手册 使用 辞职 方法。

现在,我们将插入 VBA 这里的按钮。

  • 首先,从 开发商 标签>>>。 插入 >>> 选择 钮扣 (表格控制) .

  • 然后,鼠标光标将改变,并拖动一个方框在 工作手册 .

在这之后, 指派宏的对话框 将会出现。

  • 然后,选择" 点击 "保存并关闭工作簿 "按钮 ".
  • 之后,按 认可 .

然后,我们将看到 按钮1 工作手册 .

  • 最后,点击按钮。

这将 保存 关闭 我们的 工作手册 .

阅读更多。 在Excel中保存按钮的VBA代码(4种变体)

5.应用Excel VBA保存并关闭所有打开的工作簿

在这最后一个方法中,我们将保存并关闭所有打开的 工作簿 这一次,我们有同样的两个 工作簿 如法炮制 3 然而,这一次,我们将 拯救 关闭 两个 工作簿 在这里,我们将使用 下一个循环 通过我们的 工作簿 .

步骤。

  • 首先。 如方法1所示 ,调出 VBA模块 .
  • 第二,在里面输入这段代码 模块 .
 Sub CloseAndSaveOpenWorkbooks() Dim z As Workbook With Application For Each z In Workbooks With z If Not z.ReadOnly Then .Save End If .Name ThisWorkbook.Name Then .Close End If End With Next z .Quit End With End Sub 

VBA代码分解

  • 首先,我们正在调用我们的 子程序 关闭并保存打开的工作簿 .
  • 然后,我们在使用一个 对于下一个循环 循环浏览所有 工作簿 .
  • 此后,使用 拯救 我们的方法是 节约 我们的文件。
  • 然后,我们 关闭 所有的 工作簿 除了我们目前的 工作手册 .
  • 最后,我们有 关闭的 原件 工作手册 使用 辞职 财产。
  • 第三。 如方法1所示 ,执行该代码。

因此,它将 拯救 关闭 两者 工作簿 我们可以看到 修改日期 是相同的,对于两个 工作簿 总而言之,我们已经表明 5 不同的 Excel VBA 宏程序 拯救 关闭工作簿 .

阅读更多。 如何将宏程序保存到个人宏程序工作簿?

总结

我们已经向你展示了 5 快捷易懂 Excel VBA 拯救 关闭工作簿 如果你遇到任何问题,请随时在下面评论。 此外,你可以访问我们的网站 优秀 更多 与Excel有关的 谢谢你的阅读,请继续努力。

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.