Excel中Sheets.add方法怎么用啊!(10分)

  • 主题发起人 主题发起人 AthlonXP
  • 开始时间 开始时间
A

AthlonXP

Unregistered / Unconfirmed
GUEST, unregistred user!
这个问题我是想问:在VBA中可以sheets.add after='sheet1' ,它的用法是在sheet1的后面插入一个新的sheet,如果我想在delphi中用到after这个参数该怎么用呢?
 
ExcelApp.Cells[1,4].Value := '第一行第四列';
 
大哥,你理解错了,我是想增加一个新的工作表啊,不是要对一行赋值。要把这个新的工作表加入到想要的工作表后面。
 
一段代码供参考,测试通过。
var excelapp,sheet:variant;
begin
try
excelapp:=createoleobject('Excel.application');
sheet:=createoleobject('excel.sheet');
except
application.MessageBox('请先安装MICROSOFT EXCEL!','提示',mb_ok+mb_iconinformation);
exit;
end;
sheet:=excelapp.workbooks.add;
excelapp.cells[1,1]:='工单制程统计表1';
sheet.worksheets.add;
excelapp.cells[1,1]:='工单制程统计表2';
excelapp.save;
excelapp.workbooks.close;
excelapp.quit;
end;
 
用SHEETS 调用那个SHEETS
 
后退
顶部