1、关闭文件时如果文件做了修改,系统会提示保存,用下列语句就不会提示了: ThisWorkbook.Close savechanges:=False False表示不保存修改,如果改为True,则保存修改。类似的: ActiveWindow.Close savechanges:=False Windows(datfile).Close savechanges:=False 。。。 2、保存文件时如果存在同名文件,系统会提示是否覆盖,用...
Workbook 对象.close(SaveChanges,Filename,RouteWorkbook)关闭某个工作簿。其中：⚫ 所有参数均为可选参数。⚫ 参数 SaveChanges 指定是否保存对工作簿所作的修改。如果没有修改过工作簿，则忽略此参数。如果修改了工作簿，则使用此参数指定是否保存修改；如果参数值设置为 True，则关闭时将保存修改，此时如果工作簿...
expression.Open(FileName,UpdateLinks,ReadOnly,Format,Password,WriteResPassword,IgnoreReadOnlyRecommended,Origin,Delimiter,Editable,Notify,Converter,AddToMru,Local,CorruptLoad) 编辑结束后,如果要关闭工作簿,可以使用Workbook.Close。 expression.Close(SaveChanges,FileName,RouteWorkbook) 代码示例: 代码语言:javascript ...
Sub CloseWorkbookWithoutSaving() ThisWorkbook.Close SaveChanges:=False End Sub ``` 💡 小贴士:这样关闭工作簿,不会保存你做的任何更改哦!2️⃣ 保存并关闭工作簿: ```vba Sub SaveAndCloseWorkbook() Dim wb As Workbook Set wb = ThisWorkbook wb.Close SaveChanges:=True End Sub ``` 💡 小贴士...
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...
ActiveWorkbook.Close SaveChanges:=False End Sub Ø本节内容参考程序文件：Chapter03-2.xlsm 9保存并关闭工作簿Close a Workbook after Saving Sub mynzvba_close_workbook()Dim wbCheck As String wbCheck = Dir(ThisWorkbook.Path & "\myFile.xlsx")If wbCheck = "" Then Workbooks("工作簿1").Close _...
ActiveWorkbook.Close Savechanges:=False End Sub 如果是只保存，不关闭，则使用 ActiveWorkbook.Save 关闭...
Workbook.Close 方法 关闭对象 语法:Close(SaveChanges, Filename, RouteWorkbook) SaveChanges 是否保存修改 Filename 以此文件名保存所做的更改 示例: Workbooks("工作簿1.XLSM").Close SaveChanges:=False Workbook.PrintOut 打印工作簿 语法:PrintOut(From, To, Co...
参数SaveChanges指定是否保存对工作簿所作的修改。如果没有修改过工作簿,则忽略此参数。如果修改了工作簿,则使用此参数指定是否保存修改;如果参数值设置为True,则关闭时将保存修改,此时如果工作簿还没有被命名,则使用参数Filename指定的名称,若没有指定Filena...
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 ...