Vba Pdf Speichern mit mit Pfad & Dateiname aus Zelle

[toto18]

Hallo Liebe Excel Profis,

ich bräuchte mal eure Hilfe ich verzweifle bald an was für euch wahrscheinlich total simplem.....

Eckdaten:
Eine Arbeitsmappe mit zwei Blättern
Arbeitsmappe 1 Tresorbestand / Dateiname steht in N1 ( =$J$1&" "&"Tresorzählung"&" "&$B$23&"_"&TEXT($E$23;"t.MM.JJ")&" " &$H$23 ) funktioniert auch !
Arbeitsmappe 2 Datenbank / Pfadname steht unter B1 ( D:\Projekte\Gastro Kalkulation2\Kalkulations vorlage )
Ich möchte halt das die pdf automatisch mit Klick auf einem Button in den Ordner abgelegt wird . Und es kommt ständig ein Laufzeitfehler... mit dem Nachsatz das dokument wurde nicht gespeichert...

Sub Safe()
Dim sFile As String, sPath As String
  sPath = Sheets("Datenbank").Range("B2")
  sFile = Sheets("Tresorbestand").Range("N1").Value & ".pdf"  ' pdf!

Sheets("Tresorbestand").ExportAsFixedFormat Type:=xlTypePDF, Filename:=sPath & sFile, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False


End Sub

[UweD]

Hallo

setz mal noch ein \ ans Ende vom Pfad


Also:  D:\Projekte\Gastro Kalkulation2\Kalkulations vorlage\



Ausserdem schreibst du oben, die Daten stehen in B1

auslesen aber aus B2

Code:

  sPath = Sheets("Datenbank").Range("B2")

LG UweD

[toto18]

Hi Danke für die Schnelle Antwort,

ja ein Tipp Fehler hier im Text in punkto B1 bzw. B2 , ich habe einen \ am Ende des Pfades gesetzt aber leider bleibt der fehler der gleiche .....

[UweD]

Hallo

sind in N1 (bzw in den referenzierten Zellen) Zeichen enthalten, die im Dateiname nicht verwendet werden dürfen?


Ungültige Zeichen in Datei- oder Ordnernamen

~ " # % & * : < > ? / \ { | }.

[marose67]

Hallo,

so klappt es bei mir - siehe Anhang.

Gruß
Marcus

[JereMaia]

Was steht den in den beiden Variablen drin? Lass Sie Dir mal ausgeben und poste den Inhalt der beiden mal hier rein. Mit Msgbox kannst Du Dir den Inhalt anzeigen lassen. Bitte von der Meldung ein Screenshot machen und hier reinpostsen.

Msgbox "(sPath=" & sPath & ")(sFile:" & sFile &")"

[Pira]

In SPath wird kein Wert übernommen. Den Grund hab ich allerdings noch nicht gefunden.

[schauan]

Hallöchen,

in der Zelle steht wirklich was drin?

das kannst Du auch zusätzlich direkt prüfen,

Msgbox Sheets("Datenbank").Range("B1").Value
oder den Ausdruck in die Überwachung nehmen
oder einfach auf dem Blatt in der betreffenden Zelle nachschauen

[toto18]

Sorry das ich mich so spät zurück melde, war leider die Woche etwas verhindert.

Tausend Dank für die Vielen Antworten.  Das Problem war Tatsache  die zeichne im namen ~ " # % & * : < > ? / \ { | }.

Danke Euch !