Как да копирате списъка с всички имена на файлове в папка в работен лист на Excel чрез VBA

Събирането на всички имена на файлове в работен лист е много важно за вашата работа. В тази статия ще представим метод за въвеждане на всички имена на файлове в работен лист с помощта на макрос VBA.

В предишната ни статия 2 метода за копиране на списъка с всички имена на файлове в папка във вашия работен лист на Excel, въведохме два метода за изброяване на всички имена на файлове в папка в работен лист. И сега намерихме друг метод. Можете също да използвате макроса VBA, за да завършите тази задача. Следвайте стъпките по-долу и вижте как да го използвате.

Копирайте списъка с всички имена на файлове в папка

1. Отворете работната книга, която трябва да въведете имената на файловете.
2. И след това натиснете клавишните комбинации „Alt + F11“ на клавиатурата, за да отворите редактора на Visual Basic.
3. След това щракнете върху раздела „Вмъкване“ в лентата с инструменти.
4. След това изберете опцията „Модул“ от падащия списък. Следователно, вие сте вмъкнали нов модул в редактора.
5. В тази стъпка копирайте следните кодове в новия модул:

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

В този макрос трябва да промените целевата папка според вашите нужди. И ние ще въведем имената на файловете в колона А на работен лист. Ако трябва да въведете имената на файловете в друг диапазон, можете също да промените кодовете.

6. След това стартирайте този макрос. Можете да щракнете върху бутона „Run Sub“ в лентата с инструменти или да натиснете бутона „F5“ на клавиатурата, за да стартирате този макрос.
7. След това се върнете към работния лист. Ще откриете, че всички имена на файлове в папката вече са се появили в колона А.

В сравнение с другите два метода в статията 2 метода за копиране на списъка с всички имена на файлове в папка във вашия работен лист на Excel, ще видите, че използването на макрос VBA е много удобно. От друга страна, обаче, ако не сте запознати с Excel VBA, ще срещнете грешки при модифициране на кодовете. Следователно можете да използвате един от трите метода според вашите реални нужди.

Обърнете внимание на опасния софтуер

Със сигурност ще инсталирате много софтуер във вашия компютър. И тези приложения могат да ви помогнат много в работата. Някои от тях обаче са опасни приложения. След като ги инсталирате на вашия компютър, те ще съберат вашата лична информация. Още по-лошото е, че вашите файлове в Excel също ще бъдат повредени от тях. В този момент незабавно деинсталирайте опасния софтуер. Освен това трябва също да използвате инструмент за възстановяване, за да поправете повредения xlsx файл. По този начин можете да се уверите, че вашите Excel файлове са в безопасност.

Въведение на автора:

Ана Ма е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително поправяне на проблем с Word docx файл и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com