将工作簿分配给变量

【问题标题】：Assign workbook to variable将工作簿分配给变量
【发布时间】：2017-10-24 13:09:50
【问题描述】：

我想将 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 设置为变量？？

【问题讨论】：

标签： excel vba

【解决方案1】：

我不太确定中间的所有命令是什么，例如 #If Mac Then 和 UnlockVBA。

如果要将ActiveWorkbook 设置为对象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

【讨论】：