Question

我想在我的2个subs之外声明一个变量，以便两个subs在使用时都可以使用该变量。所以我尝试了以下但我收到“无效的外部程序”错误。

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中的字符串，但在将其值分配给Replace时，您可以使用AssetURL更改其中的一部分。

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

在变量外部声明变量

1 个答案: