Dim wb As Workbook,pathname As String,content As String pathname="D:\OneDrive\文档\test.xlsm"Set wb=GetObject(pathname)wb.Sheets(1).Range("A2").Value2="No 2"Application.Windows(wb.Name).Visible=True wb.Close SaveChanges:=True MsgBox"Done!"End Sub 参考资料: [1] getobject和workbooks.open...
ActiveWorkbook.Close Savechanges:=True End Sub 不提示直接不保存并关闭工作簿: Sub 先保存再关闭工作薄() ActiveWorkbook.Close Savechanges:=False End Sub 如果是只保存,不关闭,则使用 ActiveWorkbook.Save 关闭所有打开的工作簿,并先全部保存: Sub 保存且关闭所有工作簿() On Error Resume Next Workbooks.Close...
Ø本节内容参考程序文件：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 _SaveChanges:=True, _Filename:=ThisWorkbook.Path...
Workbook对象.close(SaveChanges,Filename,RouteWorkbook) 关闭某个工作簿。其中: 所有参数均为可选参数。 参数SaveChanges指定是否保存对工作簿所作的修改。如果没有修改过工作簿,则忽略此参数。如果修改了工作簿,则使用此参数指定是否保存修改;如果参数值设置...
ActiveWorkbook.Close End Sub 如果要避免出现提示，可添加“SaveChanges”参数，如直接保存并关闭工作簿：Sub ClostAndSaveWorkbook()ActiveWorkbook.Close Savechanges:=True End Sub 将上述代码中的“True”改为“False”，则直接关闭工作簿而不保存。关闭所有打开的工作簿，并提示是否保存：Sub CloseAll...
wb.Closesavechanges:=True 注意:当工作簿内包含有宏表的时候,则无法设置Password属性。 在有密码保护的工作簿中,也无法插入宏表。 当用代码获取Password属性时,返回的是一串*号。 讲讲在工作簿中的表。 准备代码: Sheets.Add Type:=xlWorksheet '插入工作表 ...
ThisWorkbook.Close savechanges:=True End Sub 上述的代码在声明部分给出了一个RunWhen变量是Public的，这个变量在整个工程中都是可以使用的同一个变量。SUB的过程是保存并关闭工作薄的过程，ThisWorkbook.Close是指关闭工作薄，savechanges:=True是保存当前的更改。那么什么时候关闭这个工作薄呢？就要在工作薄发生改变后...
ActiveWorkbook.Close Savechanges:=True End Sub 将上述代码中的“True”改为“False”,则直接关闭工作簿而不保存。 关闭所有打开的工作簿,并提示是否保存: Sub CloseAllWorkbooks() On Error Resume Next Workbooks.Close End Sub 退出Excel,并提示对有更改的工作簿进行保存: ...
ThisWorkbook.Close savechanges:=True End Sub 上述的代码在声明部分给出了一个RunWhen变量是Public的,这个变量在整个工程中都是可以使用的同一个变量。 SUB的过程是保存并关闭工作薄的过程,ThisWorkbook.Close是指关闭工作薄,savechanges:=True是保存当前的更改。
xlbook1.Close savechanges:=True xlapp1.Quit '关闭测试数据工作簿 Set xlapp1=Nothing MsgBox"Done!"Else MsgBox"文件路径不存在:"&path&vbCrLf&vbCrLf&"请确认!"End If End Sub FunctionfileExist(path As String)As Boolean '判断指定路径的文件是否存在 ...