Samenvoegen excel bestanden

[hdegeus73]

Hallo allemaal,

Ik wil deze excel bestanden (ik heb ze leeg gemaakt ivm privacy) samenvoegen tot 1 bestand

Wie kan mij helpen?

 

[snb]

Als jij deze bestanden kunt maken kun je ze ook met knippen en plakken in 1 werkblad zetten.

 

[edmoor]

Als dat eenmalig is kan je toch gewoon 1 document als basis nemen en de gegevens van de andere documenten er in plakken?

 

[hdegeus73]

Ik heb het wel voor elkaar dat ze nu allemaal in 1 bestand staan, maar op verschillende werkbladen

Ik heb deze VBA gebruikt, wat gaat er mis?

Sub Merge2MultiSheets()
Dim wbDst As Workbook
Dim wbSrc As Workbook
Dim wsSrc As Worksheet
Dim MyPath As String
Dim strFilename As String

Application.DisplayAlerts = False
Application.EnableEvents = False
Application.ScreenUpdating = False
MyPath = "H:\Kerst\kopie" ' change to suit
Set wbDst = Workbooks.Add(xlWBATWorksheet)
strFilename = Dir(MyPath & "\*.xlsx", vbNormal)

If Len(strFilename) = 0 Then Exit Sub

Do Until strFilename = ""

Set wbSrc = Workbooks.Open(Filename:=MyPath & "" & strFilename)

Set wsSrc = wbSrc.Worksheets(1)

wsSrc.Copy After:=wbDst.Worksheets(wbDst.Worksheets.Count)

wbSrc.Close False

strFilename = Dir()

Loop
wbDst.Worksheets(1).Delete

Application.DisplayAlerts = True
Application.EnableEvents = True
Application.ScreenUpdating = True

End Sub

 

[hdegeus73]

Ik ben nog niet heel erg goed met VBA's

 

[snb]

Gebruik svp code tags in dit forum !

 

[edmoor]

Als het eenmalig is kan je dat gewoon een keer handmatig doen.

 

[hdegeus73]

Als het eenmalig is kan je dat gewoon een keer handmatig doen.

Nee dit gaat nog wel meer voorkomen, vandaar de vraag