Vba 如何在整个会话中存储变量？

我需要存储一个变量值，直到文档关闭

例如：打开文档后，我运行宏，该宏将使用“filedialog”选项获取变量值，该变量应被所有其他宏使用

代码：

---

stylepath变量也应该被其他宏使用。打开文档后，我将通过调用此宏函数来设置此变量，稍后该变量应在整个会话中存储，并可供其他函数使用。

您可以将Dim语句放在模块顶部的Option Explicit（选项显式）下但任何子例程之前，从而使变量成为全局变量。过度使用全局变量通常被认为是不好的形式，但有时这是完成任务最直接的方式

sub getvariable()

Dim docTitle As Document
Dim stylepath As String
Dim stylename As FileDialog
MsgBox ("Please choose Reference File")

Set stylename = Application.FileDialog(filedialogtype:=msoFileDialogFilePicker)
If stylename.Show Then
    stylepath = stylename.SelectedItems(1)
End If