Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Creare una struttura di directory da un foglio Excel

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Creare una struttura di directory da un foglio Excel

Postdi Extrude » 05/07/10 07:18

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
Extrude
Utente Junior
 
Post: 28
Iscritto il: 19/06/10 07:37

Sponsor
 

Re: Creare una struttura di directory da un foglio Excel

Postdi Flash30005 » 05/07/10 12:27

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
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Creare una struttura di directory da un foglio Excel

Postdi Extrude » 05/07/10 15:25

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
Extrude
Utente Junior
 
Post: 28
Iscritto il: 19/06/10 07:37

Re: Creare una struttura di directory da un foglio Excel

Postdi maxmula » 06/07/10 14:59

Flash30005 ha scritto:
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
Avatar utente
maxmula
Utente Senior
 
Post: 965
Iscritto il: 18/08/04 18:28
Località: N44°59'45 E09°00'34

Re: Creare una struttura di directory da un foglio Excel

Postdi Flash30005 » 06/07/10 15:42

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

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


Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Creare una struttura di directory da un foglio Excel

Postdi maxmula » 06/07/10 15:49

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

MAX
Avatar utente
maxmula
Utente Senior
 
Post: 965
Iscritto il: 18/08/04 18:28
Località: N44°59'45 E09°00'34

Re: Creare una struttura di directory da un foglio Excel

Postdi Extrude » 06/07/10 16:30

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
Extrude
Utente Junior
 
Post: 28
Iscritto il: 19/06/10 07:37

Re: Creare una struttura di directory da un foglio Excel

Postdi maxmula » 06/07/10 18:52

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
Avatar utente
maxmula
Utente Senior
 
Post: 965
Iscritto il: 18/08/04 18:28
Località: N44°59'45 E09°00'34

Re: Creare una struttura di directory da un foglio Excel

Postdi Flash30005 » 06/07/10 20:57

Lungi da me pensare di litigare (ci mancherebbe!) :lol: :lol: :lol:

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
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-


Torna a Applicazioni Office Windows


Topic correlati a "Creare una struttura di directory da un foglio Excel":


Chi c’è in linea

Visitano il forum: Nessuno e 13 ospiti