Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Datei als PDF speichern
22.12.2022 08:50:42 ch79
NotSolved
22.12.2022 10:09:29 Gast7457
NotSolved
22.12.2022 10:27:09 ch79
NotSolved
23.12.2022 06:58:55 ralf_b
NotSolved
23.12.2022 17:17:41 Gast6430
NotSolved

Ansicht des Beitrags:
Von:
ch79
Datum:
22.12.2022 08:50:42
Views:
191
Rating: Antwort:
  Ja
Thema:
VBA Datei als PDF speichern

Guten Morgen

Wie kann ich die Excelvorlage direkt mit dem untenstehenden Makro als PDF Datei in den Zielordner speichern?

Mit 

Call ThisWorkbook.SaveAs(Filename:=strFolder & strSubFolder & "\" & _
                    strFile, FileFormat:=xlTypePDF)

geht es leider nicht.


Freue mich auf eure Hilfe.

Gruss

ch79

 

Public Sub SaveSpecial()

    Const FOLDER_PATH As String = "L:\01_P_#\01_A_#\"

    Dim lngYear As Long, lngReturn As Long
    Dim strFolder As String, strSubFolder As String, strValue As String, strFile As String
    Dim blnFound As Boolean

    strValue = Split(Cells(10, 3).Text, "-")(0)
    strFile = Cells(10, 3).Text

    For lngYear = Year(Date) - 1 To Year(Date) + 1

        strFolder = Replace(FOLDER_PATH, "#", CStr(lngYear))

        lngReturn = MakeSureDirectoryPathExists(strFolder)

        If lngReturn = 0 Then

            Call MsgBox("Ordner kann nicht erstellt werden.", vbCritical, "Dateisystemfehler")
            Exit Sub

        Else

            strSubFolder = Dir$(strFolder & strValue & "*", vbDirectory)

            If strSubFolder <> vbNullString Then

             If InStr(1, ThisWorkbook.Name, "_") = 0 Then
                    strFile = strFile & "_" & ThisWorkbook.Name
                Else
                    strFile = strFile & "_" & Split(ThisWorkbook.Name, "_")(1)
                End If

                Call ThisWorkbook.SaveAs(Filename:=strFolder & strSubFolder & "\" & _
                    strFile, FileFormat:=xlOpenXMLWorkbookMacroEnabled)
                blnFound = True
                Exit For

            End If
        End If
    Next

    If Not blnFound Then
        Call MsgBox("Ordner ''" & strValue & _
            "'' nicht gefunden.", vbCritical, "Datei nicht gespeichert")
'Makro schliessen nach speichern unter:
            'Else
       ' If Workbooks.Count = 1 Then Call Application.Quit Else Call ThisWorkbook.Close
    End If
End Sub


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Datei als PDF speichern
22.12.2022 08:50:42 ch79
NotSolved
22.12.2022 10:09:29 Gast7457
NotSolved
22.12.2022 10:27:09 ch79
NotSolved
23.12.2022 06:58:55 ralf_b
NotSolved
23.12.2022 17:17:41 Gast6430
NotSolved