PFD-tiedostojen nimien haku

Janina87x

Jos mulla on kansiossa satoja pdf-tiedostoja, niin onko jotenkin mahdollista hakea exceliin solusta A1 alaspäin näiden tiedostojen nimet? En tarvitse linkkejä, vaan pelkästään nimet. Jos jollain on tietoa, niin olen ikuisesti kiitollinen!

1

80

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • lisää viittaus Microsoft Scripting Runtime

      moduuliin...

      Sub HaePDf()
      Dim FSO As Scripting.FileSystemObject
      Dim LähdeKansio As Scripting.Folder
      Dim Tiedosto As Scripting.File
      Range("A:A") = ""
      Range("A1").Select
      Set FSO = New Scripting.FileSystemObject
      Set LähdeKansio = FSO.GetFolder("E:\Testi\")
      For Each Tiedosto In LähdeKansio.Files
      If Right(Tiedosto, 4) = ".pdf" Then
      ActiveCell = Left(Tiedosto.Name, Len(Tiedosto.Name) - 4)
      ActiveCell.Offset(1, 0).Select
      End If
      Next Tiedosto
      Columns("A:A").AutoFit
      Set Tiedosto = Nothing
      Set LähdeKansio = Nothing
      Set FSO = Nothing
      End Sub


      Keep EXCELing
      @Kunde

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Mieleni harhailee sinussa

      Uskon että tykkäät minusta. On vain yksi elämä. Silti jään paikoilleni ja odotan että jokin muuttuu. Menin palasiksi, ei
      Tunteet
      21
      5574
    2. Taposta murhaksi

      Mitä tästä tapauksesta tiedetään?
      Kajaani
      53
      1655
    3. Grilli lopettaa?

      Pitääkö huhu paikkaansa että grilli lopettaa lähiaikoina?
      Suomussalmi
      20
      1129
    4. Pitääkö luovuttaa?

      Sano nyt edes jotain 👾
      Ikävä
      69
      1007
    5. Mitä teet nainen

      Jos saat tietää että mies on elänyt yksinäistä ja rauhallista elämää sinua kaivaten, ei ole ollut muiden naisten kanssa,
      Ikävä
      53
      987
    6. Joko Martinalla uusi aviomies hakusessa

      Onko jo Raya sovellukseen laitettu uusi vetoomus vetämään... ja mistähän maasta mahtaa olla seuraava sulhasehdokas. Suom
      Kotimaiset julkkisjuorut
      160
      949
    7. Olet nuorempi nainen aivan ihana

      Tykkään susta ihan valtavasti ❤️❤️
      Ikävä
      48
      898
    8. Mitä vastaisit

      Jos kysyisin, että lähdettäisiinkö lenkille yhdessä? Vain sinä ja minä, kaksin? Miehelle
      Ikävä
      57
      890
    9. Pitkäaikaistyöttömyys Suomessa harvinaisen paha

      Karut työttömyysluvut, korkein luku yli neljännesvuosisataan.
      Maailman menoa
      120
      872
    10. Missä olitte kun oli teidän tähän saakka kaunein yhteinen hetki?

      Me olimme rannalla erään kiven päällä❤️
      Ikävä
      58
      848
    Aihe