高分求救.在线等？？？在Excel中如何把新建的工作表，放在某一工作表之后，而不是之前？？？？？

Question

在Excel中如何把新建的工作表，放在某一工作表之后，而不是之前？？？？？
Dim a As New Excel.Application
Set b = a.Workbooks.Add
for i=1 to 10 
  Set c = b.Worksheets.Add
  c.Name=i
next i
我用上面的语句加工作时只能在当前工作表之前加入，如何才能把工作表增加到当前工作表之后呢？？？？？
在线等？？

Answer 1

Set xlsws = xlswb.Worksheets(lngIndex)    xlsws.Copy after:=xlswb.Worksheets(lngIndex)    xlsws.Name = "Sheet" & lngIndex
lngIndex为第几个工作表

Answer 2

Sheets("Sheet1").Select
Sheets("Sheet1").Move After:=Sheets(3)
上面是把工作表"sheet1"移动到"sheets3"(共有三个工作表) 的后面
你可以参考做一些修改
新建时还是在最左边
建好后移动一下就行了

Answer 3

Dim objExl As Excel.Application   '声明对象变量
    
    Set objExl = New Excel.Application '初始化对象变量
    objExl.SheetsInNewWorkbook = 1  '将新建的工作薄数量设为1
    objExl.Workbooks.Add          '增加一个工作薄
    objExl.Sheets(1).Name = "book2"  '修改工作薄名称
    objExl.Sheets("book2").Select     '选中工作薄<book2>
    objExl.Sheets.Add , objExl.Sheets("book2")
    
.....上面的代码是把新建的工作薄放到第一次建的工作薄"book2"之后