Office: per vba pdf speichern, pfad und dateiname aus zelle lesen

einen schönen guten morgen an alle...

ich würde gern per button mein excel tabellenblatt als pdf abspeichern, was ich mit folgendem code gelöst habe:

ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:="C:\" & Sheets("Maskeneingabe").Range("A8").text & " " & Sheets("Maskeneingabe").Range("A9").text & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False

jetzt mein problem:
excel soll den speicherpfad aus zelle A8 und den Dateinamen aus telle A9 lesen...

wie kann ich das realisieren?

liebe grüße

:)

 

hi so sollte es gehen

Dim strZielverzeichnis As String
Dim strDateinamen As String
Dim wbNew As Workbook
Dim ws As Worksheet


strDateinamen = ws.Cells(9, 1)
strZielverzeichnis = ws.Cells(8, 1)

wbNew.SaveAs Filename:=strZielverzeichnis & strDateinamen

 

hallo anarias,...

vielen dank für die schnelle antwort...

der code von dir funktioniert super!!!


noch eine kleine frage *Smilie

wenn in zelle A8 (Pfadangabe) ein ordner steht den es noch nicht gibt...kann excel den automatisch anlegen beim speichern?

lieben gruß

 

Moin, verena78,

ja und neine - fangen wir mit nein an: es geht nicht mit dem Befehl zum speichern für sich, aber ja, man kann vorher mit Dir prüfen, ob das Verzeichnis existiert. Sollte das nicht der Fall sein, kann per MkDir und ChDir oder aber durch Nutzung des API-Befehls MakeSureDirectoryPathExists auch ein mehrstufigers verzeichnis auf einen Rutsch angelegt werden:

Code:

Code:

Code:

Erklärst Du mir bttte noch, was an Deinem Code aus dem Ausgangsposting wegen der Zellangaben für eine Angabe Speicherpfad resp. Dateiname geändert werden muss?

 

hallo jinx,

vielen dank auch für deine hilfe...
werd die zeilen gleich mal bei mir einbauen *Smilie


hmm, weiß nicht was da geändert werden musste...mein erstellter code hat jedenfalls nicht den pfad aus der zelle gewählt sonder ihn als dateinamen verwendet.


liebe grüße