如何在SolidWorks VBA的不同Sub间共享全局字符串变量？

核心原因分析 #

你的公共变量FolderName为空，大概率是两种情况：

1. SaveFiles子程序没有在UserInput之前执行，导致变量从未被赋值；
2. 公共变量定义在窗体模块而非标准模块中，其他模块无法直接访问到该变量。

下面是几种无需修改原有UserInput调用方式的解决办法：

方法1：确保SaveFiles提前执行 #

在UserInput开头添加判断，若FolderName未赋值则自动调用SaveFiles，避免依赖调用顺序：

Public Sub UserInput(Parameter1 As String, Parameter2 As String, Parameter3 As String)
  ' 补全参数的类型声明，避免变体类型隐患
  If FolderName = "" Then
    SaveFiles ' 自动触发赋值
  End If
  
  For i = LBound(ArrayList) To UBound(ArrayList)
    Debug.Print "FolderName = ", FolderName
  Next
End Sub

方法2：给UserInput添加可选参数 #

通过Optional关键字新增可选参数，既不影响原有窗体的调用（不会触发"参数不可选"错误），又能灵活传递值：

Public Sub UserInput(Parameter1 As String, Parameter2 As String, Parameter3 As String, Optional inputFolderName As String = "")
  ' 优先使用传入的可选参数，没有则用公共变量
  Dim targetFolder As String
  targetFolder = IIf(inputFolderName <> "", inputFolderName, FolderName)
  
  For i = LBound(ArrayList) To UBound(ArrayList)
    Debug.Print "FolderName = ", targetFolder
  Next
End Sub

窗体中原有Call UserInput(p1, p2, p3)无需修改，同时你也可以在其他地方调用时传入文件夹名：Call UserInput(p1, p2, p3, "NEW_FOLDER")。

方法3：修正公共变量的作用域 #

如果你的Public FolderName是定义在窗体模块中，需要把它移到标准模块（比如新建一个Module1）中，这样全局所有模块都能直接访问。标准模块中的代码示例：

' 标准模块 Module1
Public FolderName As String

Public Sub SaveFiles()
   FolderName = "SOLID"  
End Sub

之后在窗体的UserInput中，明确指定模块名访问变量（避免重名冲突）：

Public Sub UserInput(Parameter1 As String, Parameter2 As String, Parameter3 As String)
  For i = LBound(ArrayList) To UBound(ArrayList)
    Debug.Print "FolderName = ", Module1.FolderName
  Next
End Sub

内容的提问来源于stack exchange，提问作者JetskiS