使用Dim时无效的外部程序

下面的代码会导致“外部程序无效”错误。 有人可以告诉我哪里出了问题吗？

Dim Asset As String, AssetURL As String Asset = Range("B1").Value If Asset = "1" Then AssetURL = "X:\Docs\excel0001.xls" Elseif Asset = "2" Then AssetURL = "X:\Docs\excel0002.xls" End If Range("C1").Value = AssetURL 

Answer 1

确保您可以在多个Subs中运行您的代码的最佳方法是将其设置为Public Sub ：

 Public Sub qwerty() Dim Asset As String, AssetURL As String Asset = Range("B1").Value If Asset = "1" Then AssetURL = "X:\Docs\excel0001.xls" ElseIf Asset = "2" Then AssetURL = "X:\Docs\excel0002.xls" End If Range("C1").Value = AssetURL End Sub 

当你想在其他地方执行这个代码时，你应该使用：

 Sub OtherSub() 'OtherSub Code Call qwerty() 'or just qwerty 'Rest of OtherSub Code End Sub 

有关使用Call来使用另一个Sub相关问题