XL: Come collocare il contenuto di una cartella in un foglio di lavoro

In questo articolo viene descritto come creare una macro di Microsoft Visual Basic, Applications Edition che visualizzi il contenuto di una cartella, o directory, in un intervallo di celle di un foglio di lavoro.

Microsoft fornisce esempi di programmazione a scopo puramente illustrativo, senza alcuna garanzia di qualsiasi tipo, sia espressa che implicita, ivi incluse, senza limitazioni, le garanzie implicite di commerciabilità o idoneità per uno scopo particolare. In questo articolo si presume che l'utente conosca il linguaggio di programmazione in questione e gli strumenti utilizzati per creare ed eseguire il debug delle procedure. Gli esperti Microsoft sono autorizzati a fornire spiegazioni in merito alla funzionalità di una particolare procedura, ma in nessun caso a modificare questi esempi per fornire funzionalità aggiuntive o a creare procedure atte a soddisfare specifiche esigenze. Se si dispone di esperienza di programmazione limitata, si consiglia di contattare un Microsoft Certified Partner o la filiale Microsoft locale per informazioni sulla consulenza tecnica. Per ulteriori informazioni in merito ai Microsoft Certified Partner, visitare il seguente sito Web: Per ulteriori informazioni sulle opzioni di supporto disponibili e su come contattare Microsoft, visitare il seguente sito Web Microsoft: Per visualizzare in modo programmatico il contenuto di una cartella in un intervallo di celle di un foglio di lavoro di Excel, attenersi alla seguente procedura:

1. Avviare Excel.
2. Premere ALT+F11 per avviare Visual Basic Editor.
3. Scegliere Modulo dal menu Inserisci.
4. Digitare nel modulo il codice riportato di seguito:

   Sub Print_Dir_Contents()
      Dim Input_Dir, Print_File As String
      Input_Dir = InputBox("Input the path containing the files you " & _
          "want to list on your worksheet" & Chr(13) & Chr(13) & _
          "for example:C:\My Documents\*.*")
      If Input_Dir = "" Then Exit Sub
      ' If you want only to print a specific file type, you can
      ' substitute the "\*.*" with "*\.xl*"
      ' (for Excel files only) for the directory specified in the
      ' InputBox above.
      If Application.OperatingSystem Like "*Win*" Then
         Print_File = Dir(Input_Dir) & "\*.*"
      End If
      Range("a1").Select
      Counter = 1
      Do While Len(Print_File) > 0
          Worksheets(ActiveSheet.Name).Cells(Counter, 1).Value = _
              Print_File
          Print_File = Dir()
          Counter = Counter + 1
      Loop
   End Sub
   

5. Premere ALT+F11 per tornare a Excel.
6. Scegliere Macro dal menu Strumenti, quindi Macro.
7. In Nome macro scegliere Print_Dir_Contents, quindi Esegui.