Thema Datum  Von Nutzer Rating
Antwort
02.01.2020 17:04:36 Mike
NotSolved
Blau PDF link erstellen
 02.01.2020 18:55:27 Gast87573
NotSolved
02.01.2020 21:56:43 Gast57538
Solved

Ansicht des Beitrags:
Von:
Gast87573		 Datum:
02.01.2020 18:55:27		 Views:
423		 Rating:
     
Antwort:
  Ja
Thema:
PDF link erstellen

Hallo Mike,

 

Sub Dateien_eines_Ordners_Auflisten()
 
Dim wks As Worksheet
Dim lngZeile As Long
Dim objFileSystem As Object
Dim objVerzeichnis As Object
Dim objDateienliste As Object
Dim objDatei As Object
 
'Tabelle aktivieren um Spalte zu löschen
Set wks = ActiveWorkbook.Worksheets("Tabelle2")
 
'löscht Spalte B
wks.Range(Cells(2, 2), Cells(3000, 3)).ClearContents
 
 
Set objFileSystem = CreateObject("scripting.FileSystemObject")
Set objVerzeichnis = objFileSystem.GetFolder("Ordnerpfad") ' <<< Hier ordnerpfad eintragen
Set objDateienliste = objVerzeichnis.Files
 
lngZeile = 2
 
'liest alle pdfs aus dem ordner und schreibt sie ins excel
For Each objDatei In objDateienliste
     If Not objDatei Is Nothing And Right(LCase(objDatei.Name), 4) = ".pdf" Then
          wks.Cells(lngZeile, 2) = objDatei.Name
      
          'in hyperlink umwandeln
        wks.Hyperlinks.Add Anchor:=wks.Cells(lngZeile, 2), _
        Address:=objDatei.Path, _
        TextToDisplay:=wks.Cells(lngZeile, 2).Value
           
          lngZeile = lngZeile + 1
           
     End If
Next objDatei
 
End Sub

probier es mal so, aber den Ordnerpfad nicht vergessen einzutragen.

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
02.01.2020 17:04:36 Mike
NotSolved
Blau PDF link erstellen
 02.01.2020 18:55:27 Gast87573
NotSolved
02.01.2020 21:56:43 Gast57538
Solved