有close、add、open等方法。 Workbooks.close ' 关闭所有打开的工作簿。 Workbooks.Add ' 创建一个新工作簿。 ActiveWorkbook '返回当前处于活动状态的工作簿。 Workbooks.open Filename:="TEST.XLSX", ReadOnly:=True ' 将文件TEST.XLSX打开为只读工作簿 Workbook对象是一个Microsoft Excel 工作簿。有Name、Path等...
Sub OpenWorkbook() Workbooks.Open ("C:\Users\Steven\Desktop\Test1.xlsx") '打开指定工作簿 MsgBox ActiveWorkbook.Name '显示打开工作簿名称 End Sub 详细演示如下: 通过如上代码的演示,在复制完代码到模块1后,按下键盘上的F5键即可执行OpenWorkbook过程,该宏执行完毕后,Excel自动打开名称为Test1.xlsx的工作簿...
Application.GetOpenFileName可以调出标准的“打开”对话框。 如何关闭文件? 关闭文件可以使用Workbooks集合或Workbook对象的 Close 方法。前者是关闭所有打开的工作簿,后者关闭特定的工作簿。 Workbook对象的 Close 方法语法为: expression.Close(SaveChanges, Filename, RouteWorkbook) ' 具体参见微软的文档 来个综合实例巩...
Private SubWorkbook_BeforeClose(Cancel As Boolean) If Me.Saved = False Then Me.Save End Sub Workbook_Open事件可用于在打开工作簿时初始化工作簿,设置计算模式、设置屏幕、添加自定义菜单、为工作表中的组合框或列表框添加数据。Workbook_...
Sub CloseWorkbook() ActiveWorkbook.Close End Sub 如要避免出现提示,可添加“SaveChanges”参数,如直接保存并关闭工作簿: Sub ClostAndSaveWorkbook() ActiveWorkbook.Close Savechanges:=True End Sub 将上述代码中的“True”改为“False”,则直接关闭工作簿而不保存。
If Me.Saved = False Then Me.Save End Sub Workbook_Open事件可用于在打开工作簿时初始化工作簿,设置计算模式、设置屏幕、添加自定义菜单、为工作表中的组合框或列表框添加数据。Workbook_BeforeClose事件可用于恢复工作簿的初始设置、阻止用户关闭工作簿,等等。
方式一:利用索引号引用工作簿,Workbook.Item(3),这里的Item可以省略,即Workbook(3) 方式二:利用工作簿名称引用 ,Workbook("Book1")或Workbook("Book1.xls"),如果本地文件显示拓展名(且文件已经保存),则文件名必须带拓展名,否则会报错。 2、Workbook名片信息 ...
Dim wbs As Workbook For Each wbs In Workbooks wbs.Close SaveChanges:=True Next wb End Sub 使用此宏代码关闭所有打开的工作簿。此宏代码将首先逐个检查所有工作簿并关闭它们。如果未保存任何工作表，您将收到一条消息以保存它。Use this macro code to close all open workbooks. This macro code will ...
Private Sub Workbook_BeforeClose(Cancel asBoolean) If Me.Saved = False Then Me.Save End Sub ‘如果工作簿没有保存,则执行save方法保存工作簿 Workbook.BeforeSave事件 保存工作簿之前发生此事件。 语法:BeforeSave(SaveAsUI, Cancel) SaveAsUI必选Boolean如果...
代码的解析说明：上述代码用于关闭所有工作簿，如果工作簿已改变则弹出是否保存变化的对话框，Workbooks.Close由于后面没有跟true或者false所以若工作簿已改变则弹出是否保存变化的对话框。VBA过程代码72：创建新的工作簿 Sub MyNZ()MsgBox "创建一个带有10个工作表的新工作簿"Dim wb as Workbook Set wb = New...