Excel Zahlen werden als Zahl formatiert müssen aber angeklickt werden

[Chemiker]

Hallo Andreas13,

der Except Block wird zuverlässig ausgeführt!
Du hast eine nicht ordnungsgemäße geschlosse Excel-Instanz im Hintergrund laufen. Im Task-Manager wird diese Instanz unter Prozesse angezeigt.

Bis bald Chemiker

[Andreas13]

Danke Chemiker, das war der Grund für den Programm-Absturz!
Gruß, Andreas

[oakley]

Nachdem das Ganze jetzt mit dem Neuschreiben der Zahlen funktioniert wollte ich noch die letzte Spalte als Datum formatieren.
Ich habe ein Datum-Format mit Schrägstrichen, also sowas wie 24/12/2020 .
In Excel werden in der betreffenden Spalte teilweise Zellen als Text, teilweise Datum erkannt.

Code:

ExcelApp.Range['A1','A1'].EntireColumn.NumberFormat:= 'dd/mm/yyyy';

Funktioniert leider nicht. Excel formatiert nach wie vor wie es möchte, bzw ein Datum erkannt wird.

LG

Mirko

[Andreas13]

Hallo Mirko,
für die deutsche Excel-Version mußt Du folgendes schreiben:

Delphi-Quellcode:

Excel.Range['A1','A10'].EntireColumn.NumberFormat:= 'TT/MMMM/JJJJ';  oder 
Excel.Range['A1','A10'].EntireColumn.NumberFormat:= 'TT/MM/JJJJ';

Gruß, Andreas

[Chemiker]

Hallo,

wenn man das TMS – StringGrid (das SG von Delphi funktioniert genauso) in Excel übertragen will, benutze ich folgende Routine, das ist ein Extrakt sollte aber funktionieren:

Delphi-Quellcode:

procedure HPL_TMS_SG_nach_Excel;
var i, j:integer;
    Text: String;
    Zahl : Extended;
    Datum: TDateTime;
    olevEXCEL: OLEVariant;

begin
  try
    olevExcel := CreateOleObject('Excel.Application');
  except
    ShowMessage('Microsoft Excel kann nicht starten.');
    exit;
  end;
  olevExcel.Visible := true;
  olevExcel.Workbooks.add;
  for i:=0 to AdvStringGrid1.rowcount-1 do
  begin
    for j:=0 to AdvStringGrid1.colcount-1 do
    begin
      Text:=AdvStringGrid1.cells[j,i];
      if TryStrToFloat(Text, Zahl) then
      begin
        olevEXCEL.cells[i+1,j+1].Value2:= Zahl;
      end
      else
      begin
        if TryStrToDate(Text,Datum) then
        begin
          olevEXCEL.cells[i+1,j+1].Value2 := Datum;
        end
        else
        begin
          olevEXCEL.cells[i+1,j+1].Value2 := Text;
        end;
      end;
     end;
  end;
  // Beispiel einer Formatierung
  // Spalte 3 sind Zahlen und werden mit 2 Kommastellen und Euro Zeichen formatiert
  // Anschließend werden die Zellen rot markiert bis auf die Überschrift.
  olevEXCEL.Range['C1','C10'].NumberFormat :='_(€* #.##0,00_);_(€* (#.##0,00);_(€* ""-""??_);_(@_)';
  olevEXCEL.Range['C2','C10'].Interior.Color:= CLRED;

  Showmessage ('Stop!');
  // Hier aus EXCEL die Datei abspeichern.
  // ist nicht im Code enthalten
  if  NOT VarIsEmpty(olevEXCEL) then
  begin
    olevEXCEL.ActiveWorkBook.Saved:= TRUE;
    olevEXCEL.Quit;
    olevEXCEL:= Unassigned;
  end;
end;

Bis bald Chemiker

[oakley]

Danke für den Code Chemiker ich hatte bis jetzt immer nur die Standardfunktion

Code:

GRID.SaveFiletoXLS(Dateiname:String)

verwendet.

Andreas, gibt es da nichts, das Sprachunabhängig ist? Was macht man wenn man verschiedene Sprachversionen Excel hat? Deutsch und Englisch z.B.?

LG

Mirko

[Moombas]

@oakley: Du könntest das ja nach der Systemsprache entscheiden (https://www.delphipraxis.net/175056-...-auslesen.html), da man in der Regel ja die Programme in der gleichen Sprache installiert wie auch die Systemsprache ist.

Ansonsten hilft dir das evtl weiter:
https://docs.microsoft.com/de-de/off...nguagesettings
bzw.
https://renenyffenegger.ch/notes/Win...esources/index
und dort dann der Key "InstallLanguage", wobei 1031 DE_de ist: https://www.science.co.il/language/Locale-codes.php