2、工作簿Workbook中this和active

大六九

1、区别Thisworkbook 和 Activeworkbook
Ahisworkbook当前工作簿，代码所在工作簿
Activeworkbook活动工作簿，被激活的工作簿
例：
Sub 当前与活动工作簿区别()
MsgBox ThisWorkbook.Name & "--" & ActiveWorkbook.Name
End Sub

2、path 工作簿路径 和 fullname工作簿路径+工作簿名字
Sub 运用()
MsgBox ThisWorkbook.Path & Chr(10) & ThisWorkbook.FullName
MsgBox ThisWorkbook.Name
End Sub

3、例子
Sub 验证当前工作簿是否已打开()
Dim wk As Workbook, a
For Each wk In Workbooks
a = wk.Name
    If wk.Name = "123.xlsm" Then
        wk.Activate
        MsgBox "已激活工作簿" & wk.Name
        Exit Sub
    End If
Next wk
MsgBox "没有发现工作簿：123.xlsm"
End Sub

MatthewLee

前来学习   谢谢分享