式Workbook オブジェクトを表す変数。 パラメーター テーブルを展開する 名前必須/ オプションデータ型説明 SaveAsUI 必須 ブール型 (Boolean) True の 場合、ブックに保存する必要がある変更が原因で [ 名前を付 けて保存] ダイアログ ボックスが表示されます。 Cancel 必須 Boolean イベン...
1、ThisWorkbook.Save 'Save相当于你手工单击 保存按钮;这个函数无参数 语法如下:expression.Save 参数expression是必需的,该表达式返回一个Workbook对象。 这种方法相当于我们在用鼠标点击“保存”按钮,这时工作薄将覆盖原来保存的文件为最新的文件 2、ThisWorkbook.SaveAs ' 另存为工作簿 把当前工作簿另存为一份新的...
式。WorkbookBeforeSave(Wb,SaveAsUI,Cancel) expressionApplicationオブジェクトを表す変数。 パラメーター 名前必須 / オプションデータ型説明 Wb必須Workbookブックが渡されます。 SaveAsUI必須ブール型 (Boolean)ブックに保存する必要がある変更が行われたために [名前を付けて保存] ダイアログ ボ...
Workbooks(name1).Close SaveChanges:=False '关闭指定name1 ThisWorkbook.Close SaveChanges:=False '关闭指定工作薄 ActiveWorkbook.Close SaveChanges:=False '关闭当前活动工作薄
在保存工作簿之前,发生Workbook_BeforeSave事件。其语法为: Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel AsBoolean) 说明: 参数SaveAsUI为布尔值,如果设置为True,将打开“另存为”对话框。 参数Cancel为布尔值,当该事件发生时为False。如果将...
Sub vba_close_workbook() Dim wbCheck As String wbCheck = Dir("C:UsersDellDesktopmyFoldermyFile.xlsx") If wbCheck = "" Then Workbooks("Book6").Close _ SaveChanges:=True, _ Filename:="C:UsersDellDesktopmyFoldermyFile.xlsx" Else MsgBox "Error! Name already used." End If End Sub...
The Idea:So if other users change the workbook name, i need a macro that when someone later hits save, it will change/rename workbook name to a specific name...
1、定义一个WorkBook对象 Dim wb As Workbook 这里的wb,就是一个WorkBook对象,wb只是一个代号,用什么其他字符串都可以,只要符合VBA的命名规范。但我们建议还是要定义一个有一定意义的对象、变量名称,并且尽量保持一惯性。这样做的好处是显而易见的,一是加快你写代码的速度,二是复制代码的时候,改动的地方会比较少...
workbook"的 Private Sub Workbook_BeforeClose(Cancel As Boolean) 中加入如下句子：myNowTime = Format(Now, "yymmdd" &"-" & "hhmmss")ActiveWorkbook.SaveAs Filename:=currPath & myNowTime &".xls", AddToMru:=False ‘（”currPath“为你的路径及文件名称）...
Sub vba_save_workbook() 'variable to use as a workbook Dim wb As Workbook 'For each to loop through each open workbook and save it For Each wb In Workbooks wb.Save Next wb End Sub The above code uses the FOR EACH loop in each workbook it uses the SAVE method for each file one by...