PDF lesen
17.05.2022 05:52:10
Franco
ich habe hier im Archiv diesen VBA Code gefunden und funktioniert super und macht das was es soll.
Nur ich habe das Problem das ich die gespeicherte PDF nicht lesen kann geschweige öffnen.
Kann mir da bitte jemand helfen was ich da ändern muss.
Herzlichen Danke
Franco
Sub Speichern()
Dim sFile As String, sOld As String
sOld = ThisWorkbook.Name
If IsNumeric(Mid(sOld, 9, 4)) Then
sOld = Mid(sOld, 9, 4)
Else
sOld = 0
End If
sOld = Format(CInt(sOld) + 1, "0000")
sFile = Range("A1").Text & "_"
sFile = sFile & Range("H3").Text & "_"
sFile = sFile & sOld & ".pdf"
ThisWorkbook.SaveAs Range("E2").Value & _
"\" & sFile
End Sub