Mange brukere må raskt liste alle filene i en Windows-mappe og alle undermappene i et Excel-regneark. Derfor vil vi i denne artikkelen introdusere deg 3 raske måter å realisere det på.
Hvis du vil rekursivt liste alle filene i en Windows-mappe i et Excel-regneark, vil du garantert mislike å kopiere filnavnene til Excel manuelt. Det er utvilsomt for kjedelig og tidkrevende. Derfor vil vi her lære deg 3 mye smartere og mer praktiske tilnærminger
Metode 1: List filer i en Windows-mappe via Firefox eller Google Chrome
- Først av, i Windows Utforsker, gå til den spesifikke Windows-mappen og kopier mappebanen.
- Start deretter Firefox eller Google Chrome.
- Deretter limer du inn den kopierte mappebanen i adressefeltet til nettleseren.
- Etter det, trykk "Enter"-tasten.
- På en gang vil alle filene i denne Windows-mappen bli oppført i nettleseren.
- Trykk deretter "Ctrl + A" for å velge alt innhold og ""Ctrl + C"" for å kopiere dem.
- Til slutt limer du dem inn i et Excel-regneark.
Metode 2: List filer i en Windows-mappe via "Name Manager"
- Opprett først et nytt Excel-regneark.
- Deretter velger du celle A1.
- Deretter går du til "Formler"-fanen og klikker på "Navnebehandling" -knappen.
- I popup-dialogboksen klikker du på "Ny"-knappen.
- Deretter, i den neste dialogboksen, skriv inn "Filer" i "Navn"-feltet.
- Og endre "=Ark1!$A$1" til "=FILER(Ark1!$A$1)" i "Refererer til:"-feltet.
- Klikk deretter "OK" og lukk dialogboksen "Navnebehandling".
- Senere kopierer du Windows-mappebanen i celle A1 og legger til "\*” på slutten av banen.
- Velg deretter celle A3 og skriv inn funksjonen "=INDEKS(Filer, RAD()-2)".
- Med en gang vil en fil i denne Windows-mappen bli oppført, som følgende bilde.
- Til slutt, bare kopier denne funksjonen ned flere rader for å liste de andre filene til du ser "#REF!" feil. Feilen betyr at alle filene er oppført.
Metode 3: List filer rekursivt i en Windows-mappe via Excel VBA
- For somtart, opprett en ny Excel-fil.
- Deretter får du tilgang til Excel VBA-editor med referanse til "Hvordan kjøre VBA-kode i Excel".
- Kopier deretter følgende kode inn i "ThisWorkbook"-prosjektet.
Sub BatchListAllFiles_FolderSubfolders() Dim strWindowsFolder As String 'Velg kilden for Windows-mappen med Application.FileDialog(msoFileDialogFolderPicker) .InitialFileName = Application.DefaultFilePath & "\" .Title = "Vennligst velg en mappe. =I første filnavn:EFileName" \" .Show If .SelectedItems.Count > 0 Deretter strWindowsFolder = .SelectedItems(1) & "\" End If End With With ActiveSheet .Cells(1, 1) = "Name" .Cells(1, 1).Font. Fet = True .Cells(1, 2) = "Path" .Cells(1, 2).Fet.Fet = True .Cells(1, 3) = "Størrelse(Bytes)" .Cells(1, 3).Fetskrift .Fet = Sant .Cells(1, 4) = "Type" .Cells(1, 4).Fet.Fet = Sant .Cells(1, 5) = "Opprettet" .Cells(1, 5).Fetskrift = True End With Call 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") =Set objFileSystemObject. GetFolder(strFolderPath) For hver objFile I objFolder.Files With 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"). Autotilpass avsluttes med neste 'Behandle alle mapper og undermapper rekursivt Hvis objFolder.SubFolders.Count > 0 Så For hver objSubFolder I objFolder.SubFolders 'Hopp over systemet og skjulte mapper If ((objSubFolder) Attributter And 2) = 0) And ((objSubFolder.Attributes And 4) = 0) Then LoopFolders (objSubFolder.Path) End If Next End If End Sub
- Klikk nå inn i den første subrutinen og trykk "F5"-tasten.
- I popup-dialogboksen, naviger til og velg en Windows-mappe som du vil vise filer fra, og klikk "OK".
- Til slutt, når makroen er ferdig, gå tilbake til Excel-regnearket. Alle filene i Windows-mappen og dens undermapper er oppført, som vist i følgende skjermbilde.
Excel krasjer fra tid til annen
Som annen programvare kan Excel krasje nå og da, noe som direkte kan ødelegge den åpne Excel-filen. I slike tilfeller vil et flertall av brukerne håpe at Excel kan automatisk gjenopprette filen på restart. Men oftere enn er ikke virkeligheten som du forventer. Da ville det være viktig å ty til en Excel reparasjon verktøy, som DataNumen Excel Repair.
Forfatterintroduksjon:
Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert gjenopprette mdf og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med