如何向VBA的Sub过程传递数据并据此创建新WorkBook？

当然可以向VBA的Sub过程传递字符串、数值等各类数据类型，只要在Sub的参数声明里明确指定类型即可，支持按值或按引用传递。

你的示例代码存在两个关键问题，导致无法正常运行：

• 子过程内的变量名name和传入的参数名重名，VBA不允许同一作用域内出现同名的参数和变量，会触发编译错误
• 代码仅新建了默认名称的工作簿，没有把传入的字符串应用为工作簿的名称

修正后的基础实现代码 #

Sub main()
    ' 调用子过程，传递自定义工作簿名称字符串
    Call workbook_generator("Wb1")
End Sub

Sub workbook_generator(wbName As String)
    Dim newWorkbook As Workbook
    ' 新建空白工作簿
    Set newWorkbook = Workbooks.Add
    ' 将传入的字符串设置为工作簿名称（保存后生效）
    newWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & wbName & ".xlsx"
End Sub

补充说明 #

1. 命名规范：参数和内部变量要使用不同名称，避免命名冲突，提升代码可读性
2. 临时名称 vs 永久名称：如果只是需要临时给新建的工作簿命名（不立即保存），可以直接修改newWorkbook.Name，但未保存的工作簿名称后会自动添加(未保存)后缀，只有保存后才会使用你指定的名称
3. 错误处理优化：可以增加同名文件检查，避免运行时报错，示例如下：

Sub workbook_generator(wbName As String)
    Dim newWorkbook As Workbook
    Dim saveFullPath As String
    ' 拼接保存路径（和当前运行代码的工作簿同目录）
    saveFullPath = ThisWorkbook.Path & "\" & wbName & ".xlsx"
    
    ' 检查目标路径是否已存在同名文件
    If Dir(saveFullPath) <> "" Then
        MsgBox "该名称的工作簿已存在，请更换名称！", vbExclamation
        Exit Sub
    End If
    
    Set newWorkbook = Workbooks.Add
    newWorkbook.SaveAs Filename:=saveFullPath
End Sub

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