Invoegen, opslaan

[Peterstaffing]

Hi All,

Ik heb in een map meerdere excel bestanden staan. Daarnaast heb ik een bronbestand die gevuld moet worden vanuit deze bestanden. Per bestand (met verschillende namen) moeten twee tabbladen gekopieerd worden naar het bronbestand en deze moet vervolgens worden opgeslagen met een specifieke naam (staat in de gekopieerde tabel). Vervolgens moet het volgende bestand worden geopend ...gekopieerd etc tot alle bestanden langs zijn gelopen.

Nu werk ik echter met een andere methodiek (tabbladen worden in het document ingeplakt).

zou iemand deze kunnen ombouwen?

Private Sub Start_Click()
Dim directory As String, fileName As String, sheet As Worksheet, total As Integer

Application.ScreenUpdating = False
Application.DisplayAlerts = False

directory = "c:\test"
fileName = Dir(directory & "*.xl??")

Do While fileName <> ""
Workbooks.Open (directory & fileName)

For Each sheet In Workbooks(fileName).Worksheets
total = Workbooks("testv2.xlsm").Worksheets.Count
Workbooks(fileName).Worksheets(sheet.Name).Copy _
after:=Workbooks("testv2.xlsm").Worksheets(total)
Next sheet

Loop

Sheets("OMZET RL").Select
Cells.Select
Selection.Copy
Sheets("relaties").Select
Cells.Select
ActiveSheet.Paste
Sheets("BUDGET OBV HIST").Select
Cells.Select
Selection.Copy
Sheets("Verloop").Select
Cells.Select
ActiveSheet.Paste

ActiveWorkbook.Save


Workbooks(fileName).Close
fileName = Dir()

Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

 

[ExcelAmateur]

Als je goed geholpen wil worden,
Lees dan de link eens goed door en doe wat er gevraagd word.
https://www.helpmij.nl/forum/announcement.php?f=5