Excel sayfa 2

[Dostk]

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?

Kod: Tümünü seç

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

    // --------- GENEL AYARLAR
Excel.ActiveSheet.Name := 'Günlük liste'; // Sayfa Adı

[karflake]

Son satırdan önce şu kodu ekleyip bir deneyin.

Kod: Tümünü seç

Excel.Sheets[Excel.Worksheets.Count].Name:='Günlük liste';

[Dostk]

Son satırdan önce şu kodu ekleyip bir deneyin.

Kod: Tümünü seç

Excel.Sheets[Excel.Worksheets.Count].Name:='Günlük liste';

Maalesef olmadı; Kaç gündür uğraşıyorum:(

[mkysoft]

Excel dosyasına çalışma kitabı eklemişsiniz koddan anladığım kadarıyla. Sheet eklemeyi denediniz mi?

[Lord_Ares]

Tam emin değilim ama sanırım sorun , sayfayı seçmemeniz olabilir. Birde hangi çalışma kitabında olduğunuza dikkat edin gördüğüm kadarıyla yeni workbook ekliyorsunuz .

Kod: Tümünü seç

Excel.WorkBooks[2].Sheets[2];

Fakat kullanırken Excel.ActiveSheet.Name demişsiniz. Çalışma kitabı bir aktif ise onu seçiyor olabilirsiniz. İsim vermeden önce bence şöyle excel.workbooks[1].worksheets[1] gibi kullanarak doğru çalışma kitabı hangisi ise onu seçin.

Birde dikkatimi çeken activeworkbook.worksheets[1] yerine workbook.sheets demiş olmanız. Activeworkbook ile aktif çalışma kitabına odaklanmış olursunuz. İstemeden farklı çalışma kitabı seçip hata yapmanızı engeller.

Sayfa seçmek için

Kod: Tümünü seç

excel.Sheets['Sayfa2'].Select;

Kullanıma örnek

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);

var
x:integer;
excel,sayfa:variant;
aktifcalismasayfasi:variant;
begin

  excel:=createoleobject('excel.application');
  excel.workbooks.open('C:\datadan excele\k.xls');
  sayfa:=excel.workbooks[1].worksheets[1];
  aktifcalismasayfasi:=excel.activeworkbook.worksheets[1].usedrange;
  FOR X:=2 TO Table1.RecordCount DO BEGIN
  aktifcalismasayfasi.cells[x,1]:=Table1AY.AsString;
  aktifcalismasayfasi.cells[x,2]:=Table1MALZEMEKODU.AsString;
  aktifcalismasayfasi.cells[x,3]:=Table1MALZEMEADI.AsString;
  aktifcalismasayfasi.cells[x,4]:=Table1SARFMIKTAR.AsCurrency;
  aktifcalismasayfasi.cells[x,5]:=Table1NETMIKTAR.AsCurrency;
  aktifcalismasayfasi.cells[x,6]:=Table1FIRE.AsCurrency;
   excel.Visible:=true;
   Table1.Next;
                   end;

  ShowMessage('İŞLEM TAMAM');

  end;

[Dostk]

Selamlar emeği geçen herkese teşekkür ederim sorunu çözdüm http://www.delphican.com/excel-sayfa-2.html