VBA- Datei nicht gefunden
04.08.2021 10:35:00
Andreas
brauche bitte eure Hilfe, habe nämlich ein mir unerklärliches Problem.
In meiner Datei gibt es folgende VBA, die ein PDF und eine Mail erzeugt:
Public Sub StatusShipment()
Dim sDateiname As String, WSh As Worksheet
Set WSh = ThisWorkbook.Sheets("Status-S.")
' PDF erzeugen
sDateiname = "Status Shipment_" & 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 = "Status Shipment_" & Worksheets("A 1").Range("C6") & "_" & Worksheets("A 1").Range("S16") & "_" & Worksheets("A 1").Range("C7") ' Betreff
.Body = "Dear Sirs," & vbCr & vbCr _
& "Text1" & Worksheets("A 1").Range("C8") & vbCr _
& "Text2" & 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
Jetzt haben wir das Problem, dass an einem Rechner die VBA plötzlich nicht mehr funktioniert.
Es kommt bei Ausführung des Makros eine Fehlermeldung, "Datei nicht gefunden". Die Mail wird erzeugt, aber die PDF nicht erstellt und angehängt.
Ist aber nur bei diesem einen PC. Der PC ist im selben Netzwerk wie alle anderen, die Datei liegt in einem allgemeinen Verzeichnis, wir nutzen alle 365 Business.
Weiß einer woran das liegen könnte?
Vielen Dank für eure Hilfe
Gruß Andreas