Danke schon mal für eure Hilfe.
Code: Select all
#NoTrayIcon
#SingleInstance Force
Gui, Add, Button, x10 y20 w120 h20 , Datei Auswählen ;Zu öffnende Datei auswählen
Gui, Add, Button, x10 y50 w120 h20 , Zielort Auswählen ;Button Zielspeicherort auswählen
Gui, Add, Button, x10 y80 w120 h20 , Datei speichern ;Button Datei als PDF in spezifiziertem Ordner speichern
Gui, Show, w500 h400, LeoLog Helper ;Allgemeines Kommando für erstellen der GUI
return
GuiClose: ;Schließt die App
ExitApp
ButtonDateiAuswählen:
FileSelectFile, vStart , 3, , Datei wählen ;Auswählen einer existierenden Datei
return
ButtonZielortAuswählen:
FileSelectFolder, vZiel, , , Speicherort wählen ;Zielspeicherort festlegen
return
ButtonDateispeichern:
Xl := ComObjCreate("Excel.Application") ;Erstellt eine Excel-Instanz
Xl.Visible := true ;Erforderlich, setzt die Instanz aktiv
Xl.Workbooks.Open(vStart) ;Öffnet die unter "ButtonDateiAuswählen" selektierte Excel-Datei
vName := % "\Langtext.pdf" ;Deklaration des Dateinamen
vLangtext = %vZiel%%vName% ;Zusammenschluss von Zielpfad und Dateiname
Xl.ActiveSheet.ExportAsFixedFormat(0, vLangtext ,0,False,False,1,1) ;Speichert die Datei als "Langtext.pdf"
return