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...
如果不希望出现提示,则使用 “SaveChanges”参数 不提示直接保存并关闭工作簿: Sub 先保存再关闭工作薄() ActiveWorkbook.Close Savechanges:=True End Sub 不提示直接不保存并关闭工作簿: Sub 先保存再关闭工作薄() ActiveWorkbook.Close Savechanges:=False End Sub 如果是只保存,不关闭,则使用 ActiveWorkbook.Save ...
SUB的过程是保存并关闭工作薄的过程，ThisWorkbook.Close是指关闭工作薄，savechanges:=True是保存当前的更改。那么什么时候关闭这个工作薄呢？就要在工作薄发生改变后的NUM_MINUTES时间，这个NUM_MINUTES时间是固定的，但程序能检测的是当前的时间，就是NOW+ NUM_MINUTES.2 利用ONTIME方法对执行程序进行设置 当我们打开...
ActiveWorkbook.Close Savechanges:=TrueEnd Sub 将上述代码中的“True”改为“False”,则直接关闭工作簿而不保存。 关闭所有打开的工作簿,并提示是否保存: Sub CloseAllWorkbooks()On Error Resume NextWorkbooks.CloseEnd Sub 退出Excel,并提示对有更改的工作簿进行保存: Sub QuitExcel()Application.QuitEnd Sub 保存...
ActiveWorkbook.Close Savechanges:=True End Sub 将上述代码中的“True”改为“False”,则直接关闭工作簿而不保存。 关闭所有打开的工作簿,并提示是否保存: Sub CloseAllWorkbooks() On Error Resume Next Workbooks.Close End Sub 退出Excel,并提示对有更改的工作簿进行保存: ...
SaveChanges:=True, _Filename:=ThisWorkbook.Path & "\myFile.xlsx"Else MsgBox "Error! Name already used."End If End Sub Ø本节内容参考程序文件：Chapter03-2.xlsm 1创建一个新的工作簿VBA Create New Workbook Sub mynzvba_new_workbook()Workbooks.Add End Sub Ø本节内容参考程序文件：Chapter03-...
如果要避免出现提示，可添加“SaveChanges”参数，如直接保存并关闭工作簿：Sub ClostAndSaveWorkbook()ActiveWorkbook.Close Savechanges:=True End Sub 将上述代码中的“True”改为“False”，则直接关闭工作簿而不保存。关闭所有打开的工作簿，并提示是否保存：Sub CloseAllWorkbooks()On Error Resume Next ...
又或者被打开的工作薄里面有些公式,在打开这个工作薄时公式结果变了(其实也等于是有更新了),在关闭时都会出现这个提示。如果可以确定是否需要更改,可以在保存时加入相应的参数SaveChanges: wbk.Close SaveChanges:=False SaveChanges等于False时即为不保存,等于True时即为保存 ...
Workbooks("test1.xlsx").Close SaveChanges:=True End Sub 下面的代码关闭工作簿test1.xlsx,并将对该工作簿的修改保存到test2.xlsx工作簿中。 Sub CloseAWorkbook1() Workbooks("test1.xlsx").Close SaveChanges:=True, _ Filename:="test2.xlsx"...
SUB的过程是保存并关闭工作薄的过程,ThisWorkbook.Close是指关闭工作薄,savechanges:=True是保存当前的更改。 那么什么时候关闭这个工作薄呢?就要在工作薄发生改变后的NUM_MINUTES时间,这个NUM_MINUTES时间是固定的,但程序能检测的是当前的时间,就是NOW+ NUM_MINUTES. 2 利用ONTIME方法对执行程序进行设置 当我们打开一...