Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1844to1848
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA Speicherpfad wählen

VBA Speicherpfad wählen
16.09.2021 11:31:44
Andreas
Hi zusammen,
habe einen VBA-Code, der eine PDF von einem Tabellenblatt erzeugt, und diese an eine Mail anhängt.
Mein Problem ist es, dass diese PDF dann einfach in dem Ordner abgelegt wird, in dem die Datei sich befindet, aus der die PDF erzeugt wird.
Für die PDF würde ich mir aber wünschen, dass sie in einem anderen Ordner abgelegt wird, nämlich hier:
X:\Frachtanfragen
Hoffe jemand weiß Rat :)
Vielen Dank vorab
Gruß Andreas

Public Sub Frachtanfrage()
Dim sDateiname As String, WSh As Worksheet
Set WSh = ThisWorkbook.Sheets("F.-Anfr.")
' PDF erzeugen
sDateiname = ThisWorkbook.Path & "\Frachtanfrage_" & Worksheets("A 1").Range("C8") & "_" & Worksheets("A 1").Range("S16") & "_" & Worksheets("A 1").Range("C7").Value & ".pdf"
WSh.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sDateiname, _
Quality:=xlQualityStandard, OpenAfterPublish:=False
' Mail kreieren
With CreateObject("Outlook.Application").CreateItem(0)
.GetInspector                         ' sorgt für die Signatur
.Subject = "Frachtanfrage_" & Worksheets("A 1").Range("C7") & "_" & Worksheets("A 1").Range("S16") & "_" & Worksheets("A 1").Range("C8")     ' Betreff
.Body = "Sehr geehrte Damen und Herren," & vbCr & vbCr _
& "im Anhang erhalten Sie unsere Frachtanfrage." & vbCr _
& "Gerne erwarten wir Ihr Angebot." & vbCr & vbCr _
& ">Wir sind SLVS-Verzichtskunde" & vbCr _
'& vbCr & .Body                  ' Mailtext mit Signatur
If Dir$(sDateiname)  "" Then .Attachments.Add sDateiname
.Display
End With
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Speicherpfad wählen
16.09.2021 11:35:17
UweD
Hallo

sDateiname =  "X:\Frachtanfrage_" & Worksheets("A 1").Range("C8") &...
LG UweD
AW: VBA Speicherpfad wählen
16.09.2021 11:41:39
Andreas
Hallo Uwe,
vielen Dank für deine super schnelle Rückmeldung :)
Funktioniert.
Wünsche dir einen schönen Tag
Gruß Andreas
Danke für die Rückmeldung (owT)
16.09.2021 11:43:25
UweD
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige