excel - 用值定义跨模块变量

Question

我正在开发一堆 Excel 宏来让我的生活更轻松。不同宏的一部分是将图片插入工作表中。出于这个原因，我想将图像的路径保存在全局位置，然后通过变量访问它(这样我就不必手动调整每个宏中的路径，如果它发生变化)。我每个宏使用一个模块

在我自己的模块“变量”中，我将一个变量定义为公共(public)或全局，然后通过子分配一个值。如果我现在通过另一个模块访问这个变量，我会得到一个空的 MsgBox。
出于测试目的，我使用了一个我想通过 MsgBox 显示的字符串。

模块 1:

Public test As String
Sub variablen()
    test = "String for Test "
End Sub

模块 2:

Public Sub testpublic()
    MsgBox (test)
End Sub

Answer 1

我建议使用常量而不是变量:

模块 1

Option Explicit

Public Const MyPath As String = "C:\Temp"

模块二

Option Explicit

Public Sub ShowPath()
    MsgBox MyPath
End Sub

我还建议激活 Option Explicit : 在 VBA 编辑器中转到工具 › 选项 › Require Variable Declaration .

如果你像你一样做 test在运行过程 variablen 初始化之前为空第一的。如果您使用 Public Const不需要初始化。