Çalışma kitabının son sayfasından sonra çalışma sayfası nasıl eklenir?

Question

Ben Delphi ile Excel sayfası oluşturma yapıyorum ama karşılaştığım sorun olduğunu ben bu kodu kullandığınızda: Yeni sayfa seçili çalışma öncesinde eklenir

Workbook.Sheets.Add; 

:

Çalışma kitabının son sayfasından sonra çalışma sayfası nasıl ekleneceğini bilen var mı?

Answer 1

Add yöntemi, yeni sayfanın, özellikle de After parametresinin nereye ekleneceğini belirtmeniz için parametreleri kabul eder. Yeni sayfayı daha sonra eklemek için sayfaya başvurulmalıdır. Senin durumunda, son sayfayı istiyorsun. Worksheets 1 tabanlı bir dizidir, bu nedenle son sayfa Worksheets[Worksheets.Count] tarafından verilir. Hepsini bir araya getirirsek, biz bu olsun:

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

Answer 2

biz yöntemi .Sheets.Add kullanmaya gerek yeni bir sayfa eklemek için, beş parametre (ondan önce levha, ondan sonra levha ve diğer 3 sahiptir , sadece tanrı bilir) bu durumda, sonuncusundan sonra aSheet'in ekleneceği (NULL, aSheet, NULL, NULL, 0) kullanılır. güle

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

parametre doğruysa sonra kullanarak, ama aynı zamanda ben,