Hallo zusammen,
ich füge mit dem Makro ein beliebiges Dokument in eine Tabelle ein:
Dim varDatei As Variant
varDatei = Application.GetOpenFilename(FileFilter:="AlleDateien(*.*),*.*", Title:="Bitte einzubettende Datei auswählen")
If varDatei False Then
ActiveSheet.OLEObjects.Add Filename:=varDatei, Link:=False, DisplayAsIcon:=True, IconFileName:="packager.dll", IconIndex:=0, IconLabel:=Mid(varDatei, InStrRev(varDatei, "\") + 1)
End If
Wie kann ich den Namen des gerade eingefügten Dokumentes auslesen?
Bedanke mich schon im Voraus für Eure Hilfe