Avatar billede boro23 Seniormester
15. december 2020 - 12:31 Der er 3 kommentarer og
1 løsning

Hjælp til VBA kode

Hej Eksperter
Har brug for hjælp til en vba kode, der kan hente alle filnavne med .xlsx & .xlsm i en ekstern mappe, ind i mit regneark. Filnavnene skal listes fra B2 og nedefter.
Håber én af Jer VBA hajer kan løse mit problem.
Avatar billede jens48 Ekspert
15. december 2020 - 14:22 #1
Måske kan noget i stil med dette brugs:

Sub GetFileNames()
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set myFolder = objFSO.GetFolder("C:\Temp\")
Application.ScreenUpdating = False
ThisWorkbook.Sheets("Sheet1").Range(Cells(2, 2), Cells(Rows.Count, 2)).ClearContents
R = 2
For Each myFile In myFolder.Files
If Right(myFile.Name, 4) = "xlsx" Or Right(myFile.Name, 4) = "xlsm" Then
  ThisWorkbook.Sheets("Sheet1").Cells(R, 2).Value = myFile.Name
  R = R + 1
End If
Next myFile
Application.ScreenUpdating = True
End Sub
Avatar billede boro23 Seniormester
16. december 2020 - 08:10 #2
1000 tak for hjælpen, virker som den skal :-)
Avatar billede finb Ekspert
17. december 2020 - 13:47 #3
Kan #1 bruges i Stifinder ?
a la:
For Each myFile In STIFINDER.files
?
Avatar billede jens48 Ekspert
17. december 2020 - 16:34 #4
Hej finb.
Det er noget jeg fandt på nettet og så rettede til. Det kan det vel.
I 3. linje skriver jeg hvilken folder der skal undersøges. Der skal du blot have hele stien med.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester





CIO
Sådan tager top-CIO Pernille Geneser livtag med 40 år gamle it-systemer i Stark Group med 10.000 medarbejdere