Excel бағдарламасындағы Windows қалтасындағы барлық файлдарды рекурсивті түрде тізімдеудің 3 жылдам әдістері

Көптеген пайдаланушылар Windows қалтасындағы барлық файлдарды және оның барлық ішкі қалталарын Excel жұмыс парағында жылдам тізімдеуі керек. Сондықтан, осы мақалада біз сіздерге оны жүзеге асырудың 3 жылдам әдісін ұсынамыз.

Егер сіз Excel файлындағы Windows қалтасындағы барлық файлдарды рекурсивті түрде тізімдеуді қаласаңыз, онда файл атауларын Excel-ге қолмен көшіру сізге ұнамайтыны сөзсіз. Бұл тым жалықтыратын және көп уақытты алатыны сөзсіз. Демек, біз сізге 3 ақылды әрі ыңғайлы тәсілді үйретеміз

1-әдіс: Windows қалтасындағы файлдарды Firefox немесе Google Chrome арқылы тізімдеу

1. Алдымен, Windows Explorer-де Windows-тың нақты қалтасына кіріп, қалта жолын көшіріңіз.
2. Содан кейін, Firefox немесе Google Chrome іске қосыңыз.
3. Содан кейін көшірілген қалта жолын Интернет шолғышының мекенжай жолына қойыңыз.
4. Осыдан кейін «Enter» пернесін басыңыз.
5. Бірден, осы Windows қалтасындағы барлық файлдар шолғышта тізімделеді.
6. Содан кейін, барлық мазмұнды таңдау үшін «Ctrl + A» және оларды көшіру үшін «» Ctrl + C »пернелерін басыңыз.
7. Соңында, оларды Excel жұмыс парағына қойыңыз.

2-әдіс: Windows қалтасындағы файлдарды «Name Manager» арқылы тізімдеу

1. Алдымен жаңа Excel жұмыс парағын жасаңыз.
2. Содан кейін A1 ұяшығын таңдаңыз.
3. Әрі қарай, «Формулалар» қойындысына өтіп, «Атаулар менеджері» батырмасын басыңыз.
4. Қалқымалы терезеде «Жаңа» батырмасын басыңыз.
5. Содан кейін келесі диалог терезесінде «Аты» өрісіне «Файлдар» енгізіңіз.
6. «Сілтеме:» өрісіндегі «= Sheet1! $ A $ 1» мәнін «= FILES (Sheet1! $ A $ 1)» деп өзгертіңіз.
7. Осыдан кейін «OK» батырмасын басып, «Name Manager» диалогтық терезесін жабыңыз.
8. Кейін A1 ұяшығына Windows қалтасының жолын көшіріп, «\* »Жолдың соңында.
9. Содан кейін А3 ұяшығын таңдап, «= INDEX (Файлдар, ROW () - 2)» функциясын енгізіңіз.
10. Бірден осы Windows қалтасындағы файл келесі сурет сияқты тізімге енгізіледі.
11. Соңында, осы функцияны бірнеше қатарға көшіріп, «#REF!» Көрінгенше басқа файлдарды тізімге қосыңыз. қате. Қате барлық файлдардың тізімде тұрғанын білдіреді.

3-әдіс: Windows қалтасындағы файлдарды рекурсивті түрде Excel VBA арқылы тізімдеу

1. Бастау үшін жаңа Excel файлын жасаңыз.
2. Содан кейін Excel VBA редакторына «сілтеме жасай отырып кіріңіз.Excel бағдарламасында VBA кодын қалай іске қосуға болады«.
3. Содан кейін келесі кодты «ThisWorkbook» жобасына көшіріңіз.

Sub BatchListAllFiles_FolderSubfolders()
    Dim strWindowsFolder As String
 
    'Select the source Windows folder
    With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = Application.DefaultFilePath & "\"
        .Title = "Please select a folder to list Files from"
        .InitialFileName = "E:\"
        .Show
        If .SelectedItems.Count > 0 Then
           strWindowsFolder = .SelectedItems(1) & "\"
        End If
    End With
 
    With ActiveSheet
         .Cells(1, 1) = "Name"
         .Cells(1, 1).Font.Bold = True
         .Cells(1, 2) = "Path"
         .Cells(1, 2).Font.Bold = True
         .Cells(1, 3) = "Size(Bytes)"
         .Cells(1, 3).Font.Bold = True
         .Cells(1, 4) = "Type"
         .Cells(1, 4).Font.Bold = True
         .Cells(1, 5) = "Created"
         .Cells(1, 5).Font.Bold = 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 objFolder = objFileSystem.GetFolder(strFolderPath)
 
    For Each objFile In 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").AutoFit
       End With
    Next
 
    'Process all folders and subfolders recursively
    If objFolder.SubFolders.Count > 0 Then
       For Each objSubFolder In objFolder.SubFolders
           'Skip the system and hidden folders
           If ((objSubFolder.Attributes And 2) = 0) And ((objSubFolder.Attributes And 4) = 0) Then
              LoopFolders (objSubFolder.Path)
           End If
       Next
    End If
End Sub

4. Енді бірінші ішкі бағдарламаны нұқып, «F5» пернесін басыңыз.
5. Қалқымалы диалог терезесінде файлдарды тізімдейтін Windows қалтасына өтіп, таңдаңыз және «ОК» батырмасын басыңыз.
6. Ақыр соңында, макростер аяқталғаннан кейін, Excel жұмыс парағына оралыңыз. Windows қалтасындағы барлық файлдар және оның ішкі қалталары келесі скриншотта көрсетілгендей тізімге алынды.

Excel мезгіл-мезгіл бұзылады

Басқа бағдарламалық жасақтама сияқты, Excel бағдарламасы да анда-санда істен шығуы мүмкін, бұл ашық тұрған Excel файлын тікелей бұзуы мүмкін. Мұндай жағдайларда пайдаланушылардың көпшілігі Excel қайта іске қосқан кезде файлды автоматты түрде қалпына келтіре алады деп үміттенеді. Дегенмен, көбінесе іс жүзінде бәрі сіз күткендей болмайды. Онда, келесі әдіске жүгіну маңызды болар еді Excel-ді жөндеу сияқты құрал DataNumen Excel Repair.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. mdf қалпына келтіру және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com