Excel的sheet的到底怎么移动，急！(200分)

好了么？

您以为我在一号吗?

参考excel的帮助->编程信息->mevb参考->me对象->方法->move方法
如下
Move 方法
请参阅 应用于 示例 特性
将指定工作表移到工作簿的另一位置。

expression.Move(Before, After)

expression 必需。该表达式返回“应用于”列表中的对象之一。

Before Variant 类型，可选。表示某工作表，欲移动的工作表将移到此工作表之前。如果已经指定了 After，则不能指定 Before。

After Variant 类型，可选。表示某工作表，欲移动的工作表将移到此工作表之后。如果已经指定了 Before，则不能指定 After。

说明
如果既不指定 Before 参数也不指定 After 参数，则 Microsoft Excel 将新建一个工作簿并将欲移动的工作表移到新工作簿中。

示例
本示例将 Sheet1 移到当前活动工作簿的 Sheet3 之后。

Worksheets("Sheet1").Move _
after:=Worksheets("Sheet3")

所以我想应该如下写法,可能语法有不对的地方,请你试一下,我家里没装delphi.
VAR SHEET1, SHEET2: OLEVARIANT
BEGIN
获取excel app
获取worksheets
SHEET1:=WORKSHEETS[1];
SHEET2:=WORKSHEETS[2];
SHEET1.MOVE(SHEET2)
这个地方move参数2是否可以省略我也不清楚,试一下.祝你好运.
顺便问一下,你怎么发消息跳出来的?
谢谢.

我才发现和 仙剑奇侠 的答案相似.应该是可以的.

我先去试试，谢谢！

现在你发的信息也可以弹出对话框呀。呵呵。

谢谢各位的帮助！结贴了。johnpan到 http://www.delphibbs.com/delphibbs/dispq.asp?lid=2281483 这里去拿分吧。[8D]