delphi Excel如何在sheet中新增一个sheet，并且将前一个sheet的内容格式复制到这个sheet中呢？

如标题所说，请各位大神来帮帮我！！我是这样写的，提示错误 Method 'Add' not supported by automation objet 
MsExcel.WorkBooks.add (After:=MsExcel.WorkBooks[1].Sheets.Count);
 MsExcel.Sheets[J+1].Copy(After:=MsExcel.Sheets[J+2]);

4 个解决方案

#1

增加工作表：
  msexcel.worksheets.add;

选择范围：
  msexcel.activesheet.cells[3,3].select;

复制范围：
  msexcel.activesheet.range['v3','v'+inttostr(i)].copy;

粘贴：
  msexcel.activesheet.paste;
或  msexcel.activesheet.cells[i,8].PasteSpecial;

#2

zbdzjx 
如果我想复制工作表1的所有内容到新增的那个sheet中，该怎么写啊？在此感谢！！

#3

可以用这一句：
msexcel.activesheet.range['A1','IV65536'].copy;
这句需要确定复制的范围，如果不确定范围，只有从左上角的A1到右下角的IV65536了。

然后到新增的Sheet中，执行：
msexcel.activesheet.cells[1,1].PasteSpecial; 

#4

这有帮助了 谢谢