Office: (Office 2013) Excelblatt per VBA als PDF speichern

Helfe beim Thema Excelblatt per VBA als PDF speichern in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Ich nutze bereits dieses Makro um mein Blatt 1. komplett zu drucken 2. ohne A3*biggrin.gif*3 zu drucken Sub Schaltfläche10_Klicken() ' Druck einmal... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von christian30031982, 18. August 2014.

Seite 1 von 2

CHRISTIAN30031982

christian30031982

Excelblatt per VBA als PDF speichern

Ich nutze bereits dieses Makro um mein Blatt

1. komplett zu drucken
2. ohne A3*biggrin.gif*3 zu drucken

Sub Schaltfläche10_Klicken() ' Druck einmal alles und einmal ohne A3 - D3 und löscht A3 - D3, also nicht speichern ***
Range("A1:H43").PrintOut
Range("A3*biggrin.gif*3").ClearContents
Range("A1:H43").PrintOut
End Sub

Ich würde jetzt gerne die komplette (inkl. A3:H3) Datei als PDF in einem Ordner speichern und dann, wie jetzt auch, 2 x drucken.

Der Pfad ist zum speichern ist:
M:\M&H\Aufträge\2014
In dem Ordner sollen die PDF´s gespeichert werden. Die Benennung der PDF soll aus den Zellen F5 + B5 + D5 geholt werden. Wenn nicht möglich, dann nur aus B5.

