Hallo zusammen.
Wie ich bereits in der Überschrift geschrieben habe, suche ich einen Weg, wie ich aus einer Excel-Datei die mehrere Excel-Sheets beinhaltet in eine PDF-Datei umwandeln kann. Das Problem ist, dass ich es einfach nicht schaffe, dass alle Excel-Sheets umgewandelt werden, sondern immer nur das aktive Sheet. Es sind auch in jeder Excel-Datei unterschiedlich viele Excel-Sheets.
Vielleicht kann mir jemand helfen.
Spoiler anzeigen
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <WindowsConstants.au3>
#include <Excel.au3>
#include <excelex.au3>
#include <file.au3>
#include <array.au3>
#Region ### START Koda GUI section ###
$exceldoku2pdf = GUICreate("exceldoku2pdf", 615, 438, 191, 124)
$Convert = GUICtrlCreateButton("Konvertieren", 112, 264, 113, 49)
$Exit = GUICtrlCreateButton("Beenden", 384, 264, 115, 49)
;~ $Progress1 = GUICtrlCreateProgress(160, 344, 313, 33)
$Oeffnen = GUICtrlCreateButton("Öffnen", 264, 144, 73, 49)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE, $Exit
Exit
Case $Exit
[/autoit] [autoit][/autoit] [autoit]Case $oeffnen
oeffnen()
Case $Convert
convert()
EndSwitch
WEnd
Func oeffnen()
Global $code = FileOpenDialog("Wähle XLSX oder XLS Datei aus!",@StartupDir, "(*.xlsx;*.xls)",1 + 4)
If @error Then MsgBox(0,"Fehler!", "Bitte wählen Sie zuerst eine XLSX-Datei aus!")
Global $aFiles = StringSplit($code, "|", 1)
For $i = 2 To UBound($aFiles) -1
$aFiles[$i] = $aFiles[1] & '\' & $aFiles[$i]
Next
EndFunc
Func convert()
[/autoit] [autoit][/autoit] [autoit]If $aFiles[0] <= 1 Then
For $i = 1 To $aFiles[0]
Local $oExcel = _ExcelBookOpen($aFiles[$i])
Next
EndIf
For $i = 2 To $aFiles[0]
[/autoit] [autoit][/autoit] [autoit]Local $oExcel = _ExcelBookOpen($aFiles[$i])
[/autoit] [autoit][/autoit] [autoit]Next
[/autoit] [autoit][/autoit] [autoit]EndFunc
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]