[Gelöst] Excelspalte für Export aus einem Report formatieren

Hallo,

ich habe da noch eine Frage zum Formatieren in Excel. Ich habe einen Report erstellt, der sein Ergebnis in Excel exportieren kann. Leider wird bei der Kundennummer die führende Null nicht ausgegeben. Hierfür möchte ich die Spalte im Excel Sheet als Text formatieren. Ich kenne zwar ein paar Formatierungsmöglichkeiten, diese aber noch nicht. Ein sieht bspw. so aus:

Code:

 Sheet.Range('D'+ FORMAT(i)).Font.Bold := TRUE;
          Sheet.Range('D'+ FORMAT(i)).Value := txtSurname;


Gibt es übrigens eine hilfreiche Website mit allen Formatierungen?

Danke für Eure Hilfe!

Zuletzt geändert von mgerhartz am 28. September 2006 12:55, insgesamt 1-mal geändert.

Hallo mgerhartz

versuche es mal hiermit

Sheet.Range('D1').NumberFormat := '@';
[B]Sheet.Range('D1').Value := txtSurname;

Werde es gleich mal ausprobieren und anschließend berichten. Kennst Du vielleicht eine Website, auf der verschiedene Formatierungen hinterlegt sind. Ich möchte nicht jedes mal hier meine Frage posten müssen.

Hallo,

eine Website kenne ich nicht aber einen guten Trick. Öffne Excel und starte ein Macro führe dann den gewünschten Befehl aus und sieh dir das Macro in Excel an. So mache ich es immer.

Ne, hat leider nicht funktioniert. Konkret habe ich folgendes ausprobiert:

Code:

  IF Rec_MailingGroup.FIND('-') THEN
  BEGIN
    i := i + 1;
    REPEAT
      Sheet.Range('A1').NumberFormat := '@';
      Sheet.Range('A'+ FORMAT(i)).Value := Structure."Structure No.";

Hallo,

dann versuche folgendes

IF Rec_MailingGroup.FIND('-') THEN
BEGIN
i := i + 1;
REPEAT
Sheet.Range('A1').NumberFormat := '@';
Sheet.Range('A'+ FORMAT(i)).Value := FORMAT(Structure."Structure No.");

Mmmh, auch das hat leider nicht funktioniert!

Hallo

ist i denn 1 ?

Hallo,

hier ist mein Code


Sheet.Range('A5').NumberFormat := '@';
Sheet.Range('A5').Value := FORMAT(Customer."No.");
Customer."No." ist 012345

In Excel erscheint 012345

Ja, im on PreDataItem habe ich i = 1 gesetzt.

Hi

IF Rec_MailingGroup.FIND('-') THEN
BEGIN
i := i + 1;
REPEAT
Sheet.Range('A1').NumberFormat := '@';
Sheet.Range('A'+ FORMAT(i)).Value := FORMAT(Structure."Structure No.");
Hallo,

dann versuche folgendes

IF Rec_MailingGroup.FIND('-') THEN
BEGIN
i := i + 1;
REPEAT
Sheet.Range('A1').NumberFormat := '@';
Sheet.Range('A'+ FORMAT(i)).Value := FORMAT(Structure."Structure No.");Hallo,

dann versuche folgendes

IF Rec_MailingGroup.FIND('-') THEN
BEGIN
i := i + 1; <--- und hier setzt du i um 1 hoch also ist i = 2
REPEAT
Sheet.Range('A1').NumberFormat := '@';
Sheet.Range('A'+ FORMAT(i)).Value := FORMAT(Structure."Structure No.");
Zum vollen Editor wechseln

Haaaaabs,

Sheet.Range('A'+ FORMAT(i)).NumberFormat := '@';

Na endlich. Danke für Deine Hilfe!

Hi,

ein ähnliches Problem hatte ich auch mal bei einem Excelexport, ich musste verhindern, dass er Felder mit einem '=' als Formel nimmt.

Verwendet hab ich bis jetzt immer den Excel-Export von Navision24.de, meiner Meinung nach eine sehr einfache Möglichkeit dafür, wenn auch ein bißchen viel Tipparbeit bei großen Exporten ;)
Gelöst hab ich das Problem, aber durch eine ganz einfach Methode, indem ich einfach ein Hochkomma (') vor den Text gesetzt hab, wenn es nötig war.
Dazu hab ich einer Textkonstanten (Text000) den Wert ' gegeben und im Export diese Zeile eingefügt:

Code:

EnterCell(RowNo, ColumnNo, TEXT000 + gr_JobBQPos.Description, '')

Vielleicht kann dir das ja auch helfen ;)