3 Excel Worksheet ရှိ Windows Folder တွင် ဖိုင်အားလုံးကို ထပ်တလဲလဲ စာရင်းသွင်းရန် အမြန်နည်းလမ်းများ

အသုံးပြုသူအများအပြားသည် Windows ဖိုင်တွဲတစ်ခုရှိ ဖိုင်များအားလုံးကို အမြန်စာရင်းပြုစုရန်နှင့် ၎င်း၏ဖိုင်တွဲခွဲများအားလုံးကို Excel worksheet တစ်ခုတွင် အမြန်စာရင်းသွင်းရန် လိုအပ်ပါသည်။ ထို့ကြောင့်၊ ဤဆောင်းပါးတွင်၊ ၎င်းကိုနားလည်ရန် လျင်မြန်သောနည်းလမ်း ၃ ခုကို မိတ်ဆက်ပေးပါမည်။

အကယ်၍ သင်သည် Excel အလုပ်စာရွက်ရှိ Windows ဖိုင်တွဲရှိ ဖိုင်အားလုံးကို ထပ်တလဲလဲ စာရင်းသွင်းလိုပါက၊ ဖိုင်အမည်များကို Excel သို့ ကိုယ်တိုင်ကူးယူခြင်းကို သေချာပေါက် မကြိုက်ပါ။ သံသယဖြစ်စရာ၊ ၎င်းသည် ပျင်းရိပြီး အချိန်ကုန်လွန်းသည်။ ထို့ကြောင့်၊ ဤတွင် သင့်အား ပိုမိုထက်မြက်ပြီး ပိုမိုအဆင်ပြေစေမည့် နည်းလမ်း ၃ ခုကို သင်ကြားပေးပါမည်။

နည်းလမ်း 1- Firefox သို့မဟုတ် Google Chrome မှတဆင့် Windows Folder တွင် ဖိုင်များကို စာရင်းပြုစုပါ။

1. ပထမဦးစွာ Windows Explorer တွင်၊ သတ်မှတ်ထားသော Windows ဖိုင်တွဲကို ဝင်ရောက်ပြီး ဖိုင်တွဲလမ်းကြောင်းကို ကူးယူပါ။
2. ထို့နောက် Firefox သို့မဟုတ် Google Chrome ကိုဖွင့်ပါ။
3. ထို့နောက်၊ ကူးယူထားသောဖိုင်တွဲလမ်းကြောင်းကို Internet Browser ၏လိပ်စာဘားတွင် ကူးထည့်ပါ။
4. ထို့နောက် "Enter" ခလုတ်ကိုနှိပ်ပါ။
5. တစ်ချိန်တည်းတွင်၊ ဤ Windows ဖိုင်တွဲရှိဖိုင်များအားလုံးကို browser တွင်စာရင်းသွင်းလိမ့်မည်။
6. ထို့နောက် အကြောင်းအရာအားလုံးကို ရွေးချယ်ရန် "Ctrl + A" ကိုနှိပ်ပြီး ၎င်းတို့ကို ကူးယူရန် ""Ctrl + C"။
7. နောက်ဆုံးအနေနဲ့ သူတို့ကို Excel worksheet မှာ paste လုပ်ပါ။

နည်းလမ်း 2- "Name Manager" မှတဆင့် Windows Folder တွင်ဖိုင်များကိုစာရင်းပြုစုပါ။

