在VFP的PRG代码中执行MyExcel.worksheets.add后，新增的工作表，在工作簿的最左侧，想要移动到最右，代码如何写？  录制宏试了，不成功。特此求助，谢谢！

oExcel=Createobject("Excel.application")
oExcel.visible=.t.
oExcel.Workbooks.Add
oExcel.SHEETS(1).COPY(oExcel.SHEETS(1),NULL) &&&&把第1个工作表复制到第1个工作表之前
oExcel.SHEETS(1).move(,oExcel.SHEETS(oExcel.SHEETS.count)) &&&&把第1个工作表移动到最后

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))

oExcel = CREATEOBJECT("Excel.Application")
oExcel.DisplayAlerts = 0
oExcel.WorkBooks.Add
n = oExcel.Worksheets.Count
FOR i=1 TO 3
    os = oExcel.Sheets.Add(,oExcel.Sheets[n])
    os.name = "新表"+TRANSFORM(i)
    n = n + 1
ENDFOR
oExcel.Visible = 1

非常感谢！

按需要的sheet顺序，靠右的先生成就行

对，这是一个很好的变通思维，思路总是在不断的交流中拓展

刚好也碰到类似问题。应该有增加时就在所有表之后的命令吧？这样就不必移动。