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

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（）调用了第二个模块中的第一个模块。我希望第一个模块中的Directory变量用作第二个模块中的变量...

Answer 1

在第一个模块中 - 在任何Sub / Function之外的模块顶部声明Directory为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