3 rýchle metódy na rekurzívny výpis všetkých súborov v priečinku Windows v hárku programu Excel

Pridať komentár Obnova súborov programu Excel, Riešenia Excel Môže 25, 2018

Mnoho používateľov musí rýchlo uviesť všetky súbory v priečinku Windows a všetky jeho podpriečinky v pracovnom hárku programu Excel. V tomto článku vám preto predstavíme 3 rýchle spôsoby, ako to realizovať.

Ak chcete rekurzívne zobraziť všetky súbory v priečinku Windows v pracovnom hárku programu Excel, bude sa vám nepáči, že ručne kopírujete názvy súborov do Excelu. Je to nepochybne príliš zdĺhavé a časovo náročné. Preto vás tu naučíme 3 oveľa inteligentnejšie a pohodlnejšie prístupy

Metóda 1: Zoznam súborov v priečinku Windows cez Firefox alebo Google Chrome

  1. Najskôr v Prieskumníkovi Windows otvorte konkrétny priečinok Windows a skopírujte cestu k priečinku.Kopírovať cestu k priečinku
  2. Potom spustite prehliadač Firefox alebo Google Chrome.
  3. Ďalej vložte cestu skopírovaného priečinka do panela s adresou v internetovom prehliadači.
  4. Potom stlačte kláves „Enter“.
  5. V prehliadači sa naraz zobrazia všetky súbory v tomto priečinku Windows.Zoznam súborov vo Firefoxe
  6. Potom stlačte „Ctrl + A“, aby ste vybrali všetok obsah, a „„ Ctrl + C ““, aby ste ich skopírovali.
  7. Nakoniec ich prilepte do hárka programu Excel.Prilepte skopírované súbory zo zoznamu z prehliadača Firefox do programu Excel

Metóda 2: Zoznam súborov v priečinku Windows pomocou aplikácie „Správca mien“

  1. Najskôr vytvorte nový pracovný hárok programu Excel.
  2. Potom vyberte bunku A1.
  3. Ďalej prejdite na kartu „Vzorce“ a kliknite na tlačidlo „Správca mien“.
  4. V rozbaľovacom dialógovom okne kliknite na tlačidlo „Nové“.Meno Manger
  5. Následne v ďalšom dialógovom okne zadajte do poľa „Názov“ „Súbory“.
  6. A v poli „Odkazuje na:“ zmeňte „= List1! $ A $ 1“ na „= SÚBORY (List1! $ A $ 1)“.Nový názov
  7. Potom kliknite na „OK“ a zatvorte dialógové okno „Správca mien“.
  8. Neskôr skopírujte cestu k priečinku Windows v bunke A1 a pridajte „\* “Na konci cesty.Zadajte cestu k priečinku do bunky A1
  9. Ďalej vyberte bunku A3 a zadajte funkciu „= INDEX (súbory, riadok () - 2)“.Vstupná funkcia v bunke A3
  10. Okamžite sa zobrazí zoznam súborov v tomto priečinku Windows, napríklad nasledujúci obrázok.Zobrazí sa súbor
  11. Nakoniec túto funkciu jednoducho skopírujte do niekoľkých riadkov, aby ste zobrazili zoznam ďalších súborov, až kým sa nezobrazí „#REF!“ chyba. Chyba znamená, že boli uvedené všetky súbory.Funkcia kopírovania nadol o niekoľko riadkov, kým sa nezobrazí chyba

Metóda 3: Rekurzívne vypisujte súbory v priečinku Windows pomocou programu Excel VBA

  1. Pre akotart, vytvorte nový súbor programu Excel.
  2. Ďalej prejdite do editora Excel VBA s odkazom na „Ako spustiť kód VBA v programe Excel".
  3. Potom skopírujte nasledujúci kód do projektu „ThisWorkbook“.
Sub BatchListAllFiles_FolderSubfolders () Dim strWindowsFolder ako reťazec 'Vyberte zdrojový priečinok Windows s Application.FileDialog (msoFileDialogFolderPicker) .InitialFileName = Application.DefaultFilePath & "\" .Title = "Vyberte priečinok, do ktorého chcete uviesť zoznam súborov z". "NitialF: \ ".Zobraziť, ak .SelectedItems.Count> 0 Potom strWindowsFolder = .SelectedItems (1) &" \ "Koniec, ak sa skončí s ActiveSheet .Cells (1, 1) =" Názov ".Cells (1, 1). Písmo. Tučné písmo = Pravda. Bunky (1, 2) = "Cesta". Bunky (1, 2). Písmo Bold = Pravda. Bunky (1, 3) = "Veľkosť (bajty)". Bunky (1, 3). Písmo .Bold = True .Cells (1, 4) = "Type" .Cells (1, 4) .Font.Bold = True .Cells (1, 5) = "Vytvorené" .Cells (1, 5) .Font.Bold = Skutočné ukončenie hovoru LoopFolders (strWindowsFolder) End Sub Sub LoopFolders (strFolderPath As String) Dim objFileSystem As Object Dim objFolder As Object Dim objFile As Object Dim nLastRow As Integer Set objFileSystem = CreateObject ("Scripting.FileSystemObject" = GetFolder (strFolderPath) pre každú objFi le V objFolder.Files s ActiveSheet nLastRow = .Range ("A" & .Rows.Count) .End (xlUp) .Row + 1 .Range ("A" & nLastRow) = objFile.Name .Range ("B" & nLastRow) = objFile.Path .Range ("C" & nLastRow) = objFile.Size .Range ("D" & nLastRow) = objFile.Type .Range ("E" & nLastRow) = objFile.DateCreated .Columns ("A" : E "). AutoFit End With Next 'Spracovať všetky priečinky a podpriečinky rekurzívne Ak objFolder.SubFolders.Count> 0 Potom Pre každý objSubFolder V objFolder.SubFolders' Preskočiť systém a skryté priečinky If ((objSubFolder.Attributes And 2) = 0 ) And ((objSubFolder.Attributes And 4) = 0) Then LoopFolders (objSubFolder.Path) End If Next End If End Sub

Kód VBA - rekurzívne zoznam súborov v priečinku Windows

  1. Teraz kliknite na prvý podprogram a stlačte kláves „F5“.
  2. V rozbaľovacom dialógovom okne vyhľadajte a vyberte priečinok Windows, z ktorého chcete zobraziť zoznam súborov, a kliknite na tlačidlo „OK“.Vybrať zložku
  3. Po dokončení makra sa nakoniec vráťte do hárka programu Excel. Všetky súbory v priečinku Windows a jeho podpriečinkoch boli uvedené, ako je znázornené na nasledujúcej snímke obrazovky.Zoznam súborov v programe Excel

Excel občas zlyháva

Rovnako ako iný softvér, aj Excel môže občas zlyhať, čo môže priamo zničiť práve otvorený súbor Excel. V takýchto prípadoch bude väčšina používateľov dúfať, že program Excel dokáže súbor automaticky obnoviť v rozlíšenítart. Realita však nie je taká, akú čakáte. Potom by bolo nevyhnutné uchýliť sa k Excel oprava nástroj, ako DataNumen Excel Repair.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane vymáhať mdf a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S

Nechaj odpoveď

Vaša e-mailová adresa nebude zverejnená. Povinné položky sú označené *