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.
ExcelApplication da Sheet Seçimi
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
-
- Üye
- Mesajlar: 50
- Kayıt: 12 Haz 2003 09:53
- Konum: www.mussimsek.com
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
.......................