Dmv macro nieuwe Excel-bestanden aanmaken obv sjabloon

[Excelnoobske]

Beste forum-lezers,

Graag wil ik met een macro Excel automatisch bestanden laten aanmaken met de naam die in een bepaalde cel is vermeld. Ook wil ik dat deze obv van een sjabloon worden aangemaakt. Voorbeeld:
Cel A1: 1000-1
Cel A2: 1000-2
Cel A3: 1000-3

Ik wil dat er in het pad "H:\Kennisdocumenten\Excel\" de Excel-bestanden "1000-1", "1000-2" en "1000-3" aangemaakt worden. De namen van de betreffende cellen dus.

Indien mogelijk wil ik dat deze bestanden het sjabloon meekrijgen van het de werkmap "SjabloonExcel" in "H:\Kennisdocumenten\Excel\"

Uiteindelijk moeten er zo honderden documenten worden aangemaakt. Vandaar dat ik hoop dat dit via een macro kan en niet iedere keer een handmatige actie hoeft te zijn.

In de bijlage heb ik de werkmap "Test.xlsm" bijgevoegd met daarin de gewenste namen van de bestanden. Verder heb ik een voorbeeldsjabloon bijgevoegd "SjabloonExcel".

Ik hoop dat indien dit mogelijk is iemand mij hiermee verder kan helpen.

Alvast bedankt voor iedere hulp!

Groet,

Danny

Bijlage: Bekijk bijlage Test.xlsm Bekijk bijlage SjabloonExcel.xlsx

 

[Elsendoorn2134]

Danny,

Neem in Test.xlsm de volgende code op.

Public Sub MaakBestanden()

Dim nLoper As Long
Dim sPath As String

sPath = ActiveWorkbook.Path & "\"

With Sheets("Blad1").Range("A3")
    Workbooks.Add (sPath & "SjabloonExcel.xlsx")
    Do While .Offset(nLoper, 0) <> ""
        Workbooks(2).SaveAs sPath & .Offset(nLoper, 0)
        nLoper = nLoper + 1
    Loop
    Workbooks(Workbooks.Count).Close
End With
MsgBox "Er zijn " & nLoper & " bestanden aangemaakt.", vbInformation, "Klaar"

End Sub

Veel Succes.