martijnbos
Gebruiker
- Lid geworden
- 17 dec 2010
- Berichten
- 101
Hallo allemaal,
Met onderstaande code wil ik vanaf een bepaalde map alle Excel bestanden openen, kopieren en plakken.
In het verleden met Excel 2003 bestanden ging dat prima. We krijgen nu bestanden binnen met als extensie XLSM.
Dit is het aangepaste formulier in 2003 met dus een macro.
Probleem is dat de code deze op een of andere manier niet ziet en dus direct na de If right, doorloopt naar de End if
Iemand enig wat ik fout doe?
Gr.
Martijn Bos
Met onderstaande code wil ik vanaf een bepaalde map alle Excel bestanden openen, kopieren en plakken.
In het verleden met Excel 2003 bestanden ging dat prima. We krijgen nu bestanden binnen met als extensie XLSM.
Dit is het aangepaste formulier in 2003 met dus een macro.
Probleem is dat de code deze op een of andere manier niet ziet en dus direct na de If right, doorloopt naar de End if
Iemand enig wat ik fout doe?
Gr.
Martijn Bos
Code:
Sub Verzamel()
Dim objFSO As Object, objFolder As Object, objFile As Object
Dim iRow As Long
iRow = 1
Dim arrVar() As Variant
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("H:")
For Each objFile In objFolder.Files
If Right(objFile, 3) = "xlsm" Then
Application.EnableEvents = False
Application.DisplayAlerts = False
Workbooks.Open Filename:=objFile.Name
ActiveWorkbook.Worksheets(1).Range("A2:X2101").Copy
ThisWorkbook.Activate
Cells(iRow, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False
Workbooks(objFile.Name).Close SaveChanges:=False
iRow = iRow + 102
End If
Next
End Sub