在 subs 之外声明变量

Question

我想在我的 2 个 sub 之外声明一个变量，以便两个 sub 都可以在使用时使用该变量。所以我尝试了以下但我收到 "invalid outside procedure" 错误。

Public strForumURL As String
 Var strForumURL = "x:\docs\...\forum.xls"

sub 1()
AssetURL = strForumURL 
...
end sub

sub 2()
AssetURL = strForumURL 
...
end sub

Answer 1

如果strForumURL不会改变，你可以像这样将它设置为Public Const类型的变量。

Public Const strForumURL As String = "x:\docs\...\forum.xls"

Sub A1()
    Dim AssetURL As String
    AssetURL = strForumURL
    '... use AssetURL
End Sub

Sub A2()
    Dim AssetURL As String
    AssetURL = strForumURL
    '... use AssetURL
End Sub

虽然不能更改strForumURL中的字符串，但可以在将其值赋给AssetURL时使用Replace更改其中的一部分。

    AssetURL = Replace(strForumURL, "http://", "https://")

在 subs 之外声明变量

declaring variable outside subs

excel

vba