现有工作表sheet1，想在sheet1后插入sheet2,sheet3.....
do while myexcel.workbooks(1).worksheets.count<nSheets
  myexcel.workbooks(1).worksheets.add
enddo

运行后，工作表呈倒序插入，如：sheet6,sheet5,sheet4.....

在网上查了用 myexcel.workbooks(1).worksheets.add After:=Worksheets(Worksheets.Count)
说是语法错误，

示助各位老师给指点一下！

oExcel=Createobject("Excel.application")
oExcel.Visible=.T.
oExcel.Workbooks.Add
INKEY(5)
oExcel.Worksheets("sheet3").Activate
INKEY(5)
oExcel.Sheets(1).Move(,oExcel.Sheets(3))   &&& 执行后sheet1移到最后了
*　INKEY(5)　是为了留观察的时间　5秒

试过可以的（VFP8.0 + EXCEL2003）

https://blog.bccn.net/sdta/16868

3.3　工作表在工作簿内移动或复制
3.3.1　移动工作表
　　1、移动到指定工作表之前（将第一个工作表移动到第三个工作表之前）
　　oExcel.WorkSheets("Sheet1").Move(oExcel.WorkSheets("Sheet3"))
　　或者
　　oExcel.Sheets(1).Move(oExcel.Sheets(3))
　　2、移动到指定工作表之后（将第一个工作表移动到第三个工作表之后）
　　oExcel.WorkSheets("Sheet1").Move(,oExcel.WorkSheets("Sheet3"))
　　或者
　　oExcel.Sheets(1).Move(,oExcel.Sheets(3))


3.3.2　复制工作表
　　1、复制到指定工作表之前（将第一个工作表复制到第三个工作表之前）
　　oExcel.WorkSheets("Sheet1").Copy(oExcel.WorkSheets("Sheet3"))
　　或者
　　oExcel.Sheets(1).Copy(oExcel.Sheets(3))
　　2、复制到指定工作表之后（将第一个工作表复制到第三个工作表之后）
　　oExcel.WorkSheets("Sheet1").Copy(,oExcel.WorkSheets("Sheet3"))
　　或者
　　oExcel.Sheets(1).Copy(,oExcel.Sheets(3))


网上搜来的

谢谢  wengjl  sdta   wengjl三位大师，问题已解决。

[此贴子已经被作者于2017-4-24 16:06编辑过]