[EXCEL] Macro per creazione automatica cartelle

[JOHNNYC]

Ciao a tutti. Oggi ho un nuovo problema...
Devo attivare una macro che mi crei automaticamente, in più percorsi predefiniti, una cartella (vuota) chiamata in un modo specificato all'interno del file di base.
Stò cercando di impostare la macro (vedi sotto) ma prima di lanciarla vorrei un supporto per non creare danni.
Nel file excell di base ho strutturato le colonne in questo modo:

Colonna A: Percorso dove salvare la cartella
Colonna B: Riferimento interno (valore che nell'esecuzione della macro non serve)
Colonna C: NomeCartella

Mi date un supporto?

Grazie come sempre.

Codice: Seleziona tutto

Sub Crea_Cartella_CDO()
'
' Crea_Cartella_CDO Macro
'
Dim Indirizzo As String
Dim NomeCartella As String
UE = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
'
For IE = 2 To UE
Indirizzo = Range("a" & IE).Value
NomeCartella = Range("c" & IE).Value

    Range("A" & IE).Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
ActiveWorkbook.SaveAs Filename:=NomeCartella

Next IE
End Sub

[Flash30005]

Prova questa macro

Codice: Seleziona tutto

Sub Crea_Cartella_CDO()
Dim Indirizzo As String
Dim NomeCartella As String
UE = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row

For IE = 2 To UE
    Indirizzo = Range("a" & IE).value
    NomeCartella = Range("c" & IE).value & ".xls"
    ActiveWorkbook.SaveAs Filename:=Indirizzo & "\" & NomeCartella
Next IE
End Sub


Fai attenzione, in questo modo stai salvando il foglio attivo

Ciao

[JOHNNYC]

Grazie Flash.
Il problema è proprio questo che non voglio salvare il foglio attivo, ma solamente creare una nuova cartella vuota.
Come modifico?

Grazie.
Johnny

[Flash30005]

Beh inizialmente avevo fatto così ma poi tu hai inserito quel codice di salvataggio nomefile (e i file di excel si chiamano anche cartelle (di lavoro)
ho postato la macro sbagliata
prova questa

Codice: Seleziona tutto

Sub Crea_Cartella_CDO()
Dim Indirizzo As String
Dim NomeCartella As String
UE = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
ChDrive "C"

For IE = 2 To UE
Indirizzo = Range("a" & IE).Value
NomeCartella = Range("c" & IE).Value '& ".xls"

If Dir(Indirizzo & NomeCartella, vbDirectory) = "" Then
    MkDir (Indirizzo & NomeCartella)
End If

Next IE
End Sub

Ricorda, in questo caso che nella cella Range("a" & IE).Value i percorsi devono avere il backslash finale
es.:
C:\mionome\data\
altrimenti
se hai il percorso così
C:\mionome\data
il codice di creazione cartella va modificato così

Codice: Seleziona tutto

If Dir(Indirizzo & "\" & NomeCartella, vbDirectory) = "" Then
    MkDir (Indirizzo  & "\" & NomeCartella)
End If

Ciao

Modificata macro che, come dice giustamente JohnnyC nel post successivo, l'estensione .xls non occorre in caso di creazione cartelle (per mia distrazione era rimasta nella riga codice). Ora è commentata.

[JOHNNYC]

Uno spettacolo!!!
Ho solo eliminato l'estenzione & ".xls" in nome cartella, in quanto non serviva.

Grazie.
Johhny

[gaetano73]

Ciao a tutti.

Scusatemi se riprendo un post così vecchio. Allora, ho (ri)utilizzato le macro (modificandone il nome) discusse in questi post. Funzionano benissimo ma la seguente

Codice: Seleziona tutto

Sub Crea_File()
    Dim Indirizzo As String
    Dim NomeCartella As String
    UE = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
   
    For IE = 2 To UE
        Indirizzo = Range("a" & IE).Value
        NomeCartella = Range("c" & IE).Value ' & ".xls"
        ActiveWorkbook.SaveAs Filename:=Indirizzo & "\" & NomeCartella
    Next IE
End Sub


scrive, nel Foglio1 del file creato in automatico, quello che è scritto nel foglio attivo del file che contiene la macro (ovvero, il file di "partenza").
Io avrei però bisogno che il file appena creato fosse vuoto.
Inoltre, avrei bisogno di copiare nel file alcune righe dal file di partenza (un copia e incolla) per esempio dalla 3a alla 10a.

Grazie

Gaetano Scotti

[Anthony47]

Per aggiungere un file vuoto basta usare l' istruzione

Codice: Seleziona tutto

    Workbooks.Add


Per copiare nel primo foglio del nuovo file un range del file di partenza puoi usare qualcosa come

Codice: Seleziona tutto

 ThisWorkbook.Sheets("Foglio1").Range("A1:M10").Copy Destination:=ActiveSheet.Range("A1")


Ciao

[gaetano73]

Perfetto. Workbooks.Add mi crea un file nuovo; siccome avevo bisogno che mi creasse un file nuovo con un certo nome e in un certo percorso l'ho sostituito "Workbooks.Add.SaveAs Filename:= ..."

Codice: Seleziona tutto

Sub Crea_File()
    Dim Indirizzo As String
    Dim NomeCartella As String
    UE = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
   
    For IE = 2 To UE
        Indirizzo = Range("a" & IE).Value
        NomeCartella = Range("c" & IE).Value
        Workbooks.Add.SaveAs Filename:=Indirizzo & "\" & NomeCartella
        ThisWorkbook.Sheets("Foglio1").Range("E5:E10").Copy Destination:=ActiveSheet.Range("A1")
    Next IE
End Sub

Grazie

Gaetano