Kaip nukopijuoti visų aplanke esančių failų pavadinimų sąrašą į „Excel“ darbalapį per VBA

Jūsų darbui labai svarbu surinkti visų failų pavadinimus darbalapyje. Šiame straipsnyje pristatysime visų failų pavadinimų įvedimo į darbalapį metodą naudojant VBA makrokomandą.

Ankstesniame mūsų straipsnyje 2 būdai, kaip nukopijuoti visų aplanke esančių failų pavadinimų sąrašą į „Excel“ darbalapį, pristatėme du būdus, kaip įtraukti visus aplanke esančių failų pavadinimus į darbalapį. Ir dabar mes radome kitą metodą. Taip pat galite naudoti VBA makrokomandą, kad užbaigtumėte šią užduotį. Atlikite toliau nurodytus veiksmus ir sužinokite, kaip juo naudotis.

Nukopijuokite visų aplanke esančių failų pavadinimų sąrašą

1. Atidarykite darbaknygę, kurioje turite įvesti failų pavadinimus.
2. Tada paspauskite klaviatūros sparčiuosius klavišus „Alt + F11“, kad atidarytumėte „Visual Basic“ rengyklę.
3. Po to įrankių juostoje spustelėkite skirtuką „Įterpti“.
4. Tada išskleidžiamajame sąraše pasirinkite parinktį „Modulis“. Todėl į redaktorių įdėjote naują modulį.
5. Atlikdami šį veiksmą, nukopijuokite šiuos kodus į naują modulį:

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

Šioje makrokomandoje turite pakeisti tikslinį aplanką pagal savo poreikius. Failų pavadinimus įvesime į A stulpelį darbalapyje. Jei reikia įvesti failų pavadinimus į kitą diapazoną, taip pat galite modifikuoti kodus.

6. Po to paleiskite šią makrokomandą. Norėdami paleisti šią makrokomandą, įrankių juostoje galite spustelėti mygtuką „Run Sub“ arba klaviatūros mygtuką „F5“.
7. Tada grįžkite į darbalapį. Pamatysite, kad visų aplanke esančių failų pavadinimai jau yra A stulpelyje.

Palyginti su kitais dviem straipsnyje aprašytais metodais 2 būdai, kaip nukopijuoti visų aplanke esančių failų pavadinimų sąrašą į „Excel“ darbalapį, pamatysite, kad naudoti VBA makrokomandą yra labai patogu. Tačiau, kita vertus, jei nesate susipažinę su Excel VBA, keisdami kodus susidursite su klaidomis. Todėl pagal savo poreikį galite naudoti vieną iš trijų būdų.

Atkreipkite dėmesį į pavojingą programinę įrangą

Tikrai į savo kompiuterį įdiegsite daug programinės įrangos. Ir tos programos gali labai padėti jūsų darbe. Tačiau kai kurios iš jų yra pavojingos programos. Kai juos įdiegsite savo kompiuteryje, jie rinks jūsų asmeninę informaciją. Dar blogiau, kad jie taip pat sugadins jūsų „Excel“ failus. Šiuo metu nedelsdami pašalinkite pavojingą programinę įrangą. Be to, jums taip pat reikia naudoti atkūrimo įrankį pataisykite sugadintą xlsx failą. Taigi galite įsitikinti, kad jūsų „Excel“ failai yra saugūs.

Autoriaus įvadas:

Anna Ma yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant ištaisyti Word docx failo problemą ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com