also Ich kann nicht ganz nachvollziehen.
im Moment ist es nicht möglich mit Openfile und meiner Lib zu arbeiten, da Ich die PB Befehle auch benutze.Code: Alles auswählen
;Eine CSV-Datei ins Excelformat konvertieren
NewList test.s()
If ReadFile(0, "c:\data\op-montage\SQL\OPTabelle.txt")
While Eof(file)=0
AddElement(test())
test()=ReadString()
Wend
CloseFile(file)
XLS_CreateFile("c:\pbTest.xls")
XLS_PrintGridLines(#False)
XLS_SetMargin(#XLS_TopMargin, "1.5") ; set to 1.5 inches
XLS_SetMargin(#XLS_LeftMargin, "1.5")
XLS_SetMargin(#XLS_RightMargin, "1.5")
XLS_SetMargin(#XLS_BottomMargin, "1.5")
XLS_SetFont("Arial",10,#XLS_NoFormat)
XLS_SetFont("Arial",10,#XLS_Bold)
XLS_SetFont("Arial",10,#XLS_Bold|#XLS_Underline)
XLS_SetFont("Arial",18,#XLS_Italic)
XLS_SetColumnWidth(0,0,50)
XLS_SetDefaultRowHeight(16)
;XLS_SetRowHeight(0,24)
;XLS_SetRowHeight(1,24)
XLS_SetHeader("This is the header")
XLS_SetFooter("This is the footer")
ForEach test()
XLS_WriteText(test(),ListIndex(test()), 0, #XLS_Font0, #XLS_RightAlign, #XLS_CellNormal, #XLS_Bold)
Next
XLS_CloseFile()
Else
Debug "File not found"
EndIf
Danke, genau so!ABBKlaus hat geschrieben: @TS-Soft ich bin mir nicht ganz sicher ob du das mit dem Includefile so gemeint hast
Code: Alles auswählen
XLS_WriteText(text.s, r.l, c.l, #XLS_Font0, #XLS_RightAlign, #XLS_CellNormal, #XLS_Bold)
Code: Alles auswählen
Cellformat ist eine vordefinierte Konstante :
0 = "Gerneral"
1 = 0
2 = 0.00
3 = #,##0
4 = #,##0.00
5 = #,##0\ "$";\-#,##0\ "$
6 = #,##0\ "$";[Red]\-#,##0\ "$"
7 = #,##0.00\ "$";\-#,##0.00\ "$"
8 = #,##0.00\ "$";[Red]\-#,##0.00\ "$"
9 = 0%
10 = 0.00%
11 = 0.00E+00
12 = yyyy-mm-dd
13 = dd/\ mmm\ yy
14 = dd/\ mmm
15 = mmm\ yy
16 = h:mm\ AM/PM
17 = h:mm:ss\ AM/PM
18 = hh:mm
19 = hh:mm:ss
20 = dd/mm/yy\ hh:mm
21 = ##0.0E+0
22 = mm:ss
23 = @