vba - 在运行调用该模块的程序后访问另一个模块中模块的变量？

Question

我有一个带有 2 个按钮的 excel 文件，可以访问两个不同的模块。我们可以在运行调用该模块的程序后访问另一个模块中的模块变量吗？

我的模块是这样的

第一个模块..

Public Sub Directory_Path()
Dim Directory As String
    Directory = InputBox("Enter the Directory path that contains folders ""This Quarter"",""Last Quarter"",""Second_Last_Quarter"".")
    If Right(Directory, 1) = "\" Then
    Directory = Left(Directory, Len(Directory) - 1)
    End If
End Sub

我使用 Public Sub Directory_Path() 调用了第二个模块中的第一个模块。我希望第一个模块中的目录变量用作第二个模块中的变量...

Answer 1

在第一个模块中 - 在任何子/功能之外的模块顶部将目录声明为公共(public)。它现在可用于该项目中的每个模块:

Public Directory As String

Sub Directory_Path()

    Directory = InputBox("Enter the Directory path that contains folders ""This Quarter"",""Last Quarter"",""Second_Last_Quarter"".")
    If Right(Directory, 1) = "\" Then
    Directory = Left(Directory, Len(Directory) - 1)
    End If

End Sub

在第二个模块中，只需在需要的地方使用名称Directory。示例:

MsgBox "The directory path is " & Directory