Cách sao chép danh sách tất cả tên tệp trong một thư mục vào bảng tính Excel qua VBA

Chia sẻ ngay bây giờ:

Việc thu thập tất cả các tên tệp trong một trang tính là rất quan trọng đối với công việc của bạn. Trong bài viết này, chúng tôi sẽ giới thiệu một phương pháp để nhập tất cả các tên tệp vào một trang tính bằng cách sử dụng macro VBA.

Trong bài viết trước của chúng tôi 2 phương pháp để sao chép danh sách tất cả tên tệp trong một thư mục vào trang tính Excel của bạn, chúng tôi đã giới thiệu hai phương pháp để liệt kê tất cả các tên tệp trong một thư mục vào một trang tính. Và bây giờ chúng tôi đã tìm thấy một phương pháp khác. Bạn cũng có thể sử dụng macro VBA để hoàn thành tác vụ này. Thực hiện theo các bước dưới đây và xem cách sử dụng nó.

Sao chép danh sách tất cả tên tệp trong một thư mục

  1. Mở sổ làm việc mà bạn cần nhập tên tệp.
  2. Và sau đó nhấn các phím tắt “Alt + F11” trên bàn phím để mở trình soạn thảo Visual Basic.
  3. Sau đó, nhấp vào tab “Chèn” trên thanh công cụ.
  4. Tiếp theo chọn tùy chọn “Module” trong danh sách thả xuống. Do đó, bạn đã chèn một mô-đun mới vào trình chỉnh sửa.Chèn mô-đun
  5. Trong bước này, sao chép các mã sau vào mô-đun mới:
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

Trong macro này, bạn cần thay đổi tarnhận thư mục theo nhu cầu thực tế của bạn. Và chúng tôi sẽ nhập tên tệp vào cột A trong một trang tính. Nếu bạn cần nhập tên tệp vào phạm vi khác, bạn cũng có thể sửa đổi mã.

  1. Sau đó, chạy macro này. Bạn có thể nhấp vào nút “Run Sub” trên thanh công cụ hoặc nhấn nút “F5” trên bàn phím để chạy macro này.
  2. Tiếp theo trở lại bảng tính. Bạn sẽ thấy rằng tất cả các tên tệp trong thư mục đã xuất hiện trong cột A.Kết quả

So với hai phương pháp còn lại trong bài viết 2 phương pháp để sao chép danh sách tất cả tên tệp trong một thư mục vào trang tính Excel của bạn, bạn sẽ thấy việc sử dụng VBA macro rất tiện lợi. Tuy nhiên, mặt khác, nếu bạn không quen với Excel VBA, bạn sẽ gặp lỗi khi sửa đổi mã. Do đó, bạn có thể sử dụng một trong ba phương pháp tùy theo nhu cầu thực tế của mình.

Chú ý đến phần mềm nguy hiểm

Bạn chắc chắn sẽ cài đặt rất nhiều phần mềm trong máy tính của mình. Và những ứng dụng đó có thể giúp bạn rất nhiều trong công việc. Tuy nhiên, một số trong số đó là các ứng dụng nguy hiểm. Sau khi bạn cài đặt chúng vào máy tính, chúng sẽ thu thập thông tin cá nhân của bạn. Tệ hơn nữa, các tệp Excel của bạn cũng sẽ bị chúng làm hỏng. Tại thời điểm này, hãy gỡ cài đặt phần mềm nguy hiểm ngay lập tức. Bên cạnh đó, bạn cũng cần sử dụng một công cụ khôi phục để sửa chữa tệp xlsx bị hỏng. Do đó, bạn có thể đảm bảo rằng các tệp Excel của mình được an toàn.

Giới thiệu tác giả:

Anna Ma là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm sửa chữa sự cố tệp Word docx và các sản phẩm phần mềm sửa chữa triển vọng. Để biết thêm thông tin, hãy truy cập www.datanumennăm

Chia sẻ ngay bây giờ:

Được đóng lại.