変数にワークブックを割り当てる

Question

変数にActiveWorkbookを設定したいワークブックが同時に開くと、ActiveWorkbookが変数に割り当てられ、その変数がVBAのExcelプロジェクト全体で使用できます。 Workbook_open（）関数でThisWorkbook excelオブジェクトに割り当てようとしましたが、動作しません。そのコードを以下に示します。

Private Sub Workbook_Open() On Error Resume Next Set WRBK = ActiveWorkbook #If Mac Then #Else 'unprotectVBProjProp UnlockVBA ' Sujith ID: 12482 AddReferences ' Sujith ID: 12482 ' protectVBProjProp #End If 'MsgBox "xla Workbook opened" Set eventInstance = New bwEvents End Sub

だから私は、変数にactiveworkbook設定することができますか？

Answer 1

#If Mac ThenとUnlockVBAのように、どのコマンドが真ん中にあるのかよく分かりません。

あなたがWRBKをオブジェクトへActiveWorkbookを設定したい場合は、あなたがPublicとしてregulareモジュールでWRBKを定義する必要があり、その後、次のコードのようなものを使用します：

コードはThisWorkbookモジュールで

Private Sub Workbook_Open() 

    Set WRBK = ActiveWorkbook 

    TestWorkbookName ' call sub <-- this is just to test the the workbook was assigned correctly 

End Sub 

正規モジュール内のコード

Option Explicit 

Public WRBK As Workbook 

Sub TestWorkbookName() 

MsgBox WRBK.Name 

End Sub