1. ပထမဦးစွာ Excel worksheet အသစ်တစ်ခုဖန်တီးပါ။
2. ထို့နောက် Cell A1 ကိုရွေးချယ်ပါ။
3. ထို့နောက် "ဖော်မြူလာများ" တက်ဘ်သို့သွားကာ "အမည်မန်နေဂျာ" ခလုတ်ကိုနှိပ်ပါ။
4. ပေါ်လာသော ဒိုင်ယာလော့ဂ်ဘောက်စ်တွင်၊ “အသစ်” ခလုတ်ကို နှိပ်ပါ။
5. ထို့နောက် နောက် dialog box တွင်၊ "Name" အကွက်တွင် "Files" ကိုရိုက်ထည့်ပါ။
6. ပြီးလျှင် “=Sheet1!$A$1” ကို “=FILES(Sheet1!$A$1)” သို့ “ရည်ညွှန်းသည်-” အကွက်သို့ ပြောင်းပါ။
7. ထို့နောက် "OK" ကိုနှိပ်ပြီး "Name Manager" dialog box ကိုပိတ်ပါ။
8. နောက်ပိုင်းတွင် Cell A1 ရှိ Windows ဖိုင်တွဲလမ်းကြောင်းကို ကူးယူပြီး “ထည့်ပါ။\*” လမ်း၏အဆုံးတွင်။
9. ထို့နောက် Cell A3 ကိုရွေးချယ်ပြီး “=INDEX(Files,ROW()-2)” လုပ်ဆောင်ချက်ကို ထည့်သွင်းပါ။
10. တစ်ချိန်တည်းတွင်၊ ဤ Windows ဖိုဒါရှိ ဖိုင်တစ်ခုသည် အောက်ပါပုံကဲ့သို့ပင် စာရင်းဝင်မည်ဖြစ်သည်။
11. နောက်ဆုံးတွင်၊ “#REF!” ကို သင်တွေ့သည်အထိ အခြားဖိုင်များကို စာရင်းပြုစုရန် ဤလုပ်ဆောင်ချက်ကို အတန်းများစွာတွင် ကူးယူပါ။ အမှား။ အမှားအယွင်းက ဖိုင်အားလုံးကို စာရင်းသွင်းပြီးပြီဟု ဆိုလိုသည်။

နည်းလမ်း 3- Excel VBA မှတစ်ဆင့် Windows Folder တွင် ဖိုင်များကို ထပ်ခါတလဲလဲ စာရင်းပြုစုပါ။

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 ဖိုင်တွဲတစ်ခုသို့ သွား၍ "OK" ကိုနှိပ်ပါ။
6. နောက်ဆုံးတွင်၊ macro ပြီးသောအခါ၊ Excel worksheet သို့ပြန်သွားပါ။ Windows ဖိုဒါရှိ ဖိုင်များနှင့် ၎င်း၏ ဖိုင်တွဲခွဲများ အားလုံးကို အောက်ပါ စခရင်ရှော့တွင် ပြထားသည့်အတိုင်း စာရင်းသွင်းထားပါသည်။

Excel သည် ရံဖန်ရံခါ ပျက်ကျတတ်သည်။

အခြားဆော့ဖ်ဝဲများကဲ့သို့ပင် Excel သည် တစ်ခါတစ်ရံတွင် crash ဖြစ်တတ်ပြီး လက်ရှိဖွင့်ထားသော Excel ဖိုင်ကို တိုက်ရိုက်ဖျက်ဆီးနိုင်သည်။ ထိုသို့သောကိစ္စများတွင် အသုံးပြုသူအများစုက Excel သည် restart လုပ်သည့်အခါ ဖိုင်ကို အလိုအလျောက်ပြန်လည်ရယူနိုင်လိမ့်မည်ဟု မျှော်လင့်ကြပါလိမ့်မည်။ သို့သော် အများအားဖြင့် လက်တွေ့တွင် သင်မျှော်လင့်ထားသည့်အတိုင်း မဟုတ်ပါ။ ထို့နောက်တွင်၊ ၎င်းကို အားကိုးရန် အရေးကြီးပါသည်။ Excel ပြုပြင်ခြင်း။ တူးလ်၊ DataNumen Excel Repair.

စာရေးသူနိဒါန်း:

Shirley Zhang သည် ဒေတာပြန်လည်ရယူရေးဆိုင်ရာ ကျွမ်းကျင်သူဖြစ်သည်။ DataNumen, Inc. အပါအဝင် ဒေတာပြန်လည်ရယူရေးနည်းပညာများတွင် ကမ္ဘာ့ခေါင်းဆောင်ဖြစ်သည်။ mdf ကိုပြန်လည်ရယူပါ။ နှင့် outlook ပြုပြင်ရေး software ထုတ်ကုန်များ။ ပိုမိုသိရှိလိုပါကသွားရောက်ကြည့်ရှု www ။datanumen.com