• 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.

Samenvoegen van tabbladen uit verschillende excel bestanden macro

Status
Niet open voor verdere reacties.

MartiB01

Gebruiker
Lid geworden
18 mei 2016
Berichten
8
Beste allen,

Ik heb een stuk code voor het samenvoegen van tabbladen uit verschillende excel bestand uit dezelfde directory. De bestanden worden samengevoegd in een masterbestand. Ik zou graag de range van de te samenvoegen bestanden willen aanpassen naar= A2:IV & Range("A65536"). Hoe kan ik dit in de onderstaande code zetten?

Groet, Martijn Beeks

Code:
Sub samenvoeg()
  Application.ScreenUpdating = False
  For Each fl In CreateObject("scripting.filesystemobject").Getfolder("E:\bestanden").Files
     With GetObject(fl)
        sq = .Sheets("Product Complaint Data").UsedRange
        .Close False
     End With
     ThisWorkbook.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(UBound(sq), UBound(sq, 2)) = sq
    End If
  Next
  Application.ScreenUpdating = True
End Sub
 
Vervang .UsedRange door:
Code:
.Range("A2:IV" & Range("A65536").End(xlup).row)
 
Beste Cobbe,

In alle losse excel bestanden zit op de eerste regel die ik niet meegekopieerd wil hebben. Echter met jouw aanpassing gebeurd dit nog steeds? Hoe zou dit wel kunnen?
MVG,
Martijn

Code:
Sub samenvoeg()
  Application.ScreenUpdating = False
  For Each fl In CreateObject("scripting.filesystemobject").Getfolder("C:\Users\Martib01\Documents\Test excel").Files
     With GetObject(fl)
        sq = .Sheets("Product Complaint Data").Range("A2:IV" & Range("A65536").End(xlUp).Row)
        .Close False
     End With
     ThisWorkbook.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(UBound(sq), UBound(sq, 2)) = sq
  Next
  Application.ScreenUpdating = True
End Sub
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan