excel - Excel VBA 如何从 Module1 模块访问在 Thisworkbook 模块中创建的数据

Question

我想做的是：

在 ThisWorkbook 模块中：

Option Explicit
'//== Does something need to go up here?  ==//
_________________

Private Sub Workbook_Open()

Public cellArray() As String
    
    '//==  init cellArray() ==//
    cellArray(0) = "start"      '//== for example  ==//
    
End Sub

在 Module1 模块中：

Option Explicit
'//== Does something need to go up here?  ==//
_________________

Sub mySub()

Dim localvariable as string

    local variable = ThisWorkbook.cellArray(0)      '//== for example  ==//
    '//== Does something different need to go here?  ==//

End Sub

这样的事情甚至可能吗？

谢谢，

标签： excelvba

Answer 1

本工作簿：

Option Explicit

Private Sub Workbook_Open()
    ReDim cellArray(0)
    cellArray(0) = "start"      
End Sub

模块1：

Option Explicit

Public cellArray() As String

Sub mySub()
    Dim localvariable as string
    localvariable = cellArray(0)
    Debug.Print localvariable     
End Sub