Hvordan kopiere listen over alle filnavn i en mappe til Excel-regneark via VBA

Excel-løsninger Oktober 3, 2025

Å samle alle filnavnene i et regneark er veldig viktig for arbeidet ditt. I denne artikkelen vil vi introdusere en metode for å legge inn alle filnavnene i et regneark ved å bruke VBA-makro.

I vår forrige artikkel 2 metoder for å kopiere listen over alle filnavn i en mappe til Excel-regnearket, har vi introdusert to metoder for å liste alle filnavnene i en mappe i et regneark. Og nå har vi funnet en annen metode. Du kan også bruke VBA-makroen for å fullføre denne oppgaven. Følg trinnene nedenfor og se hvordan du bruker den.

Kopier listen over alle filnavn i en mappe

  1. Åpne arbeidsboken du trenger for å legge inn filnavnene.
  2. Og trykk deretter på hurtigtastene "Alt + F11" på tastaturet for å åpne Visual Basic-redigeringsprogrammet.
  3. Klikk deretter på fanen "Sett inn" i verktøylinjen.
  4. Velg deretter alternativet "Modul" i rullegardinlisten. Derfor har du satt inn en ny modul i editoren.Sett inn modul
  5. I dette trinnet kopierer du følgende koder til den nye modulen:
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

I denne makroen må du endre målmappen i henhold til ditt faktiske behov. Og vi legger inn filnavnene i kolonne A i et regneark. Hvis du trenger å legge inn filnavnene i et annet område, kan du også endre kodene.

  1. Etter det, kjør denne makroen. Du kan klikke på knappen "Run Sub" i verktøylinjen eller trykke på knappen "F5" på tastaturet for å kjøre denne makroen.
  2. Deretter kommer du tilbake til arbeidsarket. Du vil finne at alle filnavnene i mappen allerede har dukket opp i kolonne A.Resultat

Sammenlignet med de to andre metodene i artikkelen 2 metoder for å kopiere listen over alle filnavn i en mappe til Excel-regnearket, vil du se at det er veldig praktisk å bruke VBA-makro. Men på den annen side, hvis du ikke er kjent med Excel VBA, vil du møte feil når du endrer kodene. Derfor kan du bruke en av de tre metodene i henhold til ditt faktiske behov.

Vær oppmerksom på farlig programvare

Du vil sikkert installere mye programvare på datamaskinen din. Og disse applikasjonene kan hjelpe deg mye i arbeidet ditt. Noen av dem er imidlertid farlige applikasjoner. Når du har installert dem på datamaskinen din, vil de samle inn din personlige informasjon. Hva verre er, Excel-filene dine vil også bli skadet av dem. For øyeblikket avinstallerer du den farlige programvaren umiddelbart. Dessuten må du også bruke et gjenopprettingsverktøy for å reparere skadet xlsx-fil. Dermed kan du sørge for at Excel-filene dine er trygge.

Forfatterintroduksjon:

Anna Ma er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert reparer Word docx-filproblem og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med

Kommentarer er stengt.