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
Janina87x
199
0Äänestä
Muut lukivat myös
Odottaa vastausta
Näihin keskusteluihin ei ole vielä vastattu. Ole ensimmäinen.
Vastaukset 1
Vanhimmat
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