有四個工作表, 由左至右依序為 sheet1, sheet2, sheet4, sheet3 今想將工作表 shee4 移到最後變為   sheet1, sheet2, sheet3, sheet4    經錄製巨集為:  

    Sheets("Sheet4").Select
    Sheets("Sheet4").Move After:=Sheets(4)
 

請問 "Move After" 對應在 Delphi 中要如何寫?? 試過許多可能的單字(.MoveAfter, .MoveTo, ...)都不對... @@ 請各位先進不吝指教 感謝.. p.s. 此需求在於當工作表大於三個時, Sheet:=Book.WorkSheets.Add; 新增的工作表會插在目前選定的工作表之前, 但是我希望新增的工作表能依序一直往右排列, 故有此一問..

hi, 你誤會了, functoin 是 move, 參數是 after . 所以寫法如下,    

procedure TForm1.Button1Click(Sender: TObject);
var
  ex, ws: Variant;
begin
  ex := CreateOleObject('Excel.Application');
  ws := ex.WorkBooks.Open('C:\2.xls');
  ex.Visible := true;
  ws.Sheets[1].Move(After:=ws.Sheets[3]);
end;

果然是如此.. 已經可以了 謝謝 ^_____^