Gentagelse af samme handling

så er det vel bare at løbe dir igennem..


Dim strRoot As String
Dim strPath As String
Dim strFilename As String

  strRoot = "C:\Documents and Settings\Martin M. Jorgensen\Desktop\Videregående EDB\Destinationer\"

  strFilename = Dir(strRoot, vbDirectory)
  Do While strFilename <> ""
    If strFilename <> "." And strFilename <> ".." Then
      If (Not GetAttr(strRoot & strFilename)) And vbDirectory Then
        If LCase$(Right$(strFilename, 4)) = ".xls" Then ' Hvis filtype er ".xls"
          Workbooks.Open (strRoot & strFilename)
        End If
      End If
    End If
    strFilename = Dir
  Loop

Uhh nice, jeg havde ellers lavet den på den besværlige måde nu.
Kan du forklare hvad det forskellige gør helt præcis.. Alstå tager den bare alle filer i den mappe af filtypen xls?

Alstå tager den bare alle filer i den mappe af filtypen xls? JA

  strFilename = Dir(strRoot, vbDirectory) ' Henter den første fil
  Do While strFilename <> "" ' Looper til strFilename er tom
    If strFilename <> "." And strFilename <> ".." Then ' tjekker om strFilename kun indeholder . eller ..
      If (Not GetAttr(strRoot & strFilename)) And vbDirectory Then ' tjekker om det er et dir eller fil
        If LCase$(Right$(strFilename, 4)) = ".xls" Then ' Hvis filtype er ".xls"
          Workbooks.Open (strRoot & strFilename) ' Åbner filen
        End If
      End If
    End If
    strFilename = Dir ' Forsætter loop
  Loop

Mange tak! Du må gerne svare, hvis du har lyst!

strFilename = Dir ' henter den næste fil ;)

svar

:)