eingebettete Pdfs speichern
27.05.2020 20:54:05
Marco
ich benötige mal Hilfe von echten Experten.
Wir bekommen von unseren Subunternehmern die Abrechnungen als Exceldatei mit eingebetteten PDF`s mit den Rechnungsbelegen.
Jetzt muss ich diese Rechnungsbelege immer händisch extrhieren und zusammenfassen zu einer Pdf.
Ich versuche gerade ein Macro zu schreiben um dies per Vba zu automatisieren.
Es würde mir schon reichen wenn ich diese Objekte in der von mir gewünschten Reihenfolge in einen Ordner speichern könnte.
Alles was ich bis dato im Netz gefunden habe war die Möglichkeit mittels OLEOObjekt.SaveAs zu arbeiten.
Aber anscheinend funktioniert dies unter office 365 nicht.
Kann mir jemand einen Tipp und vielleicht ein Beispiel geben? Ich stehe hier gerade voll auf dem Schlauch.
Ich schicke mal mit was ich mir bis dato zusammengereimt habe.
Sub Savepdf(Zelle As Variant)
Dim obj As Object
Dim c As Range
Set c = Tabelle1.Cells(Zelle, 4)
For Each obj In c.Worksheet.OLEObjects
If Not Intersect(obj.TopLeftCell, c) Is Nothing Then
obj.SaveAs "c:\test.pdf"
End If
Next
End Sub
Anzeige