Listview deki dataları excele aktarıyorum, fakat aktarılar 2. sayfaya kayıyor yani iki yanyana sayfaya çıkıyor.
Listview deki aktarılan verileri excelde tek bir sayfaya otomatik nasıl sığdıra bilirim...
Bu şekilde oluyor...

Benim yapmak istediğim...

Kod: Tümünü seç
excel.range['A1','L10'].EntireColumn.AutoFit;
Kod: Tümünü seç
ExcelApplication1.ActiveSheet.Columns[1].ColumnsWidth := 5;
Kod: Tümünü seç
Function ExcelSetColumnWidth(Excel : Variant; ColNum, ColumnWidth: Integer): Boolean;
Var
RowWas : Integer;
ColWas : Integer;
Begin
Try
RowWas := ExcelGetRow(Excel);
ColWas := ExcelGetCol(Excel);
ExcelSelectCell(Excel,1,ColNum);
Excel.Selection.ColumnWidth := ColumnWidth;
ExcelSelectCell(Excel,RowWas,ColWas);
Result := True;
Except
Result := False;
End;
End;
Kod: Tümünü seç
excel.Range['A1','C10'].Rows.Autofit;
Merhaba aşağıdaki şekilde aktarabilirsinertank yazdı:Merhaba, Excel'e aktarım kodunu paylaşabilir misin?
Kod: Tümünü seç
procedure TForm1.Button1Click(Sender: TObject);
var
excel: Variant;
BEGIN
excel:=CreateOleObject('excel.application');
excel.Visible:=false; // Exceli gizle
try
excel.workbooks.add;
excel.ActiveSheet.cells[1,1].value:='ADI'; // exceldeki aktif sayfayanın birinci satır ve birinci sütünuna Adı yaz
excel.ActiveSheet.cells[1,2].value:='FİYAT';// exceldeki aktif sayfayanın birinci satır ve ikinci sütünuna Fiyat yaz
finally
excel.visible:=true; // Exceli göster.
end;
end;
Merhaba,Lord_Ares yazdı: Merhaba aşağıdaki şekilde aktarabilirsin
Kod: Tümünü seç
Worksheet.PageSetup.LeftMargin := 1;
Worksheet.PageSetup.RightMargin := 1;
Worksheet.PageSetup.TopMargin := 2;
Worksheet.PageSetup.BottomMargin := 2;