Avatar billede koppelgaard Praktikant
06. september 2010 - 18:39 Der er 4 kommentarer og
1 løsning

returner alle excelfiler

Men udgangspunkt i http://www.eksperten.dk/spm/915525
er der så et kvikt hoved, der kan skrive makoen færdig, så jeg får alle excelfiler i alle subdirectories.
Avatar billede excelent Ekspert
11. september 2010 - 09:49 #1
prøv

Sub Start()
Call ListFilesInFolder("C:\Users\pm\Desktop\", True) ' Indtast sti
End Sub

Sub ListFilesInFolder(ByVal SourceFolderName As String, ByVal IncludeSubfolders As Boolean)
Dim FSO As Object
Dim SourceFolder As Object
Dim SubFolder As Object
Dim FileItem As Object
Dim r As Long
Set FSO = CreateObject("Scripting.FileSystemObject")
Set SourceFolder = FSO.GetFolder(SourceFolderName)
r = Range("A65536").End(xlUp).Row + 1
For Each FileItem In SourceFolder.Files
  If InStr(1, FileItem.Name, ".xls", 1) > 0 Then
  Cells(r, 1).Formula = FileItem.Name
    Cells(r, 2).Formula = FileItem.Path
  r = r + 1
  X = SourceFolder.Path
  End If
Next FileItem
If IncludeSubfolders Then
  For Each SubFolder In SourceFolder.SubFolders
    ListFilesInFolder SubFolder.Path, True
  Next SubFolder
End If
Set FileItem = Nothing
Set SourceFolder = Nothing
Set FSO = Nothing
End Sub
Avatar billede koppelgaard Praktikant
13. september 2010 - 07:51 #2
Virker perfekt :-)
Hvor mange point vil du have? Er 60 point ok?
Avatar billede excelent Ekspert
13. september 2010 - 15:11 #3
ja det er fint
Avatar billede koppelgaard Praktikant
13. september 2010 - 17:23 #4
ekstra point til dig excelent:
http://www.eksperten.dk/spm/918706
Avatar billede vejmand Juniormester
13. september 2010 - 17:28 #5
Husk at acceptere svaret fra excelent.  :-)
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
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

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