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

Question

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

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

代码：

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

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

Answer 1

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