如何通过UserForm创建保存新工作簿？VBA变量赋值与存盘报错排查

我来帮你梳理下代码里的问题，搞定这个「Object Required」错误和变量赋值失效的情况：

1. 核心错误拆解 #

• 未定义对象变量：代码里的Wk完全没声明过，outputWorkbook也没指定类型，这是触发「Object Required」错误的直接原因。
• 路径格式错误：保存路径"C:\Users\Public\Desktop"末尾缺少分隔符\，会导致文件名直接拼接在路径后，生成无效路径（比如C:\Users\Public\DesktopProjectName.xlsx）。
• UserForm引用冗余：在窗体代码里硬写UserForm2不如用Me引用当前窗体更稳妥，能避免窗体实例的引用冲突。
• 窗体卸载时机：虽然Show是模态执行，但卸载窗体的方式可以更规范，确保变量赋值完成后再继续后续逻辑。

2. 修正后的完整代码 #

标准模块（Module 1）

Public projname As String
Public projnum As String

Sub createWB()
    Dim uf2 As New UserForm2
    Dim outputWorkbook As Workbook ' 明确声明对象变量
    
    ' 显示用户窗体，模态状态下代码会暂停直到窗体关闭
    uf2.Show
    
    ' 先校验用户输入，避免空文件名导致保存失败
    If projname <> "" Then
        Set outputWorkbook = Workbooks.Add(xlWBATWorksheet)
        Application.DisplayAlerts = False
        
        ' 添加路径分隔符，确保路径与文件名正确拼接
        outputWorkbook.SaveAs Filename:="C:\Users\Public\Desktop\" & projname & ".xlsx"
        
        Application.DisplayAlerts = True
        MsgBox "工作簿已成功保存到桌面！"
    Else
        MsgBox "请输入项目名称后再操作！"
    End If
    
    ' 手动清理窗体实例，避免内存泄漏
    Unload uf2
    Set uf2 = Nothing
End Sub

UserForm2模块

Private Sub CommandButton1_Click()
    ' 用Me引用当前窗体控件，代码更灵活（窗体改名也不影响）
    projname = Me.TextBox1.Text
    projnum = Me.TextBox2.Text
    
    ' 先隐藏窗体再后续处理，确保变量赋值完成
    Me.Hide
End Sub

' 可选：添加窗体终止事件，清理控件引用
Private Sub UserForm_Terminate()
    Set Me.TextBox1 = Nothing
    Set Me.TextBox2 = Nothing
End Sub

3. 关键修复说明 #

• 对象变量规范：通过Dim ... As Workbook声明对象，并用Set赋值，彻底解决未定义对象的错误。
• 路径合法性：添加\分隔符，保证文件路径拼接正确。
• UserForm优化：使用Me代替硬编码的窗体名称，代码通用性更强。
• 输入校验：增加项目名称非空判断，避免空文件名导致的保存异常。
• 内存清理：手动卸载窗体并释放对象，避免长期运行的内存泄漏问题。

内容的提问来源于stack exchange，提问作者Bryce K.