Creare una struttura di directory da un foglio Excel

[Extrude]

Ciao a tutti.... eccomi di nuovo con una domanda "strana"....

mi servirebbe una macro in grado di far leggere (partendo dalla seconda riga) i dati contenuti nelle varie celle muovendosi in orizzontale (tra le varie colonne da sinistra verso destra)....
...quando trova un determinato carattere (ad esempio un #) in una di queste celle fa una "foto" (concatenando i valori)contenuti nelle celle precedenti (della stessa riga) e passa questo valore ad una Variabile dopodiche' continua a controllare le righe successive.

Il tutto mi servirebbe per creare una struttura di directory e sottodirectory che rispecchino quanto scritto nel foglio excel

Esempio:
nella Riga 1 i nomi dei vari livelli di profondita' (1st LEV, 2nd LEV, 3rd LEV, etc.... fino a X LEV che e' variabile)
nella Riga 2 ho una serie di nomi (delle directory):
A2= C:\
B2= Topolino\
C2= Pluto\
D2= #
il valore della Variabile (che creera' la directory con un MkDir) prima di passare alla verifica della riga successiva dovra' essere: C:\Topolino\Pluto\
A3= C:\
B3= Topolino\
C3= Paperino\
D3= Qui\
F3= #
il valore della Variabile (che creera' la directory con un MkDir) prima di passare alla verifica della riga successiva dovra' essere: C:\Topolino\Paperino\Qui\
A3= C:\
B3= Topolino\
C3= Paperino\
D3= Quo\
F3= #
il valore della Variabile (che creera' la directory con un MkDir) prima di passare alla verifica della riga successiva dovra' essere: C:\Topolino\Paperino\Quo\
etc... etc....

il tutto dovra' funzionare per un numero di Righe e Colonne che potranno variare nel tempo

Sono certo che tra di voi "Maghi delle Macro" riuscirete in un battibaleno a trovare la risposta alla mia "strana" domanda

GRAZIE in anticipo

[Flash30005]

Prova questa macro:

Codice: Seleziona tutto

Sub CreaPercorso()
Dim VettP(10000) As String '<<<< qui dichiari il massimo delle righe
UR = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
For RR = 2 To UR
UC = Worksheets("Foglio1").Range("IV" & RR).End(xlToLeft).Column
    For CC = 1 To UC - 1
    VettP(RR) = VettP(RR) & Cells(RR, CC)
    Next CC
    MsgBox VettP(RR)  '<<< qui puoi creare la directory
Next RR
End Sub

Ciao

[Extrude]

GRANDE.....

ne ero certo che una soluzione me la trovavi anche questa volta Flash.....

ma posso sapere che cosa fa memorizzare il valore dei vari contenuti delle singole celle nella Variabile?
non riesco a capire il codice.... magari mi torna utile per altri lavoretti del genere dove devo memorizzare il contenuto di più celle

Grazie ancora

[maxmula]

Codice: Seleziona tutto

(...)
    For CC = 1 To UC - 1
    VettP(RR) = VettP(RR) & Cells(RR, CC)
    Next CC


Ciao

Mi permetto una (minuscola) rettifica: il percorso andrebbe creato interponendo un "backslash" tra un nome e l'altro... altrimenti non sarebbe correttamente formato.

Il codice proposto da Flash dovrebbe quindi diventare così:

Codice: Seleziona tutto

    VettP(RR) = VettP(RR) & "\" & Cells(RR, CC)


Ciao!
MAx

[Flash30005]

Mi sembrava di aver capito che Extrude avesse già inserito nelle celle il "backslash"

nella Riga 2 ho una serie di nomi (delle directory):
A2= C:\
B2= Topolino\
C2= Pluto\
D2= #

Ciao

[maxmula]

Ops... mi sa che hai ragione!
Ho preso i dati dal mio foglio di prova... dove ovviamente non li avevo messi!

MAX

[Extrude]

ok ragazzi..... non litigate per questo.....

siete davvero grandi comunque.....

PS: ho fatto una piccola modifica in modo che si possano creare le directory partendo da dove risiede il Workbook in modo che non ci si possa sbagliare.....

un grazie ancora

[maxmula]

ok ragazzi..... non litigate per questo.....

Su questo puoi stare più che tranquillo!
Se c'è una cosa che mi piace di pc-facile è proprio il bassissimo numero di flame!

MAx

[Flash30005]

Lungi da me pensare di litigare (ci mancherebbe!)

Solo che distrazioni possono capitare ed è giusto fare le osservazioni
L'intervento di Maxmula è giusto perché nelle macro è d'obbligo inserire il backslash (specialmente alla fine del percorso)

Io stesso nei miei primi approcci pensavo che definire la variabile:
perc = "C:\Miadirectory"
fosse corretta
mentre mi andava sempre in errore
e da allora, cerco di non ricadere nell'errore
quindi la discussione sarà senz'altro utile a tutti coloro che leggono ma non intervengono

Ciao