Excel VBA: definire la working dir con InputBox

sessione precedente: Excel VBA: salvare file

Gli argomenti di questa sessione:
  • La chiamata ad "InputBox"
  • La chiamata ad "ExitSub"

La "InputBox" puo' essere considerata come una semplice "Userform", cioe' un modulo utilizzando il quale l'utente puo' iteragire con una procedura specificando dei dati "runtime", overo quando la procedura sta girando.

Per vederne una applicazione, consideriamo la sessione Excel VBA: importare Database e apriamo lo sheet di riferimento. Per "working directory", oppure "path" si intende il "percorso" dove risiede il file che devo importare.

a) inseriamo le seguenti righe di codice all'inizio delle procedura "DatabaseImport"
     FolderPath = InputBox("Indicare la working directory:")
      If FolderPath = "" Then Exit Sub
 
b) commentiamo o eliminiamo  la riga di codice seguente
     FolderPath = "D:\Excel VBA - Importare Database"
   



A questo punto la variabile  "FolderPath" sara' gestita dalla chiamata ad "InputBox" e verra' assegnata secondo quanto specificato dall'utente nella apposita Form che compare quando lan
ciamo la procedura, e che ho riportato a lato. Ovviamente la parte di codice che assegnava "FolderPath" all'interno della procedura non va piu' considerata.
L'argomento di InputBox, in questo caso la riga testuale ("Indicare la working directory:") sara' la scritta che comparira' all'interno della nostra UserForm.



Clikkando su "OK" dopo aver inserito il percorso della "working directory" la procedura continua.

Se clikko "OK" ma non ho inserito il percorso la procedura termina ( chiamata ad "Exit Sub").

La procedura termina comunque clikkando "Annulla" indipendentemente dal percorso indicato nella finestra relativa.

sessione successiva: Excel VBA: Ordinare Liste