Alle XLS* im Verzeichnis in PDF konvert.
22.04.2021 13:26:01
Nadine
ich möchte alle Exceldateien (xls*) aus einem gewählten Verzeichnis in PDF umwandeln und in dem selben Verzeichnis abspeichern (mich würde allerdings auch der Code für die Variante in einem Unterordner interessieren).
Mein Problem ist, dass mir keine Exceldateien zur Auswahl gestellt werden, d.h. ich kann diese gar nicht erst auswählen, weil sie im Ordner nicht angezeigt werden.
Sub ConvertToPDF()
Dim sFile As String, sPfad As String, sPDF As String
Dim wkb As Workbook
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = -1 Then
sPfad = .SelectedItems(1)
End If
End With
If sPfad "" Then
sPfad = sPfad & "\"
sFile = Dir(sPfad & "*.xls*")
Do While sFile ""
sPDF = Left(sFile, InStrRev(sFile, ".") - 1)
Set wkb = Workbooks.Open(sPfad & sFile)
wkb.ExportAsFixedFormat xlTypePDF, sPfad & sPDF, , , , , , False
wkb.Close False
sFile = Dir
Loop
End If
End Sub