Excel aktarmada Sorun !

[ozcank]

Arkadaşlar bu şekilde yapıyorum ama kitap1.xls oluşturmuyor
burda hata veriyor.

Kod: Tümünü seç

 v.workbooks.open('c:\kitap1.xls');

Kod: Tümünü seç

procedure TForm1.Button2Click(Sender: TObject);
var
  i : integer;
begin
  v:=createoleobject('excel.application');
  v.workbooks.open('c:\kitap1.xls');
  sayfa:=v.workbooks[1].worksheets[1];

  Query1.Close;
  Query1.SQL.Clear;
  Query1.SQL.Add('select * from SISTEMFOR');
  Query1.Open;

  Query1.First;

  for i := 1 to query1.RecordCount do
  begin
      sayfa.cells[(i+8),3] := query1.Fields[1].AsInteger;
      sayfa.cells[(i+8),4] := query1.Fields[2].Asfloat;
  query1.Next;
  end;
  v.quit;
end;

[rsimsek]

İlk bakacağın yer burası; viewtopic.php?t=5855&highlight=xls+ole+uses

Bir de herhangi bir hata verip vermediğini ve uses a ComObj yi ekliyor musun

[ozcank]

evet ekliyorum ama oluşturmuyor eğer c:\kitap1 i kendim oluşturursam atıyor ,birde bu alanları ekliyorum fakat 3 e kadar excel e atıyor diğerlerini atmıyor.

Kod: Tümünü seç

sayfa.cells[(i+2),1] := query1.Fields[1].AsInteger; 
sayfa.cells[(i+2),2] := query1.Fields[2].Asfloat; 
sayfa.cells[(i+2),3] := query1.Fields[1].AsString; 
sayfa.cells[(i+2),4] := query1.Fields[2].AsString; 
sayfa.cells[(i+8),5] := query1.Fields[1].AsInteger;