In einer weiteren Exceldatei würde ich gerne die Benennung der o.g. PDF`s auslesen um zählen zu können wie oft ein Kunde welches Produkt bestellt hat. In der neuen Exceldatei müssen die Zellen F5 + B5 + D5 dann wieder aufgeteilt werden.

Ich hoffe das es klappt.

Danke

:)

christian30031982, 18. August 2014

#1
ISHAELL

Ishaell

ungetestet nur zur Ausgabe als pdf Datei

Code:

Option Explicit

Sub Drucken()
Dim mydocument As Variant
Dim WshShell As Object

Sheets("Druckblatt 1").Select 'Mappe anpassen

Set WshShell = CreateObject("WScript.Shell")
Set mydocument = Worksheets("Druckblatt 1") 'Mappe anpassen

mydocument.Shapes.SelectAll ' Ich hab hier Diagramme angewählt. Kann man auch über Range definieren

If Dir(WshShell.specialfolders("Desktop") & "\Segment_Auswertung\", vbDirectory) = "" Then 'Pfad beliebig Ich hab den Desktop des jeweiligen Users angegeben
MkDir (WshShell.specialfolders("Desktop") & "\Segment_Auswertung\")
Else
End If

pdfName = Range("F5") & Range("B5") & Range("D5") & ".pdf"

pdfFName = WshShell.specialfolders("Desktop") & "\Segment_Auswertung\" & pdfName

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfFName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ishaell, 20. August 2014

#2
CHRISTIAN30031982

christian30031982

Danke.

Dieser Code ist aber nur zum speichern?

christian30031982, 20. August 2014

#3
ISHAELL

Ishaell

Excelblatt per VBA als PDF speichern

Jops, siehe

ungetestet nur zur Ausgabe als pdf Datei
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Für komplett ohne Höflichkeit ist das doch schonmal ein Ansatz, oder?

edith: Variable pdfName und pdfFName müssen noch deklariert werden. Zudem musst du noch deinen Druckbereich festlegen.

Ishaell, 20. August 2014

#4
CHRISTIAN30031982

christian30031982

Vielen Dank.

Werde es morgen mal testen.

christian30031982, 20. August 2014

#5
CHRISTIAN30031982

christian30031982

Ich habe den Code angepasst.

Leider speichert er mir die PDF nicht auf dem Server. Gibt es da noch eine Möglichkeit? Manuell darf ich und kann ich auf dem Server speichern.

Den Druckbereich habe ich über Seitenlayout eingerichtet.

Hier mein Code:
Code:

Sub Drucken()
Dim mydocument As Variant
Dim WshShell As Object

Sheets("Packauftrag").Select 'Mappe anpassen

Set WshShell = CreateObject("WScript.Shell")
Set mydocument = Worksheets("Packauftrag") 'Mappe anpassen

mydocument.Shapes.SelectAll ' Ich hab hier Diagramme angewählt. Kann man auch über Range definieren

If Dir(WshShell.specialfolders("M:\") & "\2014\", vbDirectory) = "" Then 'Pfad beliebig Ich hab den Desktop des jeweiligen Users angegeben
MkDir (WshShell.specialfolders("M:\") & "\2014\")
Else
End If

pdfName = Range("F5") & Range("B5") & Range("D5") & ".pdf"

pdfFName = WshShell.specialfolders("M:\") & "\2014\" & pdfName

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfFName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

christian30031982, 20. August 2014

#6
ISHAELL

Ishaell

- Der Pfad muss bis auf den letzten Ordner schon existieren
- du hast die Deklaration der Variablen vergessen
- Die Funktion WshShell war dafür da um den Pfad zum Desktop auszulesen was man ich in meinem Fall im Netzwerk tun muss. -> Dein Pfad konnte so gar nicht funktionieren.

Code:

Option Explicit

Sub Drucken()
Dim mydocument, pdfName, pdfFname As Variant 'Deklaration wie vorher angekündigt vergessen
Dim WshShell As Object

Sheets("Packauftrag").Select 'Mappe anpassen

Set mydocument = Worksheets("Packauftrag") 'Mappe anpassen

mydocument.Shapes.SelectAll ' Ich hab hier Diagramme angewählt. Kann man auch über Range definieren Falls du nur einen Druckbereich drucken möchtest kannst du den Befehl auch löschen.

If Dir("M:\M&H\Aufträge\2014\", vbDirectory) = "" Then 'Dein Pfad heisst plötzlich anders als vorher angegeben?
MkDir ("M:\M&H\Aufträge\2014\") ' Diese I/Else abfrage dient nur dazu zu überprüfen ob der Ordner 2014 in dem Ort existiert falls nein wird er erstellt.
Else
End If

pdfName = Range("F5") & Range("B5") & Range("D5") & ".pdf"

pdfPath = "M:\M&H\Aufträge\2014\"

pdfFname = pdfPath & pdfName

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfFname, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ishaell, 20. August 2014

#7
CHRISTIAN30031982

christian30031982

Excelblatt per VBA als PDF speichern

Es klappt alles super.

Jetzt noch 2 abschließende Sachen:

1. Kann ich zwischen F5, B5 und D5 jeweils ein Leerzeichen bekommen?
2. Nachdem ich dieses Makro gestartet habe, wird die PDF geöffnet. Das möchte ich nicht. Kannst du das bitte so einbauen?

Danke

christian30031982, 20. August 2014

#8
ISHAELL

Ishaell

Code:

OpenAfterPublish:=False
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code:

Range("F5") & " " & Range("B5") & " " & Range("D5") & ".pdf"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gerne *Smilie

Ishaell, 20. August 2014

#9
CHRISTIAN30031982

christian30031982

Danke

Das mit dem nicht öffnen habe ich noch gefunden. Ich wachse :-)

Das andere habe ich mir fast gedacht aber irgendwie ein & vergessen.

Wie kann ich die Zelle H15 beim speichern ausblenden?

christian30031982, 20. August 2014

#10
ISHAELL

Ishaell

Inwiefern ausblenden?
Beim exportieren ausblenden damit H15 nicht im pdf auftaucht oder generell ausblenden sobald das Dokument geschlossen und gespeichert wird?
H15 steht laut deiner Aufgabenstellung nicht im Druckbereich bzw. wurde vorher nie erwähnt.

Ishaell, 21. August 2014

#11
CHRISTIAN30031982

christian30031982

H15 soll nicht in der PDF auftauchen.
Wenn es nicht möglich ist, muss ich damit leben.

Dann habe ich noch ein Problem.
Das Feld B5 habe ich so formatiert:
0####
Die 0 wird beim speichern der PDF leider unterschlagen. Gibt es da eine Möglichkeit damit ich die 0 mit im Dateinamen habe?

christian30031982, 21. August 2014

#12
ISHAELL

Ishaell

Excelblatt per VBA als PDF speichern

Müsste ich jetzt selber erst Foren wälzen so fit bin ich in VBA selber noch nicht.

deklariere eine Variabel
Code:

dim testvariable as string

testvariable = worksheets("Packauftrag").Range("B5")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

statt Range("B5") einfach Testvariable einsetzen.

Müsste funktionieren

Ishaell, 21. August 2014

#13
JACK_D

jack_D

Hallo ihr beiden

ich würde es auch über eine variable und eine kleine Prüfung machen

Name 2 stellt dann den 2. Namensteil der PDF her

Edith sagt: übrigens ist nicht einfach über das auslesen einer Variable lösbar.

Code:

Sub Name2()
Dim Name2 As String

If Len(Range("B5")) < 5 Then
Name2 = 0 & Range("B5")
Else
Name2 = Range("B5")
End If

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Grüße

jack_D, 21. August 2014

#14
CHRISTIAN30031982

christian30031982

Danke.

So sieht mein Code jetzt aus:
Code:

Sub SpeichernAlsPDF()
Dim mydocument, pdfName, pdfFname As Variant 'Deklaration wie vorher angekündigt vergessen
Dim WshShell As Object
Dim Name2 As String

Sheets("Packauftrag").Select 'Mappe anpassen

Set mydocument = Worksheets("Packauftrag") 'Mappe anpassen

mydocument.Shapes.SelectAll ' Ich hab hier Diagramme angewählt. Kann man auch über Range definieren Falls du nur einen Druckbereich drucken möchtest kannst du den Befehl auch löschen.

If Dir("M:\M&H\Aufträge\2014\", vbDirectory) = "" Then 'Dein Pfad heisst plötzlich anders als vorher angegeben?
MkDir ("M:\M&H\Aufträge\2014\") ' Diese I/Else abfrage dient nur dazu zu überprüfen ob der Ordner 2014 in dem Ort existiert falls nein wird er erstellt.
Else
End If

pdfName = Range("F5") & "_" & Range("B5") & "_" & Range("D5") & ".pdf"

If Len(Range("B5")) < 5 Then
Name2 = 0 & Range("B5")
Else
Name2 = Range("B5")
End If

pdfPath = "M:\M&H\Aufträge\2014\"

pdfFname = pdfPath & pdfName

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfFname, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Es klappt aber immer noch nicht mit der 0 am Anfang.
Die 0 am Anfang ist auch nur in den Monaten 1-9. In den Monaten 10-12 ist ja eine 1.

Danke für die Hilfe

christian30031982, 21. August 2014

#15

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 1 von 2

Thema:

Excelblatt per VBA als PDF speichern

Die Seite wird geladen...

Excelblatt per VBA als PDF speichern - Similar Threads - Excelblatt VBA PDF
VBA in einer Zeile zu lang
in Microsoft Excel Hilfe
VBA in einer Zeile zu lang: Moin, mein VBA Code ist für eine Zeile zu lang. Kann mir einer helfen wie ich den auf 2 Zeilen aufteilen Kann? arrSchuhDaten = Array(Range("A6"), Range("F6"), Range("J6"), Range("A7"),...
Listbox wird nicht breiter, Schriftgrösse ändert sich
in Microsoft Excel Hilfe
Listbox wird nicht breiter, Schriftgrösse ändert sich: Hallo, ich habe ein Formular dessen Breite ich mit der Maus ändern kann. Im Formular habe ich einen Rahmen und darin eine Listbox deren Breite an die Formularbreite angepasst wird....
Geschütztes Excelblatt
in Microsoft Excel Hilfe
Geschütztes Excelblatt: Hallo, ich habe meine Exeltabelle mit einem Kennwort versehen. Das habe ich vergessen. Wie kann ich jetzt meine Tabelle wieder öffnen ? Danke für Hilfe
Formatierungen in anderes Excelblatt übernehmen
in Microsoft Excel Hilfe
Formatierungen in anderes Excelblatt übernehmen: Moin zusammen, folgendes Problem: ich habe eine schreibgeschützte Excel Tabelle aus der ich regelmäßig Daten in ein anderes Excelblatt übernehme per "=[Mappe1.xlsx]Tabelle1!$B$2" allerdings...
Zwei Excelblätter ineinander auf eine Seite drucken
in Microsoft Excel Hilfe
Zwei Excelblätter ineinander auf eine Seite drucken: Hallo, habe ein etwas einzigartiges Problem, ich habe ein Exceldokument mit vielen Blättern (nur Briefvorlagen allerdings ohne Kopf- und Fußbereich) Bis jetzt habe ich immer eine extra...
Erstellen einer PPT aus Excelblättern mit VBA
in Microsoft Excel Hilfe
Erstellen einer PPT aus Excelblättern mit VBA: Hallo Zusammen! Und da ist eine neue Frage: Thema: Erstellen einer PPT aus Excelblättern mit VBA Problem: Das Excel soll eine Vorlagendatei verwenden VBA-Ablauf: Nimm bestimmte...
Excelblätter vergleichen
in Microsoft Excel Hilfe
Excelblätter vergleichen: Hallo Zusammen, ich bin das erste Mal da und hab gleich ein Problem: Ich habe eine Exceldatei mit 2 Blättern. Das erste Blatt hat Artikelnummer und Preis, das zweite Arbeitsblatt hat...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden