Hi,
Lösungsansatz 1: Benenne die Text Datei um in csv und öffne diese dann mit Excel.
#include <excel.au3>
Filecopy ("c:\mytext.txt", "c:\mytext.csv")
$oExcel = _ExcelBookOpen ("c:\mytext.csv")
_ExcelBookClose ($oExcel, 0, 1)
Lösungsansatz 2 (quick and dirty; bei Fehlern schau nochmal in die Hilfe):
#include <file.au3>
#include <excel.au3>
Dim $arMyarray
$oExcel = _ExcelBookNew ()
_FileReadToArray ("c:\mytext.txt", $arMyarray)
For $i = 1 To UBound ($arMyarray) - 1
$temp = Stringsplit ($arMyarray [$i], ";")
For $j = 1 To UBound ($temp) - 1
_ExcelWriteCell ($oExcel, $temp [$j], $i, $j)
Next
Next
_ExcelBookSaveAs ($oExcel, "c:\mytext.xls")
_ExcelBookClose ($oExcel)
;-))
Stefan
hey, dank dir, in csv umbennen ist ne super idee 
klappt einwandfrei ... thx
Hi, ich wollte auch .txt-Dateien nach excel exportieren. Das mit in *.csv umbennen funktioniert klasse! jetzt habe ich bloß das Problem das bei mir folgende Fehlermeldung kommt:
Line 191 (File "C: \Programm Files (x86)\AutoIt3\Inlcude\excel.au3"):
If$sPassword = "" And $sWritePassword = "" Then
.WorkBooks.Open($sFilePath,Default,$IfReadOnly)
If$sPassword = "" And $sWritePassword = "" Then
.WorkBooks.Open($sFilePath,Default,$IfReadOnly)^ ERROR
Error: The requested action with this Object has failed.
Das Script habe ich 1 zu 1 kopiert, als *.au3-Datei gespeichert und gestartet. Die Dateien werden in "*.csv" umbenannt. Was genau soll danach in den letzten beiden Zeilen passieren?
Gruß, NightmarePhoenix
Es gibt 2 Möglichkeiten:
Bei _ExcelBookOpen den kompletten Pfad angeben (also C:\temp\test.csv statt nur test.csv) oder meine neue Excel UDF verwenden.
P.S: der Import müsste auch mit test.txt funktionieren.
hm, also auch auf die gefahr das ich mich jetzt selbst als ganz blöd hinstelle ( 
), so ganz versteh ich nicht was du meinst mit den kompletten pfad angeben. meinst du jetzt in dem Script oder in der alten Excel UDF? Weil im script ist ja der komplette pfad angegeben oder?
ich steig da grade nicht so ganz durch, sorry :\
Gruß, Nightmare
In welchem Script? Habe ich Deinen Code irgendwo übersehen?
naja, da ich ihn 1 zu 1 kopiert habe von ojo habe ich ihn nicht nochmal gepostet.
Aber hier trotzdem nochmal:
#include <excel.au3>
Filecopy ("c:\mytext.txt", "c:\mytext.csv")
$oExcel = _ExcelBookOpen ("c:\mytext.csv")
_ExcelBookClose ($oExcel, 0, 1)
Probiere doch mal diesen FileCopy:
[autoit]
Filecopy ("c:\mytext.txt", "c:\mytext.csv",1)
Ansonsten bleibt Dein FileCopy ohne Auswirkung auf Veränderungen in Deiner txt.
Kannst Du denn die neue csv-Datei per Doppelklick mit Excel öffnen?
ok, danke, guter vorschlag, aber mir zum beispiel soll die .txt eh nicht verändert werden
und im notfall kann man die fehlerhafte .csv vorher löschen. Und wenn ich mich nicht ganz vertue sollen die letzten beiden zeilen
die .csv-dateien öffnen und als normale excel-dateien speichern (weiß ich nicht sicher, da genau hier ja mein problem liegt :P).
ja, sie können ganz normal per doppelklick geöffnet werden.
Das enlg. Forum ist voll mit solchen Meldungen die darauf hinweisen, dass kein absoluter Pfad angegeben wurde.
Beispiel.
naja, aber der pfad ist doch angegeben, oder vertue ich mich da?
Edit: hab es jetzt hin bekommen. Ich hatt den Dateinamen als "*.txt" gelassen... Was mich aber zu der frage führt, was genau die zwei zeilen eigentlich machen? weil für mich sieht es so aus als würde es einfach die Datei in Excel öffnen und dann wieder schließen?
Pfadangabe passt.
Nächster Schritt: Schreib mal eine XLS Datei in den selben Pfad und probiere die mit dem Skript zu öffnen. Wenn's geht, dann liegt es an der TXT/CSV Datei.
hab grade schon einen edit angehängt bevor ich deinen post gesehen hatte, hab es hinbekommen 
blöd wenn man dann doch eine kleine änderung vorgenommen hat und es dann selbst vergisst zu erwähnen naja, das läuft jetzt soweit, aber was genau sollen die beiden zeilen im script eigentlich genau bringen?
Richtig. Ist ja nur ein Beispiel um den Fehler zu reproduzieren.
Im "echten Leben" gehören da noch Statemetns zur Verarbeitung der Daten und natürlich "Error checking" rein. Also die Prüfung, ob ein Funktionsaufruf fehlerfrei gelaufen ist.
