Procedura: Inserire contenuto cartella in un foglio di lavoro in Excel per Mac

In questo articolo viene descritto come per creare una Microsoft Visual Basic per Applications macro che stampa il contenuto di una cartella (directory) a un intervallo di celle in un foglio di lavoro.

Clausola di codice di macro

Microsoft fornisce esempi di programmazione a scopo puramente illustrativo, senza alcuna garanzia espressa o implicita. Questo include, ma non è limitato a, le garanzie implicite di commerciabilità o idoneità per uno scopo specifico. Questo articolo si presuppone che conosca il linguaggio di programmazione in questione e gli strumenti utilizzati per creare ed eseguire il debug di procedure. Tecnici del supporto Microsoft possono spiegare la funzionalità di una particolare procedura, ma in nessun sono caso a modificare questi esempi per fornire funzionalità aggiuntive o creare procedure per soddisfare specifiche esigenze.

Come creare e utilizzare la macro

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. Scegliere macro dal menu Strumenti , quindi Visual Basic Editor .
3. Scegliere modulo dal menu Inserisci .
4. Digitare il seguente codice nel modulo:

   Sub Print_Dir_Contents()
   
      Dim Input_Dir, Print_File As String
   
      Input_Dir = InputBox("Type the path that contains the files you " & _
          "want to list in your worksheet." & Chr(13) & Chr(13) & _
          "For example, type <HD>:Documents:Microsoft User Data:") & Chr(13) & _
          "where <HD> is the name of your hard disk." & _
          & Chr(13) & Chr(13) & _
          "Be sure to include the colon (:) at the end of the path " & _
          "as in the example.")
      ' This code displays an input box in which you type the path
      ' to the folder for which you want to create a folder listing.
   
      If Input_Dir = "" Then Exit Sub
      ' If nothing is typed in the input box, the macro quits.
   
      Print_File = Dir(Input_Dir, MacID("TEXT"))
      ' For more information about MacID, please see Visual Basic Help.
   
      Range("a1").Select
      ' Select the first cell in the worksheet.
   
      Counter = 1
      ' Set the counter to 1.
   
      Do While Len(Print_File) > 0
          Worksheets(ActiveSheet.Name).Cells(Counter, 1).Value = _
              Print_File
          Print_File = Dir()
          Counter = Counter + 1
      Loop
      ' This routine inserts the found file names into the worksheet.
   
   End Sub
   					

5. Dal menu file , scegliere Chiudi e torna a Microsoft Excel .
6. Scegliere macro dal menu Strumenti , quindi macro .
7. In Nome Macro , fare clic su Print_Dir_Contents e quindi fare clic su Esegui .

Per ulteriori informazioni sulle risorse di programmazione di macro, fare clic sul numero dell'articolo della Microsoft Knowledge Base riportato di seguito: