12. januar 2020 - 14:14 Der er 2 kommentarer og
2 løsninger

VBA Hente filnavne af typen dxf fra samme mappe som regnearket

Jeg har denne code som virker fint når jeg skriver stien den skal hente filerne.
jeg vil gerne have den til automatisk at hente fra samme mappe som regnearket ligger i.
og så vil jeg have at den kun henter dxf filnavne.

Public Sub ListAllFilesFromFolder()
    Dim objFS As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim i As Long
 
    Set objFS = CreateObject("Scripting.Filesystemobject")
    Set objFolder = objFS.GetFolder("D:\tegninger\Til Ole 19-11-19")
 
    i = 2
 
    For Each objFile In objFolder.Files
        ActiveSheet.Cells(i, 1) = objFile.name
        i = i + 1
    Next objFile
 
    Set objFS = Nothing
    Set objFolder = Nothing
End Sub
Avatar billede komputerdk Mester
13. januar 2020 - 08:13 #1
hvad med at lave en lille IF i din kode ? (har ikke lige testet)

Public Sub ListAllFilesFromFolder()
    Dim objFS As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim i As Long

    Set objFS = CreateObject("Scripting.Filesystemobject")
    Set objFolder = objFS.GetFolder("D:\tegninger\Til Ole 19-11-19")

    i = 2

    For Each objFile In objFolder.Files
'Hvis .dxf er i filen
if instr(1,objFile.Name, ".dxf") then
        ActiveSheet.Cells(i, 1) = objFile.name
        i = i + 1
end if
    Next objFile

    Set objFS = Nothing
    Set objFolder = Nothing
End Sub
13. januar 2020 - 10:31 #2
Tak det virker fint.
Men hvordan får jeg den til at hente fra den mappe jeg ligger excel arket i?
Avatar billede komputerdk Mester
14. januar 2020 - 07:00 #3
du kan udskifte denne linje

Set objFolder = objFS.GetFolder("D:\tegninger\Til Ole 19-11-19")

med denne - hvis den brokker sig over stigen, så prøv at  bruge ThisWorkbook.path & " \"   

'ThisWorkBook.Path henviser til denne excel fil - path viser hvor den er gemt
Set objFolder = objFS.GetFolder(ThisWorkbook.Path)



Bare husk at gemme excelarket inden du kører makroen - for ellers vi lden sikkert blive rundforvirret  ;)
15. januar 2020 - 16:50 #4
Tak for hjælpen det virker som det skal
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
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

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