Opgelost excel kolom omzetten in verkenner folder

[edmoor]

Voor het aan elkaar plakken van strings gebruik je geen + maar een & teken.

 

[hein68]

ok thx, ik begrijp net dat ik niet CreateFile moet gebruiken maar FileExist. en dat ik dan het pad naar het bestand moet toevoegen als het bestand nog niet in de map staat.

 

[snb]

Zonder basiscursus VBA in Excel is wat je wil voor jou te hoog gegrepen.

 

[hein68]

dit is een probeersel na googlewerk.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim checkRange As Range
    If Not Intersect(Target, Columns(1)) Is Nothing Then
 
        Dim map As String
        Dim file As String
        map = "R:\vbadossiers\" & Target.Value
        file = "r:\voorbeeldformat\voorbeeldformat.xls"
        Dim FSO As Object
 
        Set FSO = CreateObject("Scripting.Filesystemobject")
   
        If Not FSO.FolderExists(map) Then
            FSO.createfolder (map)
            FSO.createfolder (map & "\formulier")
            FSO.createfolder (map & "\bijlage")
            FSO.createfolder (map & "\foto")
            FSO.createfolder (map & "\kaart")
            FSO.createfolder (map & "\andere informatie")
            MsgBox "Mappen aangemaakt"
     ELSE
        Set FSO = CopyObject("Scripting.Filesystemobject")

        If Not FSO.FileExists(map & "\formulier") Then
        FSO.copyfile (map & "\formulier"
           End If
        End If
    End If
End Sub

 

[hein68]

@snb deze is onderweg

 

[edmoor]

Als je code plaatst, zet deze dan in code tags.
Daarnaast klopt je IF structuur niet.

 

[hein68]

Als je code plaatst, zet deze dan in code tags.
Daarnaast klopt je IF structuur niet.

gedaan en aangepast.

 

[edmoor]

De IF structuur is nog steeds niet in orde.
En wat is CopyObject?

Basis cursus VBA:

Free VBA Course

Learn VBA (Excel) for free step by step thanks to the lessons and exercises offered on this site (variables, conditions, loops, procedures, functions, dialog boxes, events, userforms, etc).

www.excel-pratique.com