Question

delphi如何复制sheet（也就是工作表）

请问各位如何复制一个sheet呢？谢谢
各位我使用
MsExcel.WorkBooks.Add (After:=MsExcel.WorkBooks[1].Sheets.Count);
MsExcel.Sheets[J+1].Copy(After:=MsExcel.Sheets[J+2]);
这个时再Add方法出现错误为method 'Add' not supported by automation object
请大神们指点，谢谢！！！

Answer 1

ExcelApp.ActiveSheet.Used.Range.Copy;

追问

我想先新增一个工作表，然后将前一个工作表复制到这个新增的工作表中，谢谢

Answer 2

这是逻辑问题吧。sheet 有没有提供复制函数呢？

追问

就是不会写代码哦

Answer 3

如果是EXCEL的SHEET，请查VBA

追问

看来是没人会了，哎~~

追答

我是没有这方面的需求。如果 VBA 没有提供函数，我可以自己去做。给了函数，直接用省事，没给，就写代码。反正我不是白痴。我肯定能写出来。

Sub エ栋1() * * エ栋1 エ栋 * * Sheets.Add After:=Sheets(Sheets.Count) End Sub 这个是录制的巨集，你看一下如何改成delphi语言呢

你这和楼主的问题无关。本应该开新帖。但是，你这问题太简单。你开贴，我也不会回答的。