Tabelle mit VBA Befehl speichern unter erstellen

[Karsten]

Hallo zusammen,

ich habe bestimmt eine ganz einfache Situation, bekomme aber diese leider nicht hin.

Es soll ein aktives Tabellenblatt mit einem Befehl "speichern unter" als PDF-Datei in einen bestimmten Ordner gespeichert werden.
Der Zielordner ist auf dem aktiven Blatt schon hinterlegt in einer Zelle und der Dateiname ergibt sich aus einer bestimmten Zelle (z.B. Rechnungsnummer) welche auch in einer bestimmten Zelle im selben Blatt steht.

Kann mir jemand bei diesem Code helfen.

Vielen Dank.

[{Boris}]

Hi,

Pfad steht in E1 (ohne abschließenden Backslash), Dateiname in E2 (ohne Dateiendung .pdf):

Code:

Option Explicit

Sub aktives_Blatt_als_PDF()
Dim strPath As String
Dim strFilename As String
strPath = ActiveSheet.Range("E1")
strFilename = ActiveSheet.Range("E2")
ActiveSheet.Copy
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
  strPath & "\" & strFilename & ".pdf", Quality:=xlQualityStandard _
  , IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish _
  :=False
End Sub

[Karsten]

Hallo Boris,

vielen Dank.

Ich habe den Code übernommen und es kommt die Fehlermeldung Anwendungsfehler 1004 (Anwendungs- objektdefinierter Fehler)
Was könnte die Ursache sein?

Hast du eine Idee?

Karsten

[Kuwer]

Hallo Karsten,

probiere es erst mal damit (ohne Erstellung eines neuen Workbooks):

Code:

Sub aktives_Blatt_als_PDF_2()
  With ActiveSheet
    .ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=.Range("E1").Value & "\" & .Range("E2").Value, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=False, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
  End With
End Sub

Gruß Uwe

[{Boris}]

Hi Uwe,

ja - da hab ich gerade etwas zu kompliziert gedacht...

[Karsten]

Hallo Uwe,

es funktioniert nach vielem Hin und Her.
Vielen Dank. Ich bin glücklich.
Ist es noch möglich, die Datei nach dem speichern noch zur Kontrolle öffnen zu lassen?

Karsten

[Kuwer]

Hallo Karsten,

Ist es noch möglich, die Datei nach dem speichern noch zur Kontrolle öffnen zu lassen?

OpenAfterPublish:=True

Gruß Uwe

[Karsten]

Hallo Uwe,

funktioniert sehr gut.

Vielen Dank nochmals und einen schönen 2. Advent.

Karsten