Lave data fra excel, om til bibliotek

du kan tage udgangspunkt i dette:
http://www.ozgrid.com/forum/showthread.php?t=32259

du mangler så bare at lave en smule logik der henter din "targetpath" fra dit regneark

Ja - via VBA skulle det være muligt.

Skal det forståes sådan, at de navne, der skrives i kolonne B, alle skal oprettes som undermapper i "hovedmappen, som er anført i kolonne A?

Citat: Skal det forståes sådan, at de navne, der skrives i kolonne B, alle skal oprettes som undermapper i "hovedmappen, som er anført i kolonne A?

Det er nemlig rigtig forstået :-)

Vender tilbage...

Koden koden kopieres til Ark1 /VBA-vinduet
Data på ARK - tilpas stien.............
Evt. start-rækken


Const BibSti = "C:\Documents and Settings\pb\Skrivebord\1112XLSbibliotek\"      '***** TILPASSES *****
Const startRække = 1                            '***** --- " --- *****

Sub OpbygBiblioteker()
Dim Aræk, Amappe, Bræk, Bmappe
Rem ARK 1 - KOLONNE A gennemgås celle for celle m/start i RÆKKE 1 - indtil første celle i kolonnen
    For Aræk = startRække To 65000
        If Cells(Aræk, 1) <> "" Then
            Amappe = Cells(Aræk, 1)
            opretMappe BibSti, Amappe
           
Rem -"- -- KOLONNE B gennegås do - opretter undermapper (Bmapper) under Hovedmappen (Amappen)
            For Bræk = startRække To 65000
                If Cells(Bræk, 2) <> "" Then
                    Bmappe = Cells(Bræk, 2)
                    opretMappe BibSti + Amappe, "\" + Bmappe
                End If
            Next Bræk
        End If
    Next Aræk
   
    MsgBox ("Biblioteker er oprettet")
End Sub
Private Sub opretMappe(sti, mappe)
On Error Resume Next
    MkDir sti + mappe
End Sub

Jeg har indsat koden og redigeret den så den nu ser således ud:

Const BibSti = "C:\temp\"
Const startRække = 1

Sub OpbygBiblioteker()
Dim Aræk, Amappe, Bræk, Bmappe
Rem ARK 1 - KOLONNE A gennemgås celle for celle m/start i RÆKKE 1 - indtil første celle i kolonnen
    For Aræk = startRække To 65000
        If Cells(Aræk, 1) <> "" Then
            Amappe = Cells(Aræk, 1)
            opretMappe BibSti, Amappe
         
Rem -"- -- KOLONNE B gennegås do - opretter undermapper (Bmapper) under Hovedmappen (Amappen)
            For Bræk = startRække To 65000
                If Cells(Bræk, 2) <> "" Then
                    Bmappe = Cells(Bræk, 2)
                    opretMappe BibSti + Amappe, "\" + Bmappe
                End If
            Next Bræk
        End If
    Next Aræk
 
    MsgBox ("Biblioteker er oprettet")
End Sub
Private Sub opretMappe(sti, mappe)
On Error Resume Next
    MkDir sti + mappe
End Sub

Når jeg køre koden får jeg en fejl "type mismatch"
Kan du se hvad dette kan være der giver denne fejl?

Hvor i koden optræder fejlen?

Det kunne måske være navngivningen af mapperne - hvis du har anvendt specialtegn. Visse tegn er ikke tilladt..

Vis evt. hvilke mappe-navne, som du har anvendt..

Du har ret :-)
Jeg kaldte mit bibliotek for 1 og mit under bibliotek for 2
Dette kan den ikke bruges.

Så prøvede jeg med MORTEN i a rækken og JENSEN i b rækken. Nu køre det som smurt.

1000 tak herfra.

Mvh

Morten Jensen

SUPERTEKST Vil du ikke lave et svar så jeg kan give dig point?

Selv tak - en fornøjelse...

Det gør jeg så hermed!

lukketid?

????