• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

VBA code Excel sheet uitlezen

Status
Niet open voor verdere reacties.

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

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
 
Thxs. Lekker slim van mij. Daar keek ik nou al de hele morgen overheen.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan