新建Excel工作簿调用母工作簿VBA宏报错的技术咨询

首先明确你代码里的核心错误：
.OnAction = "'" & mwkb & "'!OpenPoor" 这行中mwkb是Workbook对象，直接和字符串拼接会触发「对象不支持该属性或方法」的报错——VBA无法直接将Workbook对象转为可拼接的字符串。你需要改用Workbook对象的FullName（完整路径+文件名）或Name（仅文件名）属性来替代。

修正后的代码示例 #

Dim wkb As Workbook, mwkb As Workbook
Set mwkb = ThisWorkbook

Set wkb = Workbooks.Add

With wkb
    .Sheets("Sheet1").Name = "Frontsheet"
    Set fwsk = .Sheets("Frontsheet")
    With fwsk
        Dim orshape As Shape
        ' 避免使用ActiveSheet，直接引用目标工作表fwsk更可靠
        Set orshape = fwsk.Shapes.AddShape(msoShapeRectangle, 80, 280, 500, 75)
        With orshape
            .Fill.Visible = msoFalse
            .Name = "ORBox"
            ' 使用FullName属性确保路径和文件名准确，自动适配含空格的情况
            .OnAction = "'" & mwkb.FullName & "'!OpenPoor"
        End With
    End With
End With

关键注意事项 #

• 不要依赖ActiveSheet：新建工作簿后ActiveSheet可能并非目标工作表，直接引用fwsk能避免逻辑混乱。
• 母工作簿需保持打开：只有承载宏的母工作簿处于打开状态，新工作簿才能调用到它的宏。
• 宏的存放位置：OpenPoor必须放在母工作簿的标准模块中；如果放在ThisWorkbook或工作表模块里，需要改成.OnAction = "'" & mwkb.FullName & "'!ThisWorkbook.OpenPoor"这类格式。
• 未保存的母工作簿：如果母工作簿还没保存，FullName会返回空值，此时可临时改用mwkb.Name，待母工作簿保存后再换回FullName避免名称冲突。

关于调用方式的结论 #

不需要把宏硬编码到新建工作簿中，只要母工作簿保持打开状态，通过修正后的OnAction设置，就能让新工作簿里的形状触发母工作簿的宏。若仍出现「找不到宏」的提示，检查宏的存放位置、母工作簿的宏安全设置，以及OnAction拼接后的字符串格式是否正确（路径含空格时必须用单引号包裹）。

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