Jak dodać arkusz po ostatnim arkuszu skoroszytu?

Question

Jestem generowanie arkusza Excel z Delphi, ale problem mam skierowane jest to, że kiedy używam tego kodu:

Workbook.Sheets.Add; 

nowy arkusz jest dodawany przed aktualnie wybranego arkusza:

Czy ktoś wie, jak dodać arkusz po ostatnim arkuszu skoroszytu?

Answer 1

Metoda przyjmuje parametry do wskazania miejsca wstawienia nowego arkusza, w szczególności parametru After. Powinien to być odnośnik do arkusza, aby wstawić nowy arkusz po. W twoim przypadku chcesz ostatni arkusz. Worksheets jest tablicą opartą na 1, więc ostatni arkusz jest podany przez Worksheets[Worksheets.Count]. Składając to wszystko razem, otrzymujemy w ten sposób:

Workbook.Worksheets.Add(After := Workbook.Worksheets[Workbook.Worksheets.Count]); 

Answer 2

Aby dodać nowy arkusz musimy użyć metoda .Sheets.Add, posiada pięć parametrów (arkusz przed nim arkusz po nim, i inne 3 , tylko Bóg wie) w tym przypadku użyłem (NULL, aSheet, NULL, NULL, 0), gdzie aSheet do wstawienia go po ostatnim. bye

uses 
     ... OleServer, ExcelXP ... 
    type 
     TForm1 = class(TForm) 
     Button1: TButton; 
     ExcelApplication1: TExcelApplication; 
     procedure Button1Click(Sender: TObject); 
     private 
     { Private declarations } 
     public 
     { Public declarations } 
     end;  
    ...  
    procedure TForm1.Button1Click(Sender: TObject); 
    var 
    Excelfile:OleVariant; 
    aBook: _WORKBOOK; 
    aSheet: _WORKSHEET; 
    begin 
    Excelfile:='c:\plantilla.xls'; 
    ExcelApplication1.connect; 
    aBook:= ExcelApplication1.workbooks.add(Excelfile,0);   

    aSheet:= ExcelApplication1.sheets[aBook.Sheets.Count] as _WORKSHEET; 
    aBook.Sheets.Add(NULL,aSheet,NULL,NULL,0); 

    aSheet:= ExcelApplication1.sheets[aBook.Sheets.Count] as _WORKSHEET; 
    asheet.Name:='Test last position'; 

    ExcelApplication1.visible[0]:=true; 
    ExcelApplication1.disconnect; 
    end; 

Answer 3

Używanie po parametr jest poprawny, ale jestem również stwierdzenia, że ​​muszę korzystać Type.Missing dla innych parametrów, które nie jestem określający