Avatar billede m221270 Nybegynder
11. december 2007 - 14:37 Der er 12 kommentarer

Lave data fra excel, om til bibliotek

Håber nogen kan hjælpe.

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?

Håber nogen kan hjælpe mig.

Mvh.

MJ
Avatar billede ladyhawke Novice
11. december 2007 - 14:40 #1
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
Avatar billede supertekst Ekspert
11. december 2007 - 16:27 #2
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?
Avatar billede m221270 Nybegynder
11. december 2007 - 19:31 #3
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 :-)
Avatar billede supertekst Ekspert
11. december 2007 - 20:34 #4
Vender tilbage...
Avatar billede supertekst Ekspert
11. december 2007 - 21:08 #5
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
Avatar billede m221270 Nybegynder
11. december 2007 - 21:48 #6
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?
Avatar billede supertekst Ekspert
11. december 2007 - 22:05 #7
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..
Avatar billede m221270 Nybegynder
11. december 2007 - 22:15 #8
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
Avatar billede m221270 Nybegynder
11. december 2007 - 22:21 #9
SUPERTEKST Vil du ikke lave et svar så jeg kan give dig point?
Avatar billede supertekst Ekspert
11. december 2007 - 22:28 #10
Selv tak - en fornøjelse...

Det gør jeg så hermed!
Avatar billede supertekst Ekspert
10. januar 2008 - 13:18 #11
lukketid?
Avatar billede supertekst Ekspert
09. marts 2008 - 23:43 #12
????
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester