Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 5/5 - 2 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Excel sayfa 2
#1
Selamalar, Listview1 deki verileri excel sayfa1'e kayıt işlemi yatırıyorum, Listview2 deki verileride aynı excele fakat sayfa 2 ye bir türlü yaptıramadım acaba nerede hata yapıyorum?

Excel.SheetsInNewWorkBook := 1;
Excel.WorkBooks.Add;
Sheet := Excel.WorkBooks[2].Sheets[2];

    // --------- GENEL AYARLAR
Excel.ActiveSheet.Name := 'Günlük liste'; // Sayfa Adı
Hayat bazen güzel olabiliyor.
Cevapla
#2
Selam, aşağıdaki kod işinizi görecektir.
Uses ComObj;
procedure TForm1.Button1Click(Sender: TObject);
var
excel, workbook, sheet1,sheet2, sheet3, sheet4:VARIANT;
begin

excel := CREATEOLEOBJECT('EXCEL.APPLICATION');
excel.VISIBLE :=TRUE;
workbook := excel.WORKBOOKS.ADD;
sheet1:=WORKBOOK.WORKSHEETS[1];
sheet1.CELLS[1,1]:= 'sayfa 1 e eklenen';

sheet2:=WORKBOOK.WORKSHEETS[2];
sheet2.CELLS[1,1]:= 'Sayfa 2 ye eklenen';

sheet3:=WORKBOOK.WORKSHEETS[3];
sheet3.CELLS[1,1]:= 'Sayfa 3 e eklenen';

// standart 3 sayfa oluşturuyor 4. sayfa haricen ekleniyor

excel.Sheets.Add; // yeni sayfa ekle
Excel.ActiveSheet.Name :='Yeni Eklenen Sayfa'; // yeni sayfaya isim ver
sheet4:=WORKBOOK.WORKSHEETS[1]; // yeni sayfa en başa eklenir o yüzden sayfano 1 olur
sheet4.CELLS[1,1]:= 'Yeni 1. Sayfaya Eklenen';
end;
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
WWW
Cevapla
#3
Merhaba,
@esistem in kodları üzerinde hafif bir revizyon ile bir test işleminin sonucunu (Office 2016) paylaşmak istiyorum.  

procedure TForm1.Button1Click(Sender: TObject);
var
 xlsx, xlsxWorkBook: Variant;
 SheetArr: array [0 .. 3] of Variant;

 function ExceleSayfaEkle(): Variant;
 begin
   if xlsx.WorkBooks.count < 1 then
     xlsxWorkBook := xlsx.WorkBooks.Add
   else
     xlsx.Sheets.Add;
   Result := xlsx.ActiveSheet;
 end;

begin

 xlsx := CreateOleObject('EXCEL.APPLICATION');
 xlsx.Visible := True;

 SheetArr[0] := ExceleSayfaEkle();
 SheetArr[0].Cells[1, 1] := 'Sayfa 1 ye eklenen';

 SheetArr[1] := ExceleSayfaEkle();
 SheetArr[1].Cells[1, 1] := 'Sayfa 2 ye eklenen';

 SheetArr[2] := ExceleSayfaEkle();
 SheetArr[2].Cells[1, 1] := 'Sayfa 3 ye eklenen';

 SheetArr[3] := ExceleSayfaEkle();
 SheetArr[3].Cells[1, 1] := 'Sayfa 4 ye eklenen';
end;


2u95xev.jpg
While true do; Hayat döngüsü, kısır değildir! Yapılan bir yanlış, o döngünün dışına çıkmanızı sağlayacaktır.
WWW
Cevapla
#4
Yardımlarınızdan dolayı teşekkür ederim...
Hayat bazen güzel olabiliyor.
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Excel Export PDF pro_imaj 16 5.492 04-07-2018, Saat: 18:21
Son Yorum: pro_imaj
  Excel, PDF ve Yazıcı formu Component 3ddark 8 223 22-06-2018, Saat: 14:46
Son Yorum: edo
  webbrowser nesnesi sayfa bulunamadı hatası klavye 2 137 01-06-2018, Saat: 16:55
Son Yorum: klavye
  Excel'e aktarım ile ilgili emrekilinc1984 12 1.547 27-04-2018, Saat: 18:31
Son Yorum: rahim@kirazyazilim.com
  Excel satır rengi dilo 3 373 02-01-2018, Saat: 12:05
Son Yorum: dilo



Konuyu Okuyanlar: 1 Ziyaretçi