Directory en bestandsnaam maken van gegevens in werkblad

[Marco9999]

Hallo,

Ik zit met het volgende te pielen.
Ik heb een werkblad TEST.XLSM met gegevens. Nu wil ik dmv een VBAscript in c:\Test\ een directory aanmaken met de naam uit cel A1, daarin een subdirectory met de naam uit cel B1 en daarin dit excelbestand met als naam de waarde uit cel C1.
Vervolgens in c:\Test\ een directory aanmaken met de naam uit cel A2, daarin een subdirectory met de naam uit cel B2 en daarin dit excelbestand opslaan met als naam de waarde uit cel C2.
En dan dit dan door laten gaan tot en met rij 23....

Bekijk bijlage TEST.XLSM

 

[HSV]

Het kan even duren Marco, dus geen paniek bij het runnen van de code.

Sub aanmaken()
Dim i As Long, pad As String
Application.ScreenUpdating = false
Application.DisplayAlerts = False
 With ThisWorkbook.Worksheets("Blad1")
 For i = 1 To 23
    Ord "C:\Test\" & .Cells(i, 1) & "\" & .Cells(i, 2).Value
      pad = "C:\Test\" & .Cells(i, 1) & "\" & .Cells(i, 2).Value
    ThisWorkbook.SaveAs pad & "\" & .Cells(i, 3).Value & ".xlsm", 52
   Next i
 End With
 Application.DisplayAlerts = True
End Sub
Public Sub Ord(ByVal mdir As String)
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
  If Not FSO.folderexists(mdir) Then
    On Error Resume Next
  Ord FSO.GetParentFolderName(mdir)
    MkDir mdir
  End If
End Sub

 

[Marco9999]

Harry,

Hartstikke bedankt, het werkt als een tierelier! :thumb:

Groet,
Marco

 

[HSV]

Hallo Marco,

Zet de application.screenupdating = true even op false.
In de gauwigheid gekomen.

 

[Warme bakkertje]

Als je de zoekfunctie van dit forum gebruikt zou hebben zou je zeker deze link tegengekomen zijn.

http://www.helpmij.nl/forum/showthread.php/414573-Snel-een-heleboel-directories-aanmaken-m-b-v-Excel