Åbne alle filer i en mappe - excel/vba - office 2011 til Mac (gys :o])

MUAHAHAHAHAHAHHAAAAAAAAAA - jeg *FIK* den!!!

- og giver mig selv point, sorry

:o]

Sub Open_All_Files()

Dim oWbk As Workbook
Dim sFil As String
Dim sPath As String

sPath = "mappe:mappe:mappe:" 'location of files

ChDir sPath

sFil = Dir(sPath, MacID("XLSX")) 'change or add formats

Do While sFil <> "" 'will start LOOP until all files in folder sPath have been looped through

  If Left(sFil, 10) <> "samlet fil" Then

    Set oWbk = Workbooks.Open(sPath & sFil)  'opens the file
 
    ' do something
   
    oWbk.Close False 'close the workbook, saving changes
   
  End If
 
  sFil = Dir

Loop ' End of LOOP

End Sub