Dim wb As Workbook Set wb = ThisWorkbook ' 当前工作簿 ' 修改引用名称为"NewWorkbookName" wb.Name = "NewWorkbookName" ' 打印修改后的引用名称 MsgBox "工作簿的引用名称已修改为:" & wb.Name End Sub 在上述代码中,我们首先声明了一个Workbook对象wb,并将其设置为当前工作簿(ThisWorkbook)。然后,通过...
' 创建一个新的工作簿 Set wb = Workbooks.Add ' 给工作簿命名 wb.Name = "Workbook_" & i ' ...
1、BeforeClose：当工作簿即将关闭之前触发，执行相应代码。Private Sub Workbook_BeforeClose(Cancel As Boolean) Me.Save MsgBox "你关闭了文件：" & Chr(10) & Me.Name & Chr(10) & "欢迎下次再来！"End Sub 2、Open事件：当工作簿被打开时触发，执行相应代码。Private Sub Workbook_Open() MsgB...
Dim strWorkbookname As String strWorkbookname = "工作簿12" MsgBox "工作簿" & strWorkbookname & "是否打开:"& WorkbookIsOpen1(strWorkbookname) MsgBox WorkbookIsOpen1("") MsgBox WorkbookIsOpen2("") End Sub Function WorkbookIsOpen1(strWorkbookname ...
获取指定的工作簿中工作表名称而非本工作簿中表的名称，下面的代码可以使用：Sub 提取name()Dim wk As Workbook Dim sh As Worksheet Dim rw As Byte Set wk = Workbooks.Open("D:\函数习题\第1章 函数基础.xls")For Each sh In Workbooks(2).Worksheets rw = rw + 1 ThisWorkbook.Sheets(1...
Private Sub Workbook_BeforeClose(Cancel As Boolean) Me.Save MsgBox "你关闭了文件:" & Chr(10) & Me.Name & Chr(10) & "欢迎下次再来!" End Sub 2、Open事件:当工作簿被打开时触发,执行相应代码。 Private Sub Workbook_Open() MsgBox "欢迎打开:" & Chr(10) & ThisWorkbook.Name ...
Dim wbNew As Workbook Dim ws As Worksheet Dim i As Integer Set fd = Application.FileDialog(msoFileDialogFilePicker)With fd .Title = "请选择目标工作簿".Filters.Clear .Filters.Add "Excel工作簿", "*.xlsx, *.xls, *.xlsm", 1 If .Show = -1 Then Set wbTarget = Workbooks.Open(.Selected...
可以参考下面的代码：Sub test()Dim iFile As String iFile = ThisWorkbook.Path & "\" & "技术质量.xls"Workbooks.Add ActiveWorkbook.SaveAs iFile, True MsgBox "新建Excel工作薄完成," & vbCrLf & "完整路径及名称:" & vbCrLf & iFile End Sub ...
Sub Open 法()Dimarr Dim n&, i&, j&, s$Dim wb AsWorkbook, sht As Worksheet, wbk As WorkbookDimmyPath$, myFile$Application.ScreenUpdating = False 禁刷新 Application.Calculation = xlManual禁计算Set wbk = ThisWorkbook myPath = ThisWorkbook.Path & myFile = Dir(myPath & *.xls) 3、n =...
SubMergeWorkbook()'将多个工作簿的第一张工作表合并到目标工作簿中 Dim folder_path As String,filename As String Dim first_sheet As Worksheet,wb As Workbook,ii As Integer Dim temp_name As String '关闭屏幕刷新 Application.ScreenUpdating=False ...