ExcelApplication da Sheet Seçimi

[cetoonak]

Merhaba,

ExcelApplication kullanarak OpenDialog ile seçilen bir dosya açtırıyorum.
Formda bir de edit var.
Kullanıcı bu edite Excel dosyasında açılacak olan Sheet in ismini girecek.
Dosya açıldığında buraya girilen isimdeki Sheet i önde göstermek istiyorum.
ExcelApplication nesnesinde yüzlerce property var.
Ben bulamadım.
Daha önce bu konuyla ilgilenen arkadaşlar varsa yardımlarınızı bekliyorum.

Teşekkürler...

NOT: Forumda arama yaptım.

[mege]

bunu yapmıştım ama kodu aklımda değil.
bu tarz şeyleri bulmakiçin excelde makro kaydet sonra öğrenmek istediğin işi yap sonra vb kısmına geçip ordan makronun koduna bak. kopyala yapıştıır

[mege]

işte geldim burdayım

Kod: Tümünü seç

procedure TForm1.Button2Click(Sender: TObject);
var
    ExcelFile  :variant;
    ExcelSheet :variant;
    sutun,satir:integer;
begin
     ExcelFile:=createoleobject('excel.application');
     ExcelFile.workbooks.add;

     ExcelFile.activeworkbook.worksheets[1].Name := 'Veri Sonuclari';
     ExcelFile.activeworkbook.worksheets[2].Name := 'Grafik';
     ExcelFile.activeworkbook.worksheets[3].Name := 'Resim';
     //Bu ile istediğin sheetin adını değiştirebilirsin 

     ExcelSheet:=ExcelFile.activeworkbook.worksheets[1].cells[1];
     //Bu ile istediğin sheeti seçebilirsin



     satir:= 1;
     for sutun:= 1 to 9 do
      begin
      ExcelSheet.cells[satir,sutun].Font.Bold:= TRUE;
      ExcelSheet.cells[satir,sutun].Interior.ColorIndex := 36;
      ExcelSheet.cells[satir,sutun].HorizontalAlignment := xlCenter;
     end;
     //Bu ile istediğin.. renk ortalama ıvır zıvır.


     satir:=1;
     sutun:=1;
     ExcelSheet.cells[satir,sutun]    :='LABEL';
     ExcelSheet.cells[satir,sutun+1]  :='X';
     ExcelSheet.cells[satir,sutun+2]  :='Y';
     ExcelSheet.cells[satir,sutun+3]  :='Z';
     //Bu ile istediğin veriiyi eklersin
     .......................
     ExcelSheet.Range['A1'].Columns.ColumnWidth := 12;
     ExcelSheet.Range['B1'].Columns.ColumnWidth := 10;
     //Bu ile istediğin kolon genişliğiin ayarlarsın
     .......................
     ExcelSheet.cells[satir,9] := '=SUM(B' + inttostr(satir)+
                                  ':H' + inttostr(satir) + ')'
     //Bu ile formül ekleme 
     .......................
     ExcelFile.ActiveWorkbook.Saved:=TRUE;
     //ExcelFile.ActiveWorkbook.SaveCopyAs('c:\d.xls');
     //ExcelFile.quit;
     ExcelFile:=Unassigned;
     //Bi kaç komut daha
     .......................