Jedes Tabellenblatt als extra PDF speichern

Frage: Alle Tabellenblätter einer Datei sollen als PDF gespeichert werden. Die PDF-Dateien bekommen den Namen der Exceldatei plus den jeweiligen Tabellenblattnamen. Funktioniert ab Office 2007 (mit installiertem Plugin "speichern unter PDF oder XPS") bzw. mit Office 2010.

Option Explicit
Public Sub Main()
    Dim wksSheet As Worksheet
    On Error GoTo Fin
    With ThisWorkbook
        For Each wksSheet In .Worksheets
            wksSheet.ExportAsFixedFormat 0, .Path & _
                "\" & fncEXT(.Name) & "_" & wksSheet.Name
        Next wksSheet
    End With
Fin:
    If Err.Number <> 0 Then MsgBox "Error: " & _
        Err.Number & " " & Err.Description
End Sub
Function fncEXT(ByVal strName As String) As String
    fncEXT = Mid(strName, 1, InStr(strName, ".") - 1)
End Function

Beliebte Posts aus diesem Blog

Formeln - auch Array - per VBA eintragen...

Alle Dateien eines Ordners - Optional mit Unterordner

Excel -> Word in Textmarken (Bookmarks)...