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!
PFD-tiedostojen nimien haku
1
62
Vastaukset
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
- 1612072
Kun viimeksi kohtasitte/näitte
Mitä olitte tekemässä? Millainen ympäristö oli? Löydetään toisemme...1311794Olet kyllä vaarallisen himokas
Luova, kaunis, määrätietoinen, pervo, mielenkiintoinen, kovanaama, naisellinen ja erikoinen.1021577- 721280
Anna vielä vähän vihreää valoa
Teen sitten siirtoni, nainen. Tiedän, että olet jo varovaisesti yrittänyt lähestyä, mutta siitä on jo aikaa. Jos tunnet171243- 711234
- 2251010
- 72833
- 45760
Miksi homous puhuttaa konservatiiveja vuodesta toiseen?
Kysymykseen on vastattukin Kansanlähetyksen osalta: "Miksi sukupuoleen ja seksuaalisuuteen liittyvät asiat ovat konserv194733