Excel: Zelle als "Text" formatieren

[Helmi]

Hallo,

wie kann ich eine Excel-Zelle als "Text" formatieren?
Leider finde ich im Forum nur Datumsformatierungen

Schreiben tu ich so in die Excel-Datei:
http://www.delphipraxis.net/171539-e...cel-datei.html

[p80286]

Delphi-Quellcode:

   
    excel.activesheet.cells(1,j+1).EntireColumn.NumberFormat:='@';
    excel.activesheet.EntireColumn.Cells(1,2).NumberFormat:= '@';
    excel.activesheet.cells(1,j+1).NumberFormat:='@';
    excel.activesheet.Cells.NumberFormat := '@';

Es gibt mehrere Möglichkeiten, probier's mal aus.

Gruß
K-H

[Aviator]

Hallo Helmi,

hatte mir mal eine Funktion geschrieben um immer die entsprechende Formatierung zu erhalten.

Delphi-Quellcode:

function GetFieldDataType(QueryField: TField): Ansistring;
  const
    FORMAT_GENERAL  = 'General';
    FORMAT_STANDARD = 'Standard';
    FORMAT_TEXT     = '@';
    FORMAT_DEZIMAL  = '0.00';
    FORMAT_INTEGER  = '0';
    FORMAT_DATE     = 'dd.mm.yyyy';
    FORMAT_DATETIME = 'dd.mm.yyyy hh:mm:ss';
    FORMAT_CURRENCY = '$#,##0.00_);[Red]($#,##0.00)';
    FORMAT_TIME     = 'hh:mm:ss';

  begin
  //if QueryField.FieldName = 'Gesamtsumme' then ShowMessage(TMTools.FieldTypeToStr(QueryField.DataType));
    case QueryField.DataType of
      ftUnknown:   Result := FORMAT_TEXT;
      ftAutoInc:   Result := FORMAT_INTEGER;
      ftString:    Result := FORMAT_TEXT;
      ftSmallint:  Result := FORMAT_DEZIMAL;
      ftInteger:   Result := FORMAT_INTEGER;
      ftWord:      Result := FORMAT_STANDARD;
      ftBoolean:   Result := FORMAT_TEXT;
      ftFloat:     Result := FORMAT_DEZIMAL;
      ftCurrency:  Result := FORMAT_CURRENCY;
      ftDate:      Result := FORMAT_DATE;
      ftDateTime:  Result := FORMAT_DATETIME;
      ftMemo:      Result := FORMAT_TEXT;
      ftWideMemo:  Result := FORMAT_TEXT;
      ftBCD:       Result := FORMAT_INTEGER;
      ftTime:      Result := FORMAT_TIME;
      else         Result := FORMAT_TEXT;
    end;
  end;

Hat bisher immer funktioniert.
Text also mit @ formatieren. Und immer daran denken, die Formatierung auszuführen bevor du die Zelle füllst.

Ein Aufruf könnte dann so aussehen:

Delphi-Quellcode:

Excel.Sheets[TableName].Cells[Zeile, Spalte].NumberFormat := GetFieldDataType(SourceQuery.Fields[I]);
Excel.Sheets[TableName].Cells[Zeile, Spalte].Value := SourceQuery.Fields[I].AsString;

[Helmi]

Hallo,

Danke für die Antworten.

Ich habe jetzt:

Delphi-Quellcode:

Excel.ActiveSheet.Cells[Zeile, 3].NumberFormat := '@';

.

Schau ich mir dann in Excel die Formatierung der Zelle an, so ist "benutzerdefiniert" aktiv
und nicht Text. Geht das nicht anders, oder fehlt noch etwas?

[p80286]

Soweit ich weiß, ist alles was nicht von Excel kommt "Benutzerdefiniert".

Aber wie Aviator schrieb "hat bisher immer funktioniert"

Gruß
K-H

[Helmi]

bei mir leider nicht

ich übergebe einer Zelle den Text "4:" - in Excel steht dann in der Zelle "64"

[Olli73]

Zitat:

Zitat von Helmi (Beitrag 1227991)

ich übergebe einer Zelle den Text "4:" - in Excel steht dann in der Zelle "64"

Ach, das kenn ich: Vor allem wenn vorher alles lief, man das Projekt dann von Delphi 7 auf 2009 umstellt, man selber natürlich nichts bemerkt und der Kunde am Telefon plötzlich etwas von "alles 64" erzählt ;)

Ein

Code:

... := AnsiChar('@');

schafft aber Abhilfe.

[Helmi]

Vielen Dank! :-D
Mit AnsiChar funktioniert das Ganze und im Excel wird das Format "Text" angezeigt!

[Aviator]

Also der Rückgabetyp meiner Funktion ist Ansistring. Das man das @ als Char übergeben kann ist ja dann eigentlich das selbe (denke ich zumindest). :roll:

[Helmi]

Zitat:

Zitat von Aviator (Beitrag 1228028)

Also der Rückgabetyp meiner Funktion ist Ansistring. Das man das @ als Char übergeben kann ist ja dann eigentlich das selbe (denke ich zumindest). :roll:

sorry - hab ich übersehen!