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

[oakley]

Okay also ich habe es jetzt so gemacht, dass ich LCID abfrage.

Code:

LCID := Languages.indexOf(SysLocale.DefaultLCID);
syslang := Languages.LocaleID[LCID];

Wenn syslang = 1031 habe ich als Systemsprache Deutsch.

Ich gehe dabei einfach mal davon aus, dass die installierte Excel Sprache gleich der Systemsprache ist.

Danke für Eure Hilfe und die zahlreichen Erklärungen.

LG

Mirko

[Jumpy]

Man kann doch das NumberFormat einfach mit dem amerikanischen/internationalen/allgemeingültigen Format-String setzen. Nur wenn ich stattdessen NumberFormatLocal benutze muss ich aufpassen, oder?

[oakley]

Also das nachträgliche Schreiben der Formate funktioniert.
Das Workbook wird auch nicht angezeigt weil Excelapp.Visible := false gesetzt ist.
Sobald Excel das erste mal gestartet ist wird eine zweite Excel Instanz erzeugt und die ist dann direkt sichtbar.

Wir kann ich unterdrücken, dass bei geöffnetem Excel das Workbook direkt angezeigt wird?

Code:

  ExcelApp := CreateOleObject('Excel.Application');
  Excelapp.Visible := false; <- Wird bei laufendem Excel ignoriert
  Workbook := ExcelApp.WorkBooks.Open(excelfilename); <- hier wird die Datei dann im sichtbaren Excel geöffnet, was aber falsch ist
  ExcelApp.Range['A1','J1'].EntireColumn.AutoFit;
  ExcelApp.Range['A1','J1'].Font.Bold := True;
  ExcelApp.Range['A1','J1'].HorizontalAlignment := -4108; //xlHAlignCeenter
  ExcelApp.Range['A1','J1'].Interior.Color := RGB(150,150,150);

...

  Excelapp.Visible := True;

LG

Mirko

[mmw]

Hallo,
so müsste es funktionieren.

Delphi-Quellcode:

var
  excel_obj: olevariant;
  i: Integer;
begin
  excel_obj := unassigned;
  excel_obj := GetActiveOleObject('Excel.application');

  for i := 1 to excel_obj.windows.count do
    excel_obj.Windows[i].visible := false;

  excel_obj := unassigned;

end;

Gruß

[oakley]

Danke mmw,

das funktioniert.

LG

Mirko