PDF Save

  • Excel

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von Sam85.

    PDF Save

    Hallöchen,

    ich habe eine kurze Frage:

    Ich habe ein Modul das zum Speichern in das PDF Format verwendet wird. Nun wollte ich das so erweitern, dass alle Tabellenblätter davon erfasst werden.

    Gefunden habe ich dazu folgende ungetestete Idee und meine daraus resultierende Frage:
    Kann ich das xyz umformen in ein "erkenne alle Blätter" ?

    Freue mich über eine Rückmeldung.

    VB.NET-Quellcode

    1. [Ungetestete Idee]
    2. Sheets(Array("x", "y", "z")).Select


    VB.NET-Quellcode

    1. [Umformung]
    2. dim i as variant, y as integer
    4. y = ActiveWorkbook.Worksheets.Count
    6. For i = 1 to y
    8. Sheets(Array(ActiveWorkbook.Sheets(i))).Select
    10. Next i
    11. End Sub



    Spoiler anzeigen

    VB.NET-Quellcode

    1. Option Explicit
    3. Sub PDF_AutoSave()
    5. Dim Dateiname As String, Speicherort As String, Sicherheitsabfrage As Long, Vorhanden As String, Name As String
    7. Name = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5)
    8. Dateiname = Name & ".pdf"
    9. Speicherort = Application.ActiveWorkbook.Path & "\" & Dateiname
    10. Sicherheitsabfrage = MsgBox("Möchtest du das Dokument jetzt abspeichern?", vbYesNo)
    11. Vorhanden = Dir(Speicherort)
    13. Select Case Sicherheitsabfrage 'Erste Abfrage: Speichern
    14. Case vbYes
    15. If Len(Vorhanden) <> 0 Then 'Prüfen: Datei ist noch nicht vorhanden
    16. If MsgBox("Möchtest du das Dokument wirklich überschreiben?", vbYesNo) = vbYes Then 'Zweite Abfrage: Überschreiben
    17. ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Speicherort, Quality:=xlQualityStandard, _
    18. IncludeDocProperties:=True, IgnorePrintAreas:=False, openafterpublish:=False
    19. End If
    20. Else 'Prüfen: Datei ist schon vorhanden
    21. ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Speicherort, Quality:=xlQualityStandard, _
    22. IncludeDocProperties:=True, IgnorePrintAreas:=False, openafterpublish:=False
    23. End If
    24. Case vbNo
    25. Exit Sub
    26. End Select
    27. End Sub


    Klar, kein Problem. Ab Zeile 17 (bzw. 21) Deines Spoilers statt mit ActiveSheet zu arbeiten, einfach ne For-Each-Schleife machen und alle Sheets einzeln abspeichern:

    Visual Basic-Quellcode

    1. For Each SheetInTable In Sheets
    2. FileNameForSheet = Application.ActiveWorkbook.Path & "\" & Dateiname & " - " & SheetInTable.Name & ".pdf"
    3. Blatt.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FileNameForSheet, Quality:=xlQualityStandard, _
    4. IncludeDocProperties:=True, IgnorePrintAreas:=False, openafterpublish:=False
    5. Next
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Danke für die Rückmeldung VaporiZed, werde es gleich ausprobieren.

    Werden die dann auch in ein PDF zusammengefügt? Oder alle getrennt?

    PS: Definiere ich SheetInTable als Variant? Und Blatt ist dann einfach FileNameForSheet?

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Sam85“ ()

    Hallo,

    die gesamte Mappe geht doch auch einfacher.

    Visual Basic-Quellcode

    1. ActiveWorkbook.ExportAsFixedFormat xlTypePDF, Dateiname, xlQualityStandard, True, False, , , False
    Gruß
    Peterfido

    Keine Unterstützung per PN!

    Habe es nun getestet, ist nicht ganz das, was ich gemeint hatte. Ich wollte alle Tabellenblätter in ein PDF, nicht getrennt. Muss ich das dann über einen Array ausführen?

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Sam85“ ()

    Hallo,

    ich habe es so versucht aber das klappt leider nicht :thumbdown: ...kann mir jemand auf die Sprünge helfen, wie ich den Array zusammen bekomme?!
    Freue mich über Feedback.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Option Explicit
    3. Sub PDF_AutoSaveAll()
    5. Dim Dateiname, Speicherort, Vorhanden, Name As String, Sicherheitsabfrage As Long, i As Variant, y As Integer
    7. y = ActiveWorkbook.Worksheets.Count
    8. Name = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5)
    9. Dateiname = Name & ".pdf"
    10. Speicherort = Application.ActiveWorkbook.Path & "\" & Dateiname
    11. Sicherheitsabfrage = MsgBox("Möchtest du das Dokument jetzt abspeichern?", vbYesNo)
    12. Vorhanden = Dir(Speicherort)
    15. Select Case Sicherheitsabfrage 'Erste Abfrage: Speichern
    16. Case vbYes
    17. If Len(Vorhanden) <> 0 Then 'Prüfen: Datei ist noch nicht vorhanden
    18. If MsgBox("Möchtest du das Dokument wirklich überschreiben?", vbYesNo) = vbYes Then 'Zweite Abfrage: Überschreiben
    20. For i = 1 To y
    21. Sheets(Array(Worksheets(i).Name)).Select
    22. Next i
    23. ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Speicherort, Quality:=xlQualityStandard, _
    24. IncludeDocProperties:=True, IgnorePrintAreas:=False, openafterpublish:=False
    26. End If
    27. Else 'Prüfen: Datei ist schon vorhanden
    29. For i = 1 To y
    30. Sheets(Array(Worksheets(i).Name)).Select
    31. Next i
    32. ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Speicherort, Quality:=xlQualityStandard, _
    33. IncludeDocProperties:=True, IgnorePrintAreas:=False, openafterpublish:=False
    35. End If
    36. Case vbNo
    37. Exit Sub
    38. End Select
    39. End Sub

    Ach, alles in einer Datei. Nun, dann passt aber die Antwort von peterfido. Jedes Sheet kommt auf eine neue Seite in der selben Datei. Oder was passt daran nicht? (Wo) Kommt ein Fehler? Oder ist das Endergebnis nicht das, was Du willst? Dann brauchen wir die Info, wie das Ergebnis stattdessen aussehen soll.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Ahh sorry, ich hab das noch nicht getestet, dachte er hat es auf deinen Post bezogen.
    Deine Alternative behalte ich mir auch vor. :)..für eine andere Situationen. Vielen Dank für das Feedback, melde mich nochmal wenn ich es getestet habe.

    Vielen Dank für die Hilfestellung, beide Varianten erfüllen perfekt Ihren Zweck. :thumbsup:

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Sam85“ ()

Facebook
Telefonspende