请教如何把工作表复制到新工作簿

我的城市你来过

Sheets("Sheet1").Copy(Sheets("Sheet2"))

孙森峰

我的城市你来过 发表于 2024-12-20 19:09
Sheets("Sheet1").Copy(Sheets("Sheet2"))

方法执行失败

孙森峰

问题应该出在自定义Ribbon菜单上，简单的一个按钮没有问题，复杂的出错。
按理菜单代码没有问题，如果有问题菜单根本不显示，但显示正常，就是执行出问题
我附上了文件，2个，一个正常，另一个出错。文件去掉后缀.zip即可

<button id="btnOrderNew" size="large" imageMso="FileNew" label="订单"/>
<button id="btnShipmentNew" size="large" label="发货单"/>
</menu>
</splitButton>
<button id="btnOrderCurrent" imageMso="GoTo" size="large" label="当前订单"/>
<button id="btnOrderSearch" imageMso="Search" size="large" label="查找"/>
<button id="btnOrderDelete" imageMso="Delete" size="large" label="删除"/>
<button id="btnOrderSave" imageMso="FileSaveAs" size="large" label="保存"/>
</group>
<group id="grpHelp" label="帮助">
<splitButton id="sbtnPrint" size="large">
<button id="btnPrint" imageMso="Print" label="单据打印"/>
<menu id="PrintNotice">
<button id="btnPrintNotice" imageMso="Print" size="large" label="合同通知单"/>
<button id="btnPrintEvalue" size="large" label="合同评审表"/>
<menuSeparator id="seperator1"/>
<button id="btnPrintDomestic" size="large" label="国内发货申请单"/>
<button id="btnPrintBookContainer" size="large" label="订船申请单"/>
<button id="btnPrintShipment" size="large" label="入货通知"/>
</menu>
</splitButton>
<menu id="mnuHelp" imageMso="Help" size="large" label="帮助 ">
<button id="About" imageMso="ContentsAndIndex" label="帮助内容"/>
<button id="btnAbout" label="关于... ..."/>
<menuSeparator id="seperator2"/>
<button id="btnCalc" imageMso="Calculator" size="large" label="自动编号"/>
<button id="btnProductPrice" imageMso="AccountingFormat" size="large" label="商品价格"/>
<button id="btnInvoice" size="large" label="选择发票 ... ..."/>
<menuSeparator id="seperator3"/>
<button id="btnOutput" size="large" label="导出订单"/>
</menu>
</group>
</tab>
</tabs>
</ribbon>
</customUI>

孙森峰

经过排查，这个复制功能仅再可见的Ribbon按钮上可以执行，需要展开的菜单里面崩溃

非常感谢老师们热心帮助和指导，问题基本解决：
将命令放在菜单第一层，能够顺利执行。放到需要展开后点击的菜单中会崩溃，不知什么原因。
这让我想起了在LibreOffice中运行SA = Sheets(ArraySheets).Select()来。这个语句放在单独的过程中运行正确，但是，放到窗体中的命令按钮中却出现错误。可能是不同的函数有运行的权限，有待进一步搞明白。
也请大神们留言解惑。