Excel-Dateipfad öffnen über GUI

Tetsuo

Guten Morgen Leute,

ich möchte gerne über eine GUI einen Dateipfad eingeben und dann die entsprechende (Excel-)Datei öffnen lassen. Es geht aber nicht, obwohl der richtige Pfad ansteht. Der Code sieht so aus:

AutoIt

#include <Excel.au3>


#include <GUIConstantsEx.au3>
#include <MsgBoxConstants.au3>
#include <WindowsConstants.au3>


GUI_win()


Excel_open()


Func GUI_win()


GUICreate("Parameter-Eingabe", 320, 165, -1, -1, -1, $WS_EX_ACCEPTFILES)


GUICtrlCreateLabel("Drag'n drop oder Eingabe der bestehenden Excel-Datei:", 5, 10)
GLOBAL $ID_1_File = GUICtrlCreateInput("", 5, 25, 300, 20)
GUICtrlSetState(-1, $GUI_DROPACCEPTED)


Local $idBtn = GUICtrlCreateButton("OK", 5, 135, 60, 20)


GUISetState(@SW_SHOW)


; Loop until the user exits.
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
ExitLoop
Case $idBtn
ExitLoop
EndSwitch
WEnd


EndFunc   ;==>GUI_win


Func Excel_open()


;Excel öffnen
Local $oExcel = _Excel_Open()


ConsoleWrite(GUICtrlRead($ID_1_File) & @CRLF)


Local $oWorkbook = _Excel_BookOpen($oExcel, $ID_1_File);Excel-Pfad


EndFunc   ;==>Excel_open

Alles anzeigen

Es scheint mir für jemanden kundigen ein einfaches Problem zu sein. Aber ich suche jetzt schon nach Stunden nach der Lösung und weiss keine weitere Möglichkeit.

Grüsse

Tetsuo

BananaJoe

Schau Dir mal in der Hilfe FileOpenDialog an. Das dürfte Dir helfen.

**Musashi**

Ich habe kein Excel installiert, aber versuche mal :

AutoIt

#include <Excel.au3>
#include <GUIConstantsEx.au3>
#include <MsgBoxConstants.au3>
#include <WindowsConstants.au3>

Global $ID_1_File

GUI_Win()
Excel_ShowPath() ; *** für Testphase
Excel_Open()

Func GUI_Win()
    GUICreate("Parameter-Eingabe", 320, 165, -1, -1, -1, $WS_EX_ACCEPTFILES)

    GUICtrlCreateLabel("Drag'n drop oder Eingabe der bestehenden Excel-Datei:", 5, 10)
    $ID_1_File = GUICtrlCreateInput("", 5, 25, 300, 20)
    GUICtrlSetState(-1, $GUI_DROPACCEPTED)
    Local $idBtn = GUICtrlCreateButton("OK", 5, 135, 60, 20)
    GUISetState(@SW_SHOW)

    ; Loop until the user exits.
    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                ExitLoop
            Case $idBtn
                ExitLoop
        EndSwitch
    WEnd
EndFunc   ;==>GUI_win


; Testfunktion ==> Anzeige des Excel-Pfades
Func Excel_ShowPath()
    MsgBox (4096 + 64, "Excel-Pfad", GUICtrlRead($ID_1_File) & @CRLF)
EndFunc   ;==>Excel_ShowPath


Func Excel_Open()
    ;Excel öffnen
    Local $oExcel = _Excel_Open()
    If @error Then Exit MsgBox(16, "Excel UDF: _Excel_BookOpen Example", "Error creating the Excel application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
    Local $oWorkbook = _Excel_BookOpen($oExcel, GUICtrlRead($ID_1_File)); Excel-Pfad
EndFunc   ;==>Excel_Open

Alles anzeigen

**Musashi**

Zitat von BananaJoe

Schau Dir mal in der Hilfe FileOpenDialog an.

Sich den vollständigen Dateinamen über FileOpenDialog zu holen ist sicherlich eine gute Alternative zur Direkteingabe.

Das Problem ist :

Local $oWorkbook = _Excel_BookOpen($oExcel, $ID_1_File) ;Excel-Pfad

$ID_1_File ist die ID des Controls, nicht der Inhalt. Daher muss der Aufruf lauten :

Local $oWorkbook = _Excel_BookOpen($oExcel, GUICtrlRead($ID_1_File)) ; Excel-Pfad

Tetsuo -> EDIT : Nebenbei

GLOBAL $ID_1_File = GUICtrlCreateInput("", 5, 25, 300, 20)

Globale Deklarationen innerhalb einer Funktion sind nicht ratsam !

Gruß Musashi

Tetsuo

Oh nein, wie dumm von mir!!

Bei consolewrite() hatte ich die ID noch umgewandelt; bei der Übergabe habe ich es vergessen.

Totale Zeitverschwendung von mir und vielen Dank für eure schnelle Hilfe!

**autoiter**

Nur als Hinweis. Wenn du einfach eine Exceldatei öffnen möchtest, brauchst du keine UDF. ShellExecute($Pfad & "\MeineExcelDatei.xlsx") tut es auch.