复制Excel文件后如何在新文件中自动启动UserForm？

核心问题 #

1. 未声明变量：代码中newFileName未提前声明，VBA默认其为Variant类型，可能引发不可预期的错误。
2. 窗体调用方式错误：newWorkbook.Application.Run "PartEntry.Show"写法无效，PartEntry.Show不是可直接调用的宏过程，无法通过Application.Run触发。
3. ActiveWorkbook依赖风险：使用ActiveWorkbook切换工作簿容易受其他操作干扰，建议改用对象变量直接引用。

修改后的完整代码 #

Private Sub CommandButton1_Click()
    Dim jobNumber As String
    Dim customerCode As String
    Dim SourceFilePath As String
    Dim newFullPath As String
    Dim JobsFolder As String
    Dim folderPath As String
    Dim fso As Object
    Dim newFileName As String ' 新增：声明变量
    Dim sourceWB As Workbook ' 新增：源工作簿对象
    Dim newWorkbook As Workbook

    ' 获取用户输入
    jobNumber = TextBox1.Text
    customerCode = TextBox2.Text

    ' 验证输入非空
    If jobNumber = "" Or customerCode = "" Then
        MsgBox "请同时输入工单号和客户代码。", vbExclamation
        Me.Hide
        Me.Show
        Exit Sub
    End If
    
    ' 提取工单号中第一个连字符前的部分
    JobsFolder = Split(jobNumber, "-")(0)

    ' 构建文件路径与名称
    newFileName = "MASTER BOM " & jobNumber & " ASM 0.xlsm"
    folderPath = "\pmw-fs1\Storage-PMW\Jobs\" & JobsFolder & " " & UCase(customerCode)
    newFullPath = folderPath & "\" & newFileName

    ' 检查文件夹是否存在
    Set fso = CreateObject("Scripting.FileSystemObject")
    If Not fso.FolderExists(folderPath) Then
        Dim response As VbMsgBoxResult
        response = MsgBox(""" " & JobsFolder & " " & UCase(customerCode) & """ 对应的文件夹不存在，是否创建该文件夹？", vbYesNo + vbExclamation, "文件夹未找到")
        If response = vbYes Then
            fso.CreateFolder folderPath
        Else
            Me.Hide
            TextBox1.Text = jobNumber
            TextBox2.Text = UCase(customerCode)
            Me.Show
            Exit Sub
        End If
    End If

    ' 复制源文件到目标位置
    SourceFilePath = "\pmw-fs1\Storage-PMW\Jobs\_Automation\MasterBomVBA\Master Bom Data.xlsm"
    Set sourceWB = Workbooks.Open(SourceFilePath) ' 改用对象变量引用
    sourceWB.SaveCopyAs newFullPath
    sourceWB.Close SaveChanges:=False

    ' 打开新生成的工作簿
    Set newWorkbook = Workbooks.Open(newFullPath)
    
    ' 重置并隐藏当前窗体
    Me.Hide
    TextBox1.Text = ""
    TextBox2.Text = ""
    
    ' 调用新工作簿中的窗体启动宏
    newWorkbook.Application.Run "'" & newWorkbook.Name & "'!ShowPartEntryForm"
End Sub

额外必要操作 #

在源工作簿（Master Bom Data.xlsm）的标准模块中添加以下宏，用于触发PartEntry窗体：

Sub ShowPartEntryForm()
    PartEntry.Show vbModeless ' 可根据需求改为vbModal
End Sub

关键说明 #

• 改用对象变量sourceWB和newWorkbook直接操作工作簿，避免ActiveWorkbook带来的上下文冲突。
• 通过调用新工作簿中的独立宏ShowPartEntryForm来启动窗体，这是VBA跨工作簿调用窗体的标准方式。
• 确保源工作簿中的PartEntry窗体存在且名称正确，新复制的工作簿会继承该窗体和宏。

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