將工作簿分配給變量

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 。

如果要將ActiveWorkbook設置為對象WRBK ，則需要在WRBK模塊WRBK定義為Public ，然后使用類似下面的代碼：

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