Seite 1 von 1
EXCEL und Zelle formatieren
Verfasst: Do, 30. Okt 2014 9:06
von Rudolf
Hallo,
wie kann ich eine Zelle als Character formatieren ?
Grüße
Rudolf
oExcel:DisplayAlerts := .F.
oExcel:visible := .f.
oBook := oExcel:workbooks:Add()
oSheet := oBook:ActiveSheet
oSheet:Name := "Test"
nRow := 1
oSheet:Cells(nRow,1):Value := "012345" // wird autom. Zahl, sollte aber character sein, da sonst die führende 0 verlorengeht
Re: EXCEL und Zelle formatieren
Verfasst: Do, 30. Okt 2014 9:20
von Bertram Hansen
Hallo Rudolf,
ich mache wie folgt:
Legende:
::aStructur[i,3] -> Feldtype
::aStructur[i,4] -> Anzahl Vorkommastellen
::aStructur[i,5] -> Anzahl Nachkommastellen
Code: Alles auswählen
DO CASE
// Datentyp Numerisch
CASE ::aStructur[i,3] == "N"
IF ::aStructur[i,5] == 0
::oSheet:Columns(i):NumberFormat := "0"
ELSE
::oSheet:Columns(i):NumberFormat := "0,"+ REPLICATE('0', ::aStructur[i,5])
ENDIF
::oSheet:Columns(i):HorizontalAlignment := 4 // 4 -> rechtsbndig
// Datentyp Datum
CASE ::aStructur[i,3] == "D"
::oSheet:Columns(i):NumberFormat := "TT.MM.JJ"
::oSheet:Columns(i):HorizontalAlignment := 2 // 2 -> linksbndig
// Datentyp Logisch
CASE ::aStructur[i,3] == "L"
::oSheet:Columns(i):NumberFormat := "Standard"
::oSheet:Columns(i):HorizontalAlignment := 2 // 2 -> linksbndig
// Datentyp Zeichenkette
CASE ::aStructur[i,3] == "C"
::oSheet:Columns(i):NumberFormat := REPLICATE('#', ::aStructur[i,4])
::oSheet:Columns(i):HorizontalAlignment := 2 // 2 -> linksbndig
// Datentyp Sonderformat Datum
CASE ::aStructur[i,3] == "S"
::oSheet:Columns(i):NumberFormat := "MMMMMMMMM JJJJ"
::oSheet:Columns(i):Left
HorizontalAlignment = xlLeft
// Datentyp Zeit
CASE ::aStructur[i,3] == "Z"
::oSheet:Columns(i):NumberFormat := "hh:mm:ss"
::oSheet:Columns(i):HorizontalAlignment := 2 // 2 -> linksbndig
ENDCASE
Re: EXCEL und Zelle formatieren
Verfasst: Do, 30. Okt 2014 10:07
von Rudolf
Hallo Bertram,
danke für den Tip, habs so versucht:
oSheet:Cells(nRow,17):NumberFormat := REPLICATE('#',8)
oSheet:Cells(nRow,17):Value := "0125"
aber im EXCEL wird immer noch die führende 0 abgeschnitten und die Zelle ist als Zahl definiert.
Grüße
Rudolf
Re: EXCEL und Zelle formatieren
Verfasst: Do, 30. Okt 2014 10:08
von Herbert
Rudolf hat geschrieben:Hallo,
oSheet:Cells(nRow,1):Value := "012345" // wird autom. Zahl, sollte aber character sein, da sonst die führende 0 verlorengeht
Schick "'012345"
Re: EXCEL und Zelle formatieren
Verfasst: Do, 30. Okt 2014 10:20
von Rudolf
Hallo Herbert,
Danke ! genau das eine Anführungszeichen hat genügt, formatieren alleine reicht anscheinend nicht.
Grüße
Rudolf