[Excel] Creazione cartelle con VBA

[abbasar]

Ciao a tutti
complimenti per il forum
ho bisogno di aiuto
vorrei creare una macro che mi permetta di salvare il file con cui sto lavorando in un determinato percorso descritto sul foglio di lavoro nella cella "K48" con il nome del file in "K4"

Codice: Seleziona tutto

Sub CreazPercNuovoPreventivo()
    Dim Percorso As String
    Dim NomeFile As String
    Percorso = p.Cells(48, 11).Value
    NomeFile = p.Cells(4, 11).Value
   
    ChDir Percorso
    ActiveWorkbook.SaveAs Filename:=NomeFile, FileFormat:=xlNormal, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
End Sub



ma mi va in debug forse manca qualche istruzione
mi potete aiutare
ciao

[maxmula]

Ciao,
solo una domanda: il percorso del file da salvare punta allo stesso drive da cui parte il tuo foglio di calcolo?
Se sono diversi, prova a fare anche un ChDrive prima del ChDir (la lettera del drive la trovi con la funzione LEFT() : è il primo carattere del percorso


Secondo me però è più facile se concateni percorso e nome del file:

Codice: Seleziona tutto

file_da_salvare=Percorso & "\" & NomeFile


Dopodiché procedi con

Codice: Seleziona tutto

 ActiveWorkbook.SaveAs Filename:=file_da_salvare


Spero che questa dritta ti sia utile!
MAx

[sax]

il debug è in

Percorso = p.Cells(48, 11).Value

ciao e grazie

[maxmula]

hmmmm....

Per caso ti dice "Necessario oggetto?"
Credo dipenda da quel p.Cells... Se non hai creato l'oggetto "p" ti esce questo errore.

Non me ne intendo molto di 'ste cose, spero che sul forum ci sia qualcuno più esperto, però se non hai esigenze particolari di utilizzare delle classi, io farei:

Codice: Seleziona tutto

    Percorso = Cells(48, 11).Value
    NomeFile = Cells(4, 11).Value


Ciao,
Max

[Anthony47]

Per quello che vale, sposo le considerazioni di max, sia per la raccomandazione di utilizzare l' istruzione

Codice: Seleziona tutto

file_da_salvare=Percorso & "\" & NomeFile

sia per la spiegazione dell' errore (p e' un oggetto non definito nella macro).

Ultimo consiglio, invece del Cells(x,y) io uso (quasi) sempre
Range("A1").Value
piu' noiosa da scrivere ma piu' leggibile.

Ciao a tutti,

[maxmula]

Ultimo consiglio, invece del Cells(x,y) io uso (quasi) sempre
Range("A1").Value
piu' noiosa da scrivere ma piu' leggibile.

Ciao a tutti,

Hai ragione, è più leggibile, ma la notazione Cells(riga,colonna) ti permette agevolmente di accedere al foglio in modo dinamico senza fare troppe "acrobazie"... specialmente quando devi leggere/scrivere una sequenza di dati.

...Questo, naturalmente, senza voler dare il via ad una inutile & sanguinosa diatriba su quale delle due sia meglio.
Alla fine l'importante è che il programma funzioni, dopotutto!

Ciao,
MAx

[Anthony47]

Questo, naturalmente, senza voler dare il via ad una inutile & sanguinosa diatriba su quale delle due sia meglio

L' ottimo e' sempre nemico del bene.

Ciao.

[maxmula]

Già, ed anni di frequentazione di Usenet prima edi forum poi mi hanno insegnato che è fin troppo facile che qualche "testa calda" legga "Roma" per "Lanterne", si senta toccato nel vivo... e scateni una inutile flame-war.

La mia frasetta aveva proprio questo scopo... sedativo.


Mmmm. L'1:20... Domani si va ancora al lavoro... purtroppo
Sarà meglio andare a nanna!:P

A presto!
MAx