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
80
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
Mieleni harhailee sinussa
Uskon että tykkäät minusta. On vain yksi elämä. Silti jään paikoilleni ja odotan että jokin muuttuu. Menin palasiksi, ei215574- 531655
- 201129
- 691007
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,53987Joko Martinalla uusi aviomies hakusessa
Onko jo Raya sovellukseen laitettu uusi vetoomus vetämään... ja mistähän maasta mahtaa olla seuraava sulhasehdokas. Suom160949- 48898
Mitä vastaisit
Jos kysyisin, että lähdettäisiinkö lenkille yhdessä? Vain sinä ja minä, kaksin? Miehelle57890Pitkäaikaistyöttömyys Suomessa harvinaisen paha
Karut työttömyysluvut, korkein luku yli neljännesvuosisataan.120872Missä olitte kun oli teidän tähän saakka kaunein yhteinen hetki?
Me olimme rannalla erään kiven päällä❤️58848