PDF Datei einfügen

Florian · 2021-11-21T09:22:42+00:00

Hi Leute, mit diesem Code füge ich PDF-Dateien in meine Excel-Arbeitsmappe ein: Sub AnlagenEinfuegen() Dim Dateiname Dim Pfad Pfad = ThisWorkbook.Path Dateiname = Application.GetOpenFilename(filefilter:="PDF-Dateien (*.pdf), *.*)", Title:="Anlage auswählen") If Dateiname = "Falsch" Then MsgBox "Keine Datei ausgewählt!" Else If ActiveSheet.Name = "Anlagen" Then ActiveSheet.OLEObjects.Add(Filename:=Dateiname, Link:=False, DisplayAsIcon:=True, IconFileName:=Pfad & "PDF.ico", IconIndex:=0, IconLabel:=Dateiname).Select Else MsgBox "Bitte wechseln Sie zuerst auf das Tabellenblatt 'AnlagenÄ und wählen Sie eine leere Zelle aus.", vbInformation, "Anlage einfügen" End If End If End Sub Dabei habe ich zwei Probleme: 1. Das PDF-Icon wird in der Anlage nicht angezeigt. 2. Wie kann ich nur den Dateinamen und nicht den ganzen Pfad in der Anlage anzeigen lassen? Danke euch!! :)

Hallo Florian,
hier eine Idee, um nur den Dateinamen anzeigen zu lassen.
Ich habe hier grad kein PDF-Programm, aber wenn Du die Icon-Angabe weglässt, sollte das entsprechende Icon angezeigt werden.
Ansonsten musst Du auch den Pfad und den Dateinamen des Icons korrekt angeben, also PDF.ICO suchen lassen und wenn gefunden, diese Angaben einbauen.

Code:


[Cc][+][-]

Option Explicit

Sub AnlagenEinfuegen()

  Dim Dateiname
  Dim Pfad
  Dim sArr() As String

  Pfad = ThisWorkbook.Path
  Dateiname = Application.GetOpenFilename(filefilter:="PDF-Dateien (*.pdf), *.*)", Title:="Anlage auswählen") _
            

  If Dateiname = "Falsch" Then

     MsgBox "Keine Datei ausgewählt!"

  Else

     If ActiveSheet.Name = "Anlagen" Then

        sArr = Split(Dateiname, "&bsol;")
        ActiveSheet.OLEObjects.Add(Filename:=Dateiname, link:=False, DisplayAsIcon:=True, _
        IconIndex:=0, IconLabel:=sArr(UBound(sArr))).Select

     Else

        MsgBox "Bitte wechseln Sie zuerst auf das Tabellenblatt      ' AnlagenÄ und wählen Sie eine _"
                leere Zelle aus.", vbInformation, "Anlage einfügen""

     End If

  End If

End Sub

viele Grüße
Karl-Heinz

Hi Florian,
versuch es mal hiermit:


Sub AnlagenEinfuegen()
Dim Dateiname
Dim Pfad
Dim lstrSplit() As String
Pfad = ThisWorkbook.Path
Dateiname = Application.GetOpenFilename(filefilter:="PDF-Dateien (*.pdf), *.*)", Title:="Anlage auswählen")
If Dateiname = "Falsch" Then
MsgBox "Keine Datei ausgewählt!"
Else
If ActiveSheet.Name = "Anlagen" Then
lstrSplit = Split(Dateiname, "\")
ActiveSheet.OLEObjects.Add(Filename:=Dateiname, Link:=False, DisplayAsIcon:=True, IconFileName:=Dateiname, IconIndex:=0, IconLabel:=lstrSplit(UBound(lstrSplit))).Select
Else
MsgBox "Bitte wechseln Sie zuerst auf das Tabellenblatt 'AnlagenÄ und wählen Sie eine leere Zelle aus.", vbInformation, "Anlage einfügen"
End If
End If
End Sub

Nun wird nur der Dateiname angezeigt.
Aber dass auch ein PDF-Icon gezeigt wird, hab ich nicht hinbekommen.
Ich bin mir zwar nicht sicher, glaube aber, dass das auch nicht geht.
Hast du deinen Code anstelle mit DisplayAsIcon:=True auch mal mit DisplayAsIcon:=False ausprobiert?
Mit Verwendung von False wird nämlich die ganze erste Seite der zuvor ausgewählten PDF-Datei angezeigt - False wieder geändert auf True zeigt wieder nur ein kleines Symbol.
Hilfts?
Ciao
Thorsten

Forumthread: PDF Datei einfügen

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

PDF-Datei in Excel einfügen: So funktioniert's

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)