尽管被赋值，字符串变量返回空

Question

我有一个用户窗体，我要做的是从对话框中打开一个工作簿，然后根据模板创建一个新的工作簿。 我想将两个文件的名称 + 扩展名 (.xlsm) 分配给我将在复制方法中使用的字符串。

我是 VBA 的初学者，一切都是用户表单的代码：

Public Sub Btn1_Click()
Dim FileName1 As String
Dim FileToOpen As Variant
Dim OpenBook As Workbook
    FileToOpen = Application.GetOpenFilename(Title:="Choose file to poen", FileFilter:="Excel Files (*.xlsm*),*xls*")
    If FileToOpen <> False Then
        Set OpenBook = Application.Workbooks.Open(FileToOpen)
        TextBox1.Value = FileToOpen
    End If
FileName1 = OpenBook.Name
End Sub

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

If choice1 = True Then
    Set wb = Workbooks.Add("path to file template 1")
ElseIf choice2 = True Then
    Set wb = Workbooks.Add("path to file template 2")
End If

With fPth
  .InitialFileName = Filename & ".xlsm"
  .Title = "Please choose a name for your new file"
  .InitialView = msoFileDialogViewList
  If .Show <> 0 Then
    wb.SaveAs Filename:=.SelectedItems(1), FileFormat:=xlOpenXMLWorkbookMacroEnabled
  End If
End With
FileName2 = wb.Name
End Sub

我想要做的就是在我的复制方法中使用 FileName1 和 FileName2，我也会将它们分配给一个按钮，并在两个文件都打开后运行。

如果我添加一个 MsgBox 在给它们赋值后直接显示其中一个变量，它们会返回文件名。 当我在为测试目的添加的随机按钮中使用 MsgBox 时，它们只是返回空。 我所有的方法都设置为公共。

Answer 1

Option Explicit
Public FileName1 As String
Public FileName2 As String

在我的模块开始时解决了这个问题。