कार्यपुस्तिका की आखिरी शीट के बाद वर्कशीट को कैसे जोड़ा जाए?

Question

मैं डेल्फी के साथ एक एक्सेल शीट पैदा कर रहा हूँ, लेकिन समस्या का सामना करना पड़ रहा हूँ यह है कि जब मैं इस कोड का उपयोग करें:

Workbook.Sheets.Add; 

नए पत्रक वर्तमान में चयनित कार्यपत्रक पहले जोड़ा जाता है:

क्या कोई जानता है कि कार्यपुस्तिका की आखिरी शीट के बाद वर्कशीट को कैसे जोड़ना है?

Answer 1

Add विधि आपके लिए पैरामीटर स्वीकार करती है कि यह इंगित करने के लिए कि नई शीट कहां डालें, विशेष रूप से After पैरामीटर। यह नई शीट डालने के लिए शीट का संदर्भ होना चाहिए। आपके मामले में, आप अंतिम शीट चाहते हैं। Worksheets एक 1-आधारित सरणी है, इसलिए अंतिम शीट Worksheets[Worksheets.Count] द्वारा दी गई है। यह सब एक साथ लाना, हम इस मिल:

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

Answer 2

एक नई शीट हम विधि .Sheets.Add उपयोग करने की आवश्यकता को जोड़ने के लिए, यह पांच मानकों (यह पहले चादर, इसके बाद चादर, और अन्य 3 है , केवल भगवान जानता है) इस मामले में मैंने (नल, एशीट, नल, नल, 0) का उपयोग किया जहां एक आखिरी बार के बाद इसे डालने के लिए एक शीट। अलविदा

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

का उपयोग करने के बाद पैरामीटर सही है, लेकिन मैं यह भी लग रहा है कि मैं अन्य पैरामीटर के लिए Type.Missing कि मैं निर्दिष्ट नहीं कर रहा हूँ