Paano Kopyahin ang Listahan ng Lahat ng Mga Pangalan ng File sa isang Folder sa Excel Worksheet sa pamamagitan ng VBA

Ang pagkolekta ng lahat ng mga pangalan ng file sa isang worksheet ay napakahalaga sa iyong trabaho. Sa artikulong ito, ipapakilala namin ang isang paraan upang maipasok ang lahat ng mga pangalan ng file sa isang worksheet sa pamamagitan ng paggamit ng VBA macro.

Sa aming nakaraang artikulo 2 Paraan para Kopyahin ang Listahan ng Lahat ng Mga Pangalan ng File sa isang Folder sa Iyong Excel Worksheet, nagpakilala kami ng dalawang paraan upang ilista ang lahat ng mga pangalan ng file sa isang folder sa isang worksheet. At ngayon nakahanap kami ng isa pang paraan. Maaari mo ring gamitin ang VBA macro upang tapusin ang gawaing ito. Sundin ang mga hakbang sa ibaba at tingnan kung paano ito gamitin.

Kopyahin ang Listahan ng Lahat ng Mga Pangalan ng File sa isang Folder

1. Buksan ang workbook na kailangan mong ipasok ang mga pangalan ng file.
2. At pagkatapos ay pindutin ang mga shortcut key na "Alt +F11" sa keyboard upang buksan ang Visual Basic editor.
3. Pagkatapos nito, i-click ang tab na "Ipasok" sa toolbar.
4. Susunod na piliin ang opsyon na "Module" sa drop-down na listahan. Samakatuwid, nagpasok ka ng bagong module sa editor.
5. Sa hakbang na ito, kopyahin ang mga sumusunod na code sa bagong module:

Sub ListAllFileNames()
  Dim strTargetFolder As String, strFileName As String, nCountItem As Integer

  '  Initialization
  nCountItem = 1
  strTargetFolder = "C:\Users\Sample\Desktop\Sales Volume" & "\"
  strFileName = Dir(strTargetFolder, vbDirectory)

  '  Get the file name
  Do While strFileName <> ""
    If strFileName <> "." And strFileName <> ".." Then
      Cells(nCountItem, 1) = strFileName
      nCountItem = nCountItem + 1
    End If
    strFileName = Dir
  Loop
End Sub

Sa macro na ito, kailangan mong baguhin ang target na folder ayon sa iyong aktwal na pangangailangan. At ilalagay natin ang mga pangalan ng file sa column A sa isang worksheet. Kung kailangan mong ilagay ang mga pangalan ng file sa ibang range, maaari mo ring baguhin ang mga code.

6. Pagkatapos nito, patakbuhin ang macro na ito. Maaari mong i-click ang button na “Run Sub” sa toolbar o pindutin ang button na “F5” sa keyboard para patakbuhin ang macro na ito.
7. Susunod na bumalik sa worksheet. Makikita mo na ang lahat ng mga pangalan ng file sa folder ay lumabas na sa column A.

Kung ikukumpara sa iba pang dalawang pamamaraan sa artikulo 2 Paraan para Kopyahin ang Listahan ng Lahat ng Mga Pangalan ng File sa isang Folder sa Iyong Excel Worksheet, makikita mo na ang paggamit ng VBA macro ay napaka-maginhawa. Gayunpaman, sa kabilang banda, kung hindi ka pamilyar sa Excel VBA, makakatagpo ka ng mga error kapag binago ang mga code. Samakatuwid, maaari mong gamitin ang isa sa tatlong pamamaraan ayon sa iyong aktwal na pangangailangan.

Bigyang-pansin ang Mapanganib na Software

Tiyak na mag-i-install ka ng maraming software sa iyong computer. At malaki ang maitutulong ng mga application na iyon sa iyong trabaho. Gayunpaman, ang ilan sa mga ito ay mapanganib na mga aplikasyon. Kapag na-install mo ang mga ito sa iyong computer, kukunin nila ang iyong personal na impormasyon. Ang masama pa, ang mga Excel files mo ay masisira din nila. Sa sandaling ito, i-uninstall kaagad ang mapanganib na software. Bukod, kailangan mo ring gumamit ng tool sa pagbawi upang ayusin ang nasira na xlsx file. Kaya, maaari mong tiyakin na ang iyong mga Excel file ay ligtas.

Panimula ng May-akda:

Si Anna Ma ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang ayusin ang problema sa Word docx file at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa