Arkadaşlar Merhaba; Bu şekilde Kod bloğunu düzelttim 2 yerde sorun buldum ama düzeltemedim yardımlarınıza ihtiyacım var.
1- Bu satırı aktif ettiğim zaman bütün hücreleri metin haline çeviriyor ve hesaplama yapmıyor sadece B2 sütününü metin yapmak istiyorum;
Kod: Tümünü seç
// Sheet.Columns[Row+2].NumberFormat := '@'; //Text
2- Sorunda hesaplama yapıyor ama 3 satır ise 2 satırda toplam yazıyor.
Kod: Tümünü seç
Sheet.Cells[Col,8].Formula := '=SUM(H2:H' + InttoStr(Col - 1) + ')';
Kod: Tümünü seç
try
For Row:=0 to DBG.Columns.Count-1 do
begin
Sheet.Cells[1,Row+1]:=DBG.Columns[Row].Title.Caption;
Sheet.Columns[Row+1].ColumnWidth:=(0.139*DBG.Columns[Row].Width);
Sheet.Range['A1','AD1'].Font.Bold:=True;
Sheet.Range['A1','AD1'].Font.Color:=clRed;
end;
DBGDataset.First; Col:=1;
While not(DBGDataset.Eof) do
begin
Col:=Col+1;
For Row:=0 to DBG.Columns.Count-1 do
begin
Excel.Cells[Col,Row+1].HorizontalAlignment :=-4131;
Sheet.Cells[Col,Row+1]:=DBG.Columns[Row].Field.AsString;
// Sheet.Columns[Row+2].NumberFormat := '@'; //Text
Sheet.Columns['A:AC'].EntireColumn.AutoFit;
end;
DBGDataset.Next;
end;
Sheet.Cells[Col,8].Formula := '=SUM(H2:H' + InttoStr(Col - 1) + ')';
WorkBook.SaveAs(FileName);
showmessage('Kayıtlar Excele Başarılı Bir Şekilde Aktarıldı');