Jak skopiować listę wszystkich nazw plików w folderze do arkusza programu Excel za pośrednictwem VBA

Podziel się teraz:

Zebranie wszystkich nazw plików w arkuszu jest bardzo ważne w pracy. W tym artykule przedstawimy metodę wprowadzania wszystkich nazw plików do arkusza za pomocą makra VBA.

W naszym poprzednim artykule 2 Metody kopiowania listy wszystkich nazw plików w folderze do arkusza programu Excel, wprowadziliśmy dwie metody wyświetlania wszystkich nazw plików w folderze w arkuszu. A teraz znaleźliśmy inną metodę. Możesz także użyć makra VBA, aby zakończyć to zadanie. Wykonaj poniższe czynności i zobacz, jak z niego korzystać.

Skopiuj listę wszystkich nazw plików w folderze

  1. Otwórz skoroszyt, w którym chcesz wprowadzić nazwy plików.
  2. Następnie naciśnij klawisze skrótu „Alt + F11” na klawiaturze, aby otworzyć edytor Visual Basic.
  3. Następnie kliknij zakładkę „Wstaw” na pasku narzędzi.
  4. Następnie wybierz opcję „Moduł” z rozwijanej listy. Dlatego dodałeś nowy moduł do edytora.Wstaw moduł
  5. W tym kroku skopiuj następujące kody do nowego modułu:
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

W tym makro musisz zmienić folder docelowy zgodnie z rzeczywistymi potrzebami. Wprowadzimy nazwy plików do kolumny A w arkuszu kalkulacyjnym. Jeśli potrzebujesz wprowadzić nazwy plików do innego zakresu, możesz również zmodyfikować kody.

  1. Następnie uruchom to makro. Możesz kliknąć przycisk „Uruchom sub” na pasku narzędzi lub nacisnąć przycisk „F5” na klawiaturze, aby uruchomić to makro.
  2. Następnie wróć do karty pracy. Przekonasz się, że wszystkie nazwy plików w folderze pojawiły się już w kolumnie A.Wynik

W porównaniu z pozostałymi dwiema metodami w artykule 2 Metody kopiowania listy wszystkich nazw plików w folderze do arkusza programu Excel, przekonasz się, że używanie makra VBA jest bardzo wygodne. Z drugiej jednak strony, jeśli nie znasz Excela VBA, podczas modyfikacji kodów spotkasz się z błędami. Dlatego możesz użyć jednej z trzech metod zgodnie z rzeczywistą potrzebą.

Zwróć uwagę na niebezpieczne oprogramowanie

Z pewnością zainstalujesz wiele programów na swoim komputerze. A te aplikacje mogą ci bardzo pomóc w pracy. Jednak niektóre z nich to niebezpieczne aplikacje. Po zainstalowaniu ich na komputerze będą zbierać Twoje dane osobowe. Co gorsza, twoje pliki Excela również zostaną przez nie uszkodzone. W tej chwili natychmiast odinstaluj niebezpieczne oprogramowanie. Poza tym musisz także użyć narzędzia do odzyskiwania napraw uszkodzony plik xlsx. W ten sposób możesz mieć pewność, że Twoje pliki Excela są bezpieczne.

Wprowadzenie autora:

Anna Ma jest ekspertem ds. Odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym napraw problem z plikiem Word docx i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com

Podziel się teraz:

Możliwość dodawania komentarzy nie jest dostępna.