delphi 新增sheet问题 - Delphi / VCL组件开发及应用

如何使新增的sheet在前一个sheet后，excel默认有3个sheet,如我新增一个sheet4,怎样使它是插在sheet3后呢，而不是插在sheet1前？

---

右键不行吗？

---

Worksheets.Add 方法 

该方法用于新建工作表。

Function Add([Before As VARIANT], [After As VARIANT], [Count As VARIANT], [Type As VARIANT]) As LPDISPATCH 
参数说明
Before 
Variant 类型，可选。指定工作表对象，新建的工作表将置于此工作表之前。

After 
Variant 类型，可选。指定工作表对象，新建的工作表将置于此工作表之后。

Count 
Variant 类型，可选。要新建的工作表的数目。默认值为 1。

返回值

Object 类型


说明
如果 Before 和 After 两者均省略，则新建的工作表将插入到活动工作表之前。

样例

' 本示例向工作簿中添加两个工作表。
Sub Worksheets_Add()
  ThisWorkbook.Worksheets.Add Count:=2
End Sub

---

大体代码如下：
Delphi(Pascal) code:

try
Self.ExcelApplication1:=TExcelApplication.Create(Self);
Self.ExcelApplication1.Connect;
except
messagebox(application.Handle,'无法生成Excel报表，请确定安装了Excel后重试','信息',mb_ok or mb_iconinformation);
exit;
end;

Self.ExcelApplication1.Visible[0]:=False;
Self.ExcelApplication1.DisplayAlerts[0]:=False;
self.ExcelApplic