memoyu excel`e aktarınca enter lar

[eduran]

slm.aşağıdaki kodla memo`nun içeriğini excel`e aktarıyorum. ancak eğer memo`da enter a basılmışsa bunlar excel`deki hücre de ufak karecikler şeklinde çıkıyor. bunun bir çözümü var mı arkadaşlar?

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  excel, workbook, sheet: variant;
begin
  EXCEL := CREATEOLEOBJECT('EXCEL.APPLICATION');
  EXCEL.VISIBLE :=TRUE;
  WORKBOOK :=EXCEL.WORKBOOKS.ADD;

  SHEET:=WORKBOOK.WORKSHEETS[1];
  sheet.range['A1']:=Memo1.Lines.text;
end;

iyi çalışmalar..

[67neo]

Merhaba,

Kardeş bunun için önce memo içindeki bilgileri bir döngüye koymalısın ve #13 karakterini aratıp bulduğunu sildirmen gerekir. bunları copy(), delete() fonksiyonları ile yapabilirsin. sonucu da döngü içinde bir degiskene aktarmalısın. Tabii artık o değişkeni de rahatlıkla excele gönderebilirsin.

[t-hex]

Yani kısaca;

Kod: Tümünü seç

  sheet.range['A1']:=AnsiReplaceStr(Memo1.Lines.text,#13,'');

AnsiReplaceStr fonksiyonu StrUtils unitesinde tanımlıdır.

[eduran]

Aradan uzun zaman geçmiş. Denedim çalıştı. Teşekkür ediyorum.