Col metodo GetOpenFileName.
Ad esempio:
- Codice: Seleziona tutto
FILE_DA_APRIRE = Application.GetOpenFilename("CSV Files (*.csv), *.csv", , "Choose file(s) to process!", "Done", MultiSelect:=True)
If FILE_DA_APRIRE = False then GoTo FINE Se l'utente non seleziona alcun file, usciamo dalla routine)
Per le spiegazioni dei parametri, ti rimando alla Guida di Excel.
Solo qualche nota sulla proprietà Multi Select (vedi Guida):
- Se MultiSelect = False, FILE_DA_APRIRE sarà una stringa.
- Se MultiSelect = True, FILE_DA_APRIRE sarà un array che contiene tanti valori quanti sono i file selezionati (le posizioni dell'array sono numerate a partire da 1).
Altro punto "spinoso" sono i cosiddetti "File Filter" ovvero le stringhe che si devono usare per fare in modo che la finestra di selezione file contenga solo fiel di un certo tipo. Non dovresti aver problemi nel sostituire le stringhe dell'esempio con quelle che ti servono. Se comunque cerchi nel forum ne troverai sicuramente altri.
Ciao!
MAx