Autoit Excel Problem

1. offizieller Beitrag

    Hallo liebe Community,
    Ich habe ein kleines Problem und zwar:
    Ich muss aus einer Excel Tabelle 9-stellige Nummern rauskopieren und nach einer Datei mit selbiger Nummer im Dateinamen suchen. Sollte die Datei gefunden werden, in einen anderen Ordner kopieren und 1 Spalte weiter in der Excel Tabelle True bzw. Fase eintragen, je nachdem, ob die Datei gefunden wurde oder nicht.

    Ich komme aber nicht weiter.
    Hier mal der Code:

    [autoit]

    ;includes
    #include <GUIConstants.au3>
    #include <Excel.au3>
    #include <GUIConstantsEx.au3>
    ;GUI
    ;-------------------------------------------------------------------------------------------------------

    [/autoit][autoit][/autoit][autoit]

    Opt("GUIOnEventMode", 1)
    GUISetIcon("icon.ico")
    #Region ### START Koda GUI section ### Form=c:\users\lub00n\downloads\blabla excel.kxf
    $Form1 = GUICreate("Excel", 373, 263, 672, 234)
    $Label2 = GUICtrlCreateLabel("Quellordner", 8, 104, 58, 17)
    $Label3 = GUICtrlCreateLabel("Zielordner", 8, 136, 51, 17)
    $Pic1 = GUICtrlCreatePic("C:\ogo.jpg", 8, 0, 345, 100)
    $Quelle = GUICtrlCreateInput("Quelle", 128, 104, 209, 21)
    $Ziel = GUICtrlCreateInput("Ziel", 128, 136, 209, 21)
    $Label4 = GUICtrlCreateLabel("Name der Excel Datei", 8, 168, 107, 17)
    $Name = GUICtrlCreateInput("Name", 128, 168, 209, 21)
    $Label1 = GUICtrlCreateLabel("Anzahl der Dateien", 8, 200, 94, 17)
    $Anzahl = GUICtrlCreateInput("Anzahl", 128, 200, 113, 21)
    $Neue = GUICtrlCreateLabel("Startzeile", 8, 232, 47, 17)
    $Zeile = GUICtrlCreateInput("Zeile", 128, 232, 113, 21)
    $Start = GUICtrlCreateButton("Start", 272, 224, 81, 25, 0)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    GUICtrlSetOnEvent($Start, "BlaBla")
    GUISetOnEvent($GUI_EVENT_CLOSE, "Beenden")

    [/autoit][autoit][/autoit][autoit]

    While 1
    Sleep(100)
    WEnd

    [/autoit][autoit][/autoit][autoit][/autoit][autoit]

    ;---------------------------------------------------------------------------------------------------------

    [/autoit][autoit][/autoit][autoit]

    ;Variablen
    $AnzahlDat = IniRead("blabla.ini", "Excel", "Anzahl", "NotFound")
    $Dateien = 1
    $Startzeile = IniRead("blabla.ini", "Excel", "Zeile", "NotFound")
    AutoItSetOption("WinTitleMatchMode", 2)
    ;Funktionen
    Func BlaBla()
    IniWrite("blabla.ini", "Excel", "Quelle", GUICtrlRead($Quelle))
    IniWrite("blabla.ini", "Excel", "Ziel", GUICtrlRead($Ziel))
    IniWrite("blabla.ini", "Excel", "Name", GUICtrlRead($Name))
    IniWrite("blabla.ini", "Excel", "Anzahl", GUICtrlRead($Anzahl))
    IniWrite("blabla.ini", "Excel", "Zeile", GUICtrlRead($Zeile))
    Arbeite()
    EndFunc

    [/autoit][autoit][/autoit][autoit]

    Func Beenden()
    Exit
    EndFunc

    [/autoit][autoit][/autoit][autoit]

    Func Arbeite()
    Do
    _ExcelBookOpen(IniRead("blabla.ini", "Excel", "Name", "NotFound"))
    WinWaitActive("Excel")
    Sleep(200)
    $Kdnr = _ExcelCopy(IniRead("blabla.ini", "Excel", "Name", "NotFound"),$Startzeile,2,$Startzeile,2)
    $Startzeile = $Startzeile + 1
    WinActivate(IniRead("blabla.ini", "Excel", "Quelle", "NotFound"))
    WinWaitActive(IniRead("blabla.ini", "Excel", "Quelle", "NotFound"))
    Sleep(200)
    Send("{CTRLDOWN}"+"f")
    Sleep(2000)
    Send($Kdnr)
    Sleep(200)
    Send("{ENTER}")
    Sleep(200)
    If @error Then
    $Dateien = $Dateien + 1
    Arbeite()
    Else
    Send("{CTRLDOWN}"+"a")
    Send("{CTRLDOWN}"+"c")
    WinActivate(IniRead("blabla.ini", "Excel", "Ziel", "NotFound"))
    Send("{CTRLDOWN}"+"v")
    Exit
    EndIf
    Until $Dateien = $AnzahlDat
    EndFunc

    [/autoit]

    Würde mich über eure Antworten freuen!
    TheLuBu