Hiho,
ich lese wiederkehrende (nach unten) Daten aus Excel ein und erstelle daraus TXT-Dateien.
Leider sind die Daten in einer Zelle (sprich 5 Spalten) miteinander verbunden und der bricht mir die Daten in ne neue Zeile um.
Wie kann ich dies in eine Zeile bekommen?
Ebenso weiß ich nicht, wann die Tabelle aufhört -> mehr als 8 Zeilen leer wäre Ende der Excel-Datei, gibt es da ne einfache Prüfung odermuss ich auf leer testen??
Spoiler anzeigen
#include <Excel.au3>
#include <Array.au3>
Global $error
Global $sFilePath1 = @ScriptDir & "\e2.xls" ; D
Global $oExcel = _ExcelBookOpen($sFilePath1)
Global $aarrayr[8][2] = [[3,1],[4,1],[12,1],[14,2],[18,2],[19,2],[18,5],[19,5]]
Global $date
$oExcel.ActiveWorkbook.Sheets("Belege").Select()
[/autoit] [autoit][/autoit] [autoit]If $error = 1 Then
MsgBox(0, "Fehler!", "Das Excel-Objekt konnte nicht erstellt werden")
Exit
ElseIf $error = 2 Then
MsgBox(0, "Fehler!", "Die Lese-Datei existiert nicht!")
Exit
EndIf
Local $file = FileOpen("test.txt", 1)
[/autoit] [autoit][/autoit] [autoit]If $file = -1 Then
MsgBox(0, "Fehler", "Die Schreib-Datei konnte nicht geöffnet werden.")
Exit
EndIf
For $j = 0 to 210 step 21; wiederkehrende Zellen + 21
For $i = 0 To 7; 8 Zellen werden gelesen
$date =_ExcelReadCell($oExcel, ($aarrayr[$i][0])+$j,$aarrayr[$i][1])
FileWriteLine($file, $date & @CRLF)
Next
FileWriteLine($file, "--------------------------------------" & @CRLF)
Next
_ExcelBookClose($oExcel) ;
FileClose($file)