Massaal converteren van 2003 naar 2007

[roppie555]

Ik zoek een stukje VBA-code om massaal een directory inhoud met excel 2003 bestanden te converteren naar 2007.
B.v.
- Selecteer een map
- Is de extensie .xls dan open het eerste bestand
- Schrijf weg als .xlsx
- Ga naar het volgend bestand

Bestaat er al een dergelijk tooltje of VBA-code.
Zo niet, kan iemand mij dan aangeven hoe je in VBA een map selecteerd?

Vast bedankt, Rob

 

[ReneDirks]

Je zult daarvoor het filesystemobject moeten gebruiken en dan iets als:

Public Sub ScanFiles(strFolder As String)
  Dim fso As New FileSystemObject
  Dim fFile As File
  Dim fFolder As Folder
  Dim fSubFolder As Folder

    'first process subfolders
    Set fFolder = fso.GetFolder(strFolder)
    For Each fSubFolder In fFolder.SubFolders
        ScanFolder fSubFolder.Path
    Next
    For Each fFile In fFolder.Files
      If UCase(Right(fFile.Name, 4)) = ".XLS" Then
          'open 2003 file
          'save as 2007
      End If
    Next
    Set fso = Nothing
End Sub

 

[roppie555]

Super!

Kijk, Hier kan ik wat mee.
Vooral dat zoeken naar de juiste map lukte me niet.
Hier ga ik wat moois van maken.
Bedankt voor je hulp!

Rob