Variabel für Excel Tabellenblatt über Ini Datei... Bug?

  • Hallo,

    mir sind beim Scripten zwei Phänomene/Fragen aufgekommen.

    Habe ein Script mit dem ich Daten aus einer Excel Tabelle auslese, modifiziere, und zurück schreibe...

    Test.au3

    Spoiler anzeigen
    [autoit]


    #cs ----------------------------------------------------------------------------

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

    AutoIt Version: 3.3.6.1
    Author: myName

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

    Script Function:
    Template AutoIt script.

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

    #ce ----------------------------------------------------------------------------
    #include <Excel.au3>
    #include <Array.au3>

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

    Local $ArbVerz= @ScriptDir
    Local $ExTabBlatt = 2;IniRead (@ScriptDir & "\test.ini", "ExcelExport", "ExcelTabellenBlatt",3)
    Local $ExCellRange = IniRead (@ScriptDir & "\test.ini", "ExcelExport", "ExcelRange","A23:Z406")
    Local $ArSuchspalte = IniRead (@ScriptDir & "\test.ini", "ExcelExport", "ArraySuchspalte",19)
    Local $ArStartzeile = IniRead (@ScriptDir & "\test.ini", "ExcelExport", "ArrayStartSuchZeile",0)
    Local $AnzErkDat = IniRead (@ScriptDir & "\test.ini", "ExcelExport", "AnzeigeErkannterDaten",1)

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

    While 1
    Local $FileName = FileOpenDialog("Dateiauswahl", $ArbVerz, "Excel (*.xls;*.xlsx)", 1)
    If @error Then
    MsgBox(4096, "", "Keine Datei ausgewählt!")
    ExitLoop
    EndIf

    $oExcel = ObjGet($FileName)

    If (@error) and IsObj($oExcel) Then
    Msgbox (0,"Excel Data Read","Error: Zugriff verweigert")
    ExitLoop
    EndIf
    $TabBlatt=$oExcel.Worksheets($ExTabBlatt)
    $aArray = $TabBlatt.range($ExCellRange).value
    $rows = UBound($aArray) ;letzte Zeile
    $cols = UBound($aArray, 2) ;letzte Spalte
    $Zeile = $ArStartzeile
    If $AnzErkDat = 1 Then
    _ArrayDisplay($aArray, "Übersicht erkannte Excel-Daten", -1, 1)
    EndIf

    $aArray[0][1]="Gespeichert"

    If $AnzErkDat = 1 Then
    _ArrayDisplay($aArray, "Übersicht erkannte Excel-Daten", -1, 1)
    EndIf
    Exitloop
    WEnd
    $TabBlatt.range($ExCellRange).value = $aArray
    $oExcel.Save
    Exit

    [/autoit]

    Test.ini

    Spoiler anzeigen


    [ExcelExport]
    ExcelTabellenblatt=2
    ExcelRange="A1:F6"
    ArraySuchspalte=2
    ArrayStartSuchZeile=0

    Frage 1 : Wenn ich in Zeile 14 die Variabel für das Excel Tabellenblatt direkt angebe läuft alles.
    Wenn die Variabel aus einer INI Datei übernommen werden soll, bricht das Script ab...
    Bug oder normal?

    Vielleicht kann mal jemand gucken ob das bei ihm auch so ist...


    Frage 2: Wenn ich die Excel Tabelle nach dem Speichern wieder mit Excel öffnen will, ist diese erst immer "Ausgeblendet". Wie kann ich das mit dem Script so speichern, das ich Sie später auch normal in Excel wieder öffnen kann?

    Gruß

    Rollod