1)在打开该文件后,通过显示菜单中的取消隐藏功能让表格再显示出来。 2)在wb.Close SaveChanges:=True之前添加一句代码,Application.Windows(wb.name).Visible = True。 代码示例: 代码语言:javascript 代码运行次数:0 运行 AI代码解释 Subtest4()'使用GetObject函数打开工作簿,修改内容,文件不会被隐藏 Dim wb As ...
Sub close() ActiveWorkbook.Close SaveChanges:=False End Sub 将当前工作簿关闭,SaveChanges为False表示不保存当前更改。 8. 保护工作簿的结构和窗体 Sub protect() ActiveWorkbook.Protect Password:="pass", Structure:=True, Windows:=True End Sub 该操作相当于在Excel2007中,选择“Review”菜单,选择“Protect Wo...
1、关闭文件时如果文件做了修改,系统会提示保存,用下列语句就不会提示了: ThisWorkbook.Close savechanges:=False False表示不保存修改,如果改为True,则保存修改。类似的: ActiveWindow.Close savechanges:=False Windows(datfile).Close savechanges:=False 。。。 2、保存文件时如果存在同名文件,系统会提示是否覆盖,用...
VBA关闭工作簿的方法是 : Workbook.Close 退出Excel的方法是: Application.Quit 关闭工作簿,如果想提示是否保存,则Close时不加参数 Sub 关闭工作薄() ActiveWorkbook.Close End Sub 如果不希望出现提示,则使用 “SaveChanges”参数 不提示直接保存并关闭工作簿: Sub 先保存再关闭工作薄() ActiveWorkbook.Close Save...
ResumeNextSetwb=Workbooks.Open(FileName:=Path,ReadOnly:=True,UpdateLinks:=False)IfErr.Number>0Thenq="Open file again with Repair option"wb.Closesavechanges:=FalseSetwb=NothingSetwb=Workbooks.Open(FileName:=Path,ReadOnly:=True,CorruptLoad:=XlCorruptLoad.xlRepairFile,UpdateLinks:=False)'try fixing...
Workbooks("test1.xlsx").Close SaveChanges:=False End Sub 其中,语句ThisWorkbook.Path获取代码所在工作簿的路径。 运行效果如下图1所示。 图1 示例代码4:拆分工作簿 下面的代码将当前工作簿中的每个工作表都保存为一个工作簿,新工作簿保存在与原工作...
wrdDoc.Close SaveChanges:=False End Sub Sub SaveToExcel() '原来导出的是word文件,扩展名改一下 fileName = Replace(fileName, ".docx", ".xlsx") Workbooks.Add With ActiveWorkbook If Me.CkbTitle Then .Sheets(1).Range(Cells(1, 1), Cells(1, UBound(arrTem, 1) + 1)).MergeCells = True ...
此示例关闭 Book1.xls,并放弃所有对此工作簿的更改。 VB Workbooks("BOOK1.XLS").Close SaveChanges:=False 支持和反馈 有关于 Office VBA 或本文档的疑问或反馈? 请参阅Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。 反馈 此页面是否有帮助? 是否...
要用VBA来关闭工作簿，用Workbook.Close 方法即可，而要退出Excel，则用Application.Quit 方法。下面是一些代码示例：关闭活动工作簿，如果工作簿有更改，提示是否保存：Sub CloseWorkbook()ActiveWorkbook.Close End Sub 如果要避免出现提示，可添加“SaveChanges”参数，如直接保存并关闭工作簿：Sub ClostAnd...
wb.Close savechanges:=False'false为不保存,true为保存 1. 2. 3. 4. 当前VBA依托的Excel工作簿对象名称为ThisWorkbook,当需要对其进行操作时,使用如下代码: ThisWorkbook.Sheets(1).Cells(1, 1) = "hello" 1. 二、VBA设置单元格属性 设置单元格格式 ...