在用Ole连接Excel时,如何复制一个已经存在的WorkSheet?(50分)

  • 主题发起人 netCobra
  • 开始时间
N

netCobra

Unregistered / Unconfirmed
GUEST, unregistred user!
我新建的WorkSheet很多单元格的内容和这个已经存在的WorkSheet一模一样,想偷个懒[8D][:D]
 
a.拷贝整个工作表:
ExcelID.ActiveSheet.Used.Range.Copy;

b.拷贝指定区域:
ExcelID.ActiveSheet.Range[ 'A1:E2' ].Copy;

c.从A1位置开始粘贴:
ExcelID.ActiveSheet.Range.[ 'A1' ].PasteSpecial;

d.从文件尾部开始粘贴:
ExcelID.ActiveSheet.Range.PasteSpecial;
 
a.拷贝整个工作表:
提示“Undeclared identifier: 'Used'”
b、c、d:拷贝过来的好像只有数值,没有格式啊,我不想复制过来以后我再一点一点的设置
格式。
 
我是这样做的:
try
//将模板工作表复制一份
ExcelWorkSheet_Template.Copy(Excel_DB_Structure.Sheets[2]);
Temp_Worksheet := Excel_DB_Structure.Sheets['Template (2)'] as _WorkSheet;
//将复制的工作表改名为表名,连接该工作表进行数据插入操作。
ExcelWorksheet_New.ConnectTo(Temp_WorkSheet);
ExcelWorksheet_New.Name := ADOQ_Table_Listtable_name.AsString;
except
ShowMessage('Add WorkSheet Failure');
end;
 
ExcelWorkSheet_Template 是什么类型?Variant,还是oleVariant?
 
当然是oleVariant了!
 

Similar threads

回复
0
查看
560
不得闲
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
顶部