Beiträge von Snow12

  • Ecxel + Array

    Hi autoiter

    O.K mit "du" wird geschrieben kenn es halt anders.


    Das mit den Txt Problem konnte ich dank deiner Hilfe so lösen

    Local $aRecords
    $sSourcePath = "C:\Users\dd\Desktop\Array\"
    $aFilesInFolder = _FileListToArray($sSourcePath, "*.txt" )
    For $i = 1 To $aFilesInFolder[0]
    If Not _FileReadToArray($sSourcePath & $aFilesInFolder[$i],$aRecords) Then
    MsgBox(4096,"Fehler", "Fehler beim einlesen der Daten.")
    Exit
    EndIf

    aber 5. Wert in Spalte B hab ich so versucht

    Local $iRow = 1 ; Deine Startzeile
    For $i = $aRecords[0] To $aRecords[0] - 3 Step -1; vom letzten bis zum viertletzten Eintrag rückwärts gehen.
    For $ii = $aRecords[0] To $aRecords[0] - 1 Step -1; vom letzten bis zum viertletzten Eintrag rückwärts gehen.
    _Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, $aRecords[$i], "A" & $iRow) ; Im ersten Durchlauf wird $aRecords[viertletzter Wert] in Spalte A Zeile 1 geschrieben.
    _Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, $aRecords[$ii], "B" & $iRow) ; Im ersten Durchlauf wird $aRecords[viertletzter Wert] in Spalte A Zeile 1 geschrieben.


    $iRow += 1 ; Für den nächsten Durchlauf, wird die Variable $iRow um 1 erhöht, damit immer in die nächste Spalte geschrieben wird.
    Next
    Next

    Nur hab ich jetzt überall doppelte Einträge

  • Ecxel + Array

    Hallo Herr autoiter

    Sie haben mir sehr weitergeholfen, 2 Sachen sind mir noch ein wenig unklar.
    If Not _FileReadToArray("C:\Users\dd\Desktop\Array\1.txt",$aRecords) Then
    hatte Versucht "*.txt" in Array einzulesen da meine txt Dateien immer anders heissen bekomme aber immer eine Fehlermeldung.

    und die 2 Sache ist es möglich die letzten 4 Werte zu "Spiegeln" d.h also der letzte Wert in A1, vorletzter A2, usw....

    und wenn ich den 5 Wert in die Spalte B bringen möchte muss ich diese Zeile
    _Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, $aRecords[$i], "B" & $iRow)
    so nochmal eingeben?
    Oder einfacher gesagt kann man jeden Wert speziell zuweisen.

    mfg
    Snow12


  • Ecxel + Array

    Hallo Leute erstmal

    Beschäftige mic seit kurzem mit Autoit und hätte eine Frage

    Spoiler anzeigen


    #include <Array.au3>
    #include <MsgBoxConstants.au3>
    #include <Excel.au3>
    #Include <File.au3>


    Local $aRecords
    If Not _FileReadToArray("C:\Users\dd\Desktop\Array\1.txt",$aRecords) Then
    MsgBox(4096,"Fehler", "Fehler beim einlesen der Daten.")
    Exit
    EndIf
    For $x = 1 To $aRecords[0]
    ; MsgBox(0, "", "Array eingelesen")
    Next


    Local $oExcel = _Excel_Open()
    If @error Then Exit MsgBox($MB_SYSTEMMODAL, "_Excel_Open Error", "Error creating the Excel application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
    Local $oWorkbook = _Excel_BookOpen($oExcel, "C:\Users\dd\Desktop\" & "\test.xls"); Exceldatei öffnen
    If @error Then
    MsgBox($MB_SYSTEMMODAL, "Reading of Excel File Failed", "Error opening workbook" & @CRLF & "@error = " & @error & ", @extended = " & @extended)
    _Excel_Close($oExcel)
    Exit
    EndIf


    Local $aArray[4] = ["", "", ""]
    _Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, $aRecords, "A1")

    Versuche vergebens ein Array ins Excel zu Bringen klappt auch aber nur bedingt.
    Die txt.Datei hat ca 100 Einträge nur Zahlen.

    Ich habe aber 101 Einträge in der Excel Tabelle und das auch nicht in der richtigen Reihenfolge
    ich würde gerne nur die letzten 4 Zeilen ins Excel bringe aber keine Ahnung wie.
    Vielleicht kann ja jemand kurz drüberschauen und eine wenig helfen.