Selezione da tastiera percorso in cui salvare tanti file

[umaga]

Ciao,
avrei una domanda per voi...
Per motivi che non sto qui a spiegare, nella realizzazione di una macro in Excel che salva dei file txt ho una situazione di questo tipo:


Dato che:
- i file da salvare sono tanti
- voglio che siano salvati con i nomi che dico io
- dispongo già tali nomi sotto forma di strighe

Voglio chiedere da tastiera - una volta per tutte - il "percorso" comune in cui voglio salvare dei file. Dove per percorso intendo un qualcosa del tipo "C:\Progetti\2010\Agosto\". Senza cioè il nome del file, che come detto sarebbe troppo lungo impostare per tutti quanti i file che devo creare, visto che sono tanti.
Grazie mille, spero di essermi spiegato bene. Ciao

[maxmula]

Assicurati di aver visualizzato la barra "Strumenti di Controllo"; da lì crea un pulsante sul tuo foglio (io l'ho chiamato PICK_OUTPUTPATH) ed assegnagli il seguente codice:

Codice: Seleziona tutto

Private Sub PICK_OUTPUTPATH_Click()
    CURRENTFOLDER = CurDir
    SETFOLDER = Range("H27").Value
   
    a = APRI_FOLDER(SETFOLDER, "Select OUTPUT Folder")
    If a <> False Then
        Range("H27").Formula = a
    End If
End Sub


Quest è invece la funzione APRI_FOLDER (che ti conviene salvare in un modulo a parte):

Codice: Seleziona tutto

Function APRI_FOLDER(INITIALPATH, Optional WINDOW_TITLE = "Select folder")
'PRESO IN DIRETTA DALLA gUIDA DI eXCEL
'Stop
   PERCORSO = CurDir
    'VEDIAMO SE LA CARTELLA ESISTE
     P = CHECK_PATH(INITIALPATH, True)
    ChDir (P & "\")
   Dim lngCount As Long

    ' Open the file dialog
   ' Application.FileDialog(msoFileDialogFolderPicker).

    With Application.FileDialog(msoFileDialogFolderPicker)
        .AllowMultiSelect = False
        .Title = "Select folder"
        .InitialFileName = INITIALPATH
        .InitialView = msoFileDialogViewDetails
        .ButtonName = "Select this folder"
        .Show ' Display paths of each file selected
        For lngCount = 1 To .SelectedItems.Count
            SCELTA = .SelectedItems(lngCount)
        Next lngCount

    End With
   
    ChDir (PERCORSO)
       
    If SCELTA = "" Then SCELTA = INITIALPATH
   
    If Right(SCELTA, 1) <> "\" Then SCELTA = SCELTA & "\"
   
    APRI_FOLDER = SCELTA

End Function


Nella mia macro il percorso viene salvato in cella H27... ovviamente dovrai sostituire questo indirizzo con uno che ti fa comodo.

Ciao!
MAx

[maxmula]

Dimenticavo: per salvare i file di testo ti sarà sufficiente concatenare il percorso di default col nome file (ricordati di aggiungere un carattere "\" tra il percorso ed il nome file!)

Ciao,
MAx