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
1
92
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
- 1261750
- 1051225
Postimerkki kirjeeseen ja kortiin maksaa jo 3 euroa!
https://yle.fi/a/74-20229241 Kyllä tämä on järjetön hinta, Posti tuhoaa itsensä tällä hinnalla, täytyyhän Postin "Herro1381091- 49999
Keitä oli kunnanjohtajan erottajat?
Kouluja ei ole varaa ylläpitää mutta johtajasopimukseen palaa 100000 euroa ja uuden johtajan hakuprosessi maksaa kymmeni54910- 130910
Atte Harjanne usuttaa eläkeläisvihaan
Karmeeta kuultavaa aamun uutislähetyksessä, kun Atte Harjanne, tunnettu eläkeläisvihaaja, suitsii sukupolvien välistä v240878Helsingin Mäntymäki muuttui Kultajuhlan jälkeen kaatopaikaksi.
Mitä se kertoo jääkiokosta ja lätkäfaneista? Saikkua huomenna huusi fani yöllä?73767Mä oon tyytyväinen, että ei ole enää tunteita.
Samalla tajusin, että sun kohdalla tykkäsin enemmän niistä tunteista kuin sinusta persoonana. Halusin väkisin nähdä sinu55739Pridekulkue kiellettävä?
Näin täällä suoraan vaaditaan. Perusteina mitä mielikuvituksellisimmat tarinat. No, miksi ihmeessä kukaan ei ole samalla178739