Come elencare tutti i nomi di file in una cartella e creare collegamenti ipertestuali per loro in Excel?
Per il tuo lavoro quotidiano, potresti dover importare più nomi di file da una cartella a un foglio di lavoro e creare collegamenti ipertestuali per ogni file in modo da aprire il file rapidamente e facilmente. Forse, puoi copiare e incollare i nomi dei file e creare un collegamento ipertestuale uno per uno manualmente, ma questo farà perdere molto tempo se ci sono centinaia di file nella cartella. Oggi parlerò di alcuni metodi rapidi e interessanti per affrontare questo lavoro.
Elenca tutti i nomi di file in una cartella e crea collegamenti ipertestuali con codice VBA
Elenca tutti i nomi di file in una cartella e crea collegamenti ipertestuali con Kutools per Excel
Elenca tutti i nomi di file in una cartella e crea collegamenti ipertestuali con codice VBA
Per elencare e creare collegamenti ipertestuali con file da una cartella, il seguente codice VBA può farti un favore.
1. Attiva un nuovo foglio di lavoro per inserire il risultato.
2. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.
3. Clic inserire > Modulie incolla il codice seguente nel file Moduli Finestra.
VBA: elenca tutti i nomi di file in una cartella e crea collegamenti ipertestuali
Sub Example1()
'Updateby Extendoffice
Dim xFSO As Object
Dim xFolder As Object
Dim xFile As Object
Dim xFiDialog As FileDialog
Dim xPath As String
Dim I As Integer
Set xFiDialog = Application.FileDialog(msoFileDialogFolderPicker)
If xFiDialog.Show = -1 Then
xPath = xFiDialog.SelectedItems(1)
End If
Set xFiDialog = Nothing
If xPath = "" Then Exit Sub
Set xFSO = CreateObject("Scripting.FileSystemObject")
Set xFolder = xFSO.GetFolder(xPath)
For Each xFile In xFolder.Files
I = I + 1
ActiveSheet.Hyperlinks.Add Cells(I, 1), xFile.Path, , , xFile.Name
Next
End Sub
4. Quindi premere F5 chiave per eseguire questo codice e scegliere la cartella in cui si desidera elencare i file dal Scopri la nostra gamma di prodotti finestra, vedi screenshot:
5. Dopo aver specificato la cartella, fare clic su OK pulsante e tutti i file nella cartella specifica sono stati elencati nel foglio di lavoro attivo con collegamenti ipertestuali, vedi screenshot:
Note:: Se sono presenti sottocartelle nella cartella specifica, i file nelle sottocartelle non verranno elencati.
Elenca tutti i nomi di file in una cartella e crea collegamenti ipertestuali con Kutools per Excel
Per elencare tutti i file sia in una cartella che nelle sue sottocartelle e creare collegamenti ipertestuali per ogni file, Kutools for Excel'S Elenco nomi file potrebbe farti un favore. Con questa funzione, tutti i file nella cartella e nelle sottocartelle verranno elencati contemporaneamente con alcuni attributi, come il nome del file, la dimensione del file, l'ora di creazione, la cartella contenente e così via.
Kutools for Excel : con oltre 300 utili componenti aggiuntivi di Excel, da provare gratuitamente senza limitazioni in 30 giorni. |
Se hai installato Kutools for Excel, eseguire i seguenti passaggi:
1. Clic Kutools Plus > Importa ed esporta > Elenco nomi file, vedi screenshot:
2. Nel Elenco nomi file finestra di dialogo, eseguire le seguenti operazioni:
(1.) Fare clic su pulsante per selezionare la cartella in cui si desidera elencare i nomi dei file;
(2.) Controllare Includi file nelle sottodirectory se vuoi elencare i nomi dei file all'interno delle sottocartelle, seleziona Includi file e cartelle nascosti se vuoi elencare i file nascosti;
(3.) Specificare i tipi di file che si desidera trovare ed elencare sotto Tipo di file sezione;
(4.) Selezionare l'unità di dimensione del file che si desidera visualizzare;
(5.) Controllare Crea collegamenti ipertestuali nella parte inferiore sinistra della finestra di dialogo.
3. Quindi fare clic Ok pulsante e tutti i file nella cartella e nelle sottocartelle sono stati elencati in un nuovo foglio di lavoro con i collegamenti ipertestuali di cui hai bisogno, vedi screenshot:
Fare clic per conoscere ulteriori dettagli sull'utilità Elenco nomi file ...
Scarica e prova gratuitamente Kutools per Excel ora!
Demo: elenca tutti i nomi di file in una cartella e crea collegamenti ipertestuali con Kutools per Excel
Articolo correlato:
Come elencare tutti i file nella cartella e nelle sottocartelle in un foglio di lavoro?
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!