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