Jeg skal lave en masse forskellige biblioteker. Er det muligt at skrive forskellige navne i kolonne A og så ved hjælp af en Macro lave disse navne om til biblioteker et bestemt sted på c: ? Hvis dette kan lade sig gøre kan man så videreudvikle Macroen til at lave under biblioteker med de navne som man skriver i kolonne B?
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?
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.