VBA用户窗体中已赋值String变量跨过程调用返回空值问题

空值问题核心是变量作用域错误：你当前把FileName1、FileName2声明在各自的点击事件Sub内部，属于过程级局部变量，仅在所属Sub运行期间有效，Sub执行结束后变量就会被系统销毁释放，所以其他过程调用时自然返回空值，和Sub是否为Public无关。

解决步骤 #

1. 调整变量声明位置 #

把两个变量的声明移动到用户窗体模块的顶部通用声明区域，也就是所有Sub过程的上方，声明为模块级全局变量：

' 放在用户窗体模块最顶部，所有Sub代码之前
Public FileName1 As String
Public FileName2 As String

如果你的操作流程中有关闭/卸载用户窗体的步骤，需要把这两行声明放到标准模块（VBA编辑器右键点击工程→插入→模块）中，变量值就不会随窗体卸载消失。

2. 删除过程内的同名变量声明 #

删掉Btn1_Click里的Dim FileName1 As String，删掉Btn2_Click里的Dim FileName2 As String，否则局部变量会优先覆盖模块级变量，修改依然不生效。

3. 补充异常逻辑避免报错 #

原代码存在边界异常风险，比如用户点了对话框的取消按钮时，直接取文件名会触发运行错误，修正后的代码参考：

修正后的Btn1_Click代码

Public Sub Btn1_Click()
    Dim FileToOpen As Variant
    Dim OpenBook As Workbook
    FileToOpen = Application.GetOpenFilename(Title:="选择要打开的文件", FileFilter:="Excel 启用宏的文件 (*.xlsm),*.xlsm")
    If FileToOpen <> False Then
        Set OpenBook = Application.Workbooks.Open(FileToOpen)
        TextBox1.Value = FileToOpen
        FileName1 = OpenBook.Name ' 仅用户确认打开文件才赋值
    End If
End Sub

修正后的Btn2_Click代码

Public Sub Btn2_Click()
    Dim wb As Workbook
    Dim fPth As Object
    Set fPth = Application.FileDialog(msoFileDialogSaveAs)

    If choice1 = True Then
        Set wb = Workbooks.Add("你的模板1完整路径")
    ElseIf choice2 = True Then
        Set wb = Workbooks.Add("你的模板2完整路径")
    End If

    With fPth
        .FilterIndex = 2 ' 默认选中xlsm格式，避免用户存错文件类型
        .InitialFileName = "默认文件名.xlsm"
        .Title = "请为新文件命名"
        .InitialView = msoFileDialogViewList
        If .Show <> 0 Then
            wb.SaveAs Filename:=.SelectedItems(1), FileFormat:=xlOpenXMLWorkbookMacroEnabled
            FileName2 = wb.Name ' 仅用户确认保存才赋值
        Else
            ' 用户点取消就关闭空白模板，避免残留无用工作簿
            wb.Close SaveChanges:=False
            Set wb = Nothing
        End If
    End With
End Sub

4. 调用前加非空校验 #

后续的复制按钮逻辑中，先判断两个变量都正常赋值再执行操作，避免误触发报错：

Public Sub 复制按钮_Click()
    If FileName1 = "" Or FileName2 = "" Then
        MsgBox "请先完成源文件选择和新文件创建"
        Exit Sub
    End If
    ' 这里写你的复制逻辑，直接调用FileName1和FileName2即可
    ' 示例：Workbooks(FileName1).Sheets("数据源").Range("A1:Z100").Copy Workbooks(FileName2).Sheets("汇总").Range("A1")
End Sub

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