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

孙森峰

请教大神：

我用
sh = Sheets("Sheet1");
sh.Copy(undefined, undefined);
想要复制到新工作簿总是崩溃，请问怎么复制？


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

LIUZHU

Sheets("Sheet1").Copy(null, wb.Sheets.Item(wb.Sheets.Count))

孙森峰

老师，还是崩溃
                var wb = Workbooks.Add();
                ActiveSheet.Copy(null, wb.Sheets.Item(wb.Sheets.Count));

lizhipei78

var sht=Worksheets.Add(null,Sheets(Sheets.Count));

一江春水1688

一江春水1688

一江春水1688 发表于 2024-12-19 13:48

不用索引号，直接用name定位原工作表

一江春水1688

相对简捷的代码：

孙森峰

一江春水1688老师，
我需要将其它非当前表复制
        var sh = Sheets(OutputStr);
        sh.Activate();
        var wb = Workbooks.Add();
        sh.Copy(null, wb.Sheets(wb.Sheets.Count));
还是崩溃

一江春水1688

孙森峰 发表于 2024-12-19 16:04
一江春水1688老师，
我需要将其它非当前表复制
        var sh = Sheets(OutputStr);

非当前表复制，无非就是通过表名引用：Sheets(name)
三段代码，我都测试过，没有问题。把有问题的附件传上来看看。
不太可能是wps出问题了吧？

孙森峰

一江春水1688老师
我发现了出问题的关键问题：在IDE中运行宏没有问题，但在菜单中用菜单调用就崩溃


大多数情况下，第一次没有问题，第二次执行就完蛋
以下为代码

function OutputOrder(){
//如果是订单明细表
        if(ActiveSheet.Range(OrderEntryFlagCellStr).Value2 == OrderEntryItemsStr){        
                var outputOrder = createOrder();       
                MsgBox("Output Order Customer: "+outputOrder.customer);
                const outputSheet=Sheets(OutputStr);
                outputSheet.Range("A2").Value2 = outputOrder.customer;

        var sh = Sheets(OutputStr);
        sh.Activate();
        var wb = Workbooks.Add();
        sh.Copy(null, wb.Sheets(wb.Sheets.Count));
               
        }
}