Hi,
habe mir eine Funktion geschrieben, mit der man Text in Excel exportieren kann.
Ja das gibts schon, aber ich habe nichts entdeckt, womit bei "Tab" in die nächste Zelle geschrieben wird, quasi ein Zellen-"Delimiter".
Ist eigentlich selbsterklärend
Spoiler anzeigen
[autoit]
func text_to_excel()
;Quelle
local $var = FileRead("test.txt")
local $ary
;Ziel
$ofile = _ExcelBookOpen(@ScriptDir & "\testexcel.xls",0)
$ary = StringSplit($var,@LF)
[/autoit] [autoit][/autoit] [autoit]for $i = 1 to $ary[0]
if StringInStr($ary[$i],chr(9)) then
$str = StringSplit($ary[$i],chr(9))
for $z = 1 to $str[0]
_ExcelWriteCell($ofile,$str[$z],$i,$z)
Next
Else
_ExcelWriteCell($ofile,$ary[$i],$i)
EndIf
Next
_ExcelBookSave($ofile)
_ExcelBookClose($ofile)
EndFunc
Grüße
x0r