Problem with automation and Excel

Alex

Hello,

I have following problem i what to put in an Excel Cell
some Text that is larger then 250 Characters.
Like this way for Example

---

REPEAT
Text := Text + Artikeltext.NEWTEXT;
//maybe If text > 250 Then ....
UNTIL Artikeltext.NEXT = 0;

xlsheet.Range('B' + FORMAT(i)).Value := Artikeltext.Text;
xlsheet.Range('B' + FORMAT(i)).ColumnWidth(30);
i:=i+1;

---

If the Variable goes ofer 250 Character i get an Error
Okay, that logic !? But now, how can i put more Text in then
Excel Cells that which are right now filled with some character ... ?

Greetings from Germany
Alex

Dennis

The problem is that a textvariable cannot exceed 250 chars. You should try to use xlsheet.Range('B' + format(i)).value := xlsheet.Range('B' + format(i)).value + Artikeltext.NEWTEXT; instead of Text := Text + Artikeltext.NEWTEXT;

Good luck

Dennis

The problem is that a textvariable cannot exceed 250 chars. You should try to use xlsheet.Range('B' + format(i)).value := xlsheet.Range('B' + format(i)).value + Artikeltext.NEWTEXT; instead of Text := Text + Artikeltext.NEWTEXT;

Good luck

---

Dennis van Es
PerCom: Research & Development BV
The Netherlands

Alex

Thanks Dennis,
i try this variant also,
but i get following Error : Joker + Text does't work together, and if i try it in this way

---

xlsheet.Range('B' + format(i)).value := xlsheet.Range('B' + format(i)).value + xlsheet.Range('B' + format(i)).value( Format(Artikeltext.Text));

---

I get an error like: Joker + Joker doesn't work ...

Anyone know a solutiopn ?!?!?


Best regard Alex

Wonder_Why

<marquee align="middle">TEST</marquee>