Note: The other languages of the website are Google-translated. Back to English

Làm cách nào để di chuyển các tệp cụ thể từ thư mục này sang thư mục khác trong Excel?

Giả sử, tôi có một thư mục lớn chứa các loại tệp, chẳng hạn như docx, jpg, xlsx, v.v. như ảnh chụp màn hình sau. Bây giờ, tôi muốn di chuyển một số loại tệp cụ thể từ thư mục này sang một thư mục mới khác mà không cần di chuyển từng loại theo cách thủ công. Bạn có bất kỳ ý tưởng hay nào để giải quyết công việc này trong Excel?

Di chuyển các tệp cụ thể từ thư mục này sang thư mục khác bằng mã VBA


Di chuyển các tệp cụ thể từ thư mục này sang thư mục khác bằng mã VBA

Để di chuyển tất cả các loại tệp cụ thể từ thư mục này sang thư mục khác nhanh chóng như bạn muốn, mã VBA sau có thể giúp bạn, vui lòng thực hiện như sau:

1. Nhấn giữ ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Mô-đun Cửa sổ.

Mã VBA: Di chuyển các loại tệp cụ thể từ thư mục này sang thư mục khác:

Sub MoveFiles()
'Updateby Extendoffice
    Dim xFd As FileDialog
    Dim xTFile As String
    Dim xExtArr As Variant
    Dim xExt As Variant
    Dim xSPath As String
    Dim xDPath As String
    Dim xSFile As String
    Dim xCount As Long
    Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
    xFd.Title = "Please select the original folder:"
    If xFd.Show = -1 Then
        xSPath = xFd.SelectedItems(1)
    Else
        Exit Sub
    End If
    If Right(xSPath, 1) <> "\" Then xSPath = xSPath + "\"
    xFd.Title = "Please select the destination folder:"
    If xFd.Show = -1 Then
        xDPath = xFd.SelectedItems(1)
    Else
        Exit Sub
    End If
    If Right(xDPath, 1) <> "\" Then xDPath = xDPath + "\"
    xExtArr = Array("*.xlsx*", "*.jpg")
    For Each xExt In xExtArr
        xTFile = Dir(xSPath & xExt)
        Do While xTFile <> ""
            xSFile = xSPath & xTFile
            FileCopy xSFile, xDPath & xTFile
            Kill xSFile
            xTFile = Dir
            xCount = xCount + 1
        Loop
    Next
    MsgBox "Total number of moved files is: " & xCount, vbInformation, "Kutools for Excel"
End Sub

Chú thích: Trong đoạn mã trên, "* .xlsx *""* .jpg"trong tập lệnh: xExtArr = Array ("*. xlsx *", "* .jpg") là các loại tệp bạn muốn di chuyển, bạn có thể thay đổi chúng thành các loại khác hoặc thêm các loại tệp khác khi bạn cần.

3. Sau đó nhấn F5 để chạy mã này và một cửa sổ hiện ra để nhắc bạn chọn thư mục gốc nơi bạn muốn di chuyển các tệp từ đó, xem ảnh chụp màn hình:

4. Sau đó nhấn vào OKvà một cửa sổ khác hiện lên, vui lòng chọn thư mục đích mà bạn muốn chuyển các tệp đến, xem ảnh chụp màn hình:

5. Và sau đó nhấp vào OK, một hộp nhắc nhở sẽ bật ra để nhắc bạn có bao nhiêu tệp đã được di chuyển, hãy đóng nó và bạn có thể thấy các tệp jpg, xlsx cụ thể đã được chuyển vào thư mục được chỉ định, xem ảnh chụp màn hình:


Các công cụ năng suất văn phòng tốt nhất

Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng 80% năng suất của bạn

  • Tái sử dụng: Chèn nhanh công thức phức tạp, biểu đồ và bất cứ thứ gì bạn đã sử dụng trước đây; Mã hóa ô với mật khẩu; Tạo danh sách gửi thư và gửi email ...
  • Thanh siêu công thức (dễ dàng chỉnh sửa nhiều dòng văn bản và công thức); Bố cục đọc (dễ dàng đọc và chỉnh sửa số lượng ô lớn); Dán vào Dải ô đã Lọchữu ích. Cảm ơn !
  • Hợp nhất các ô / hàng / cột mà không làm mất dữ liệu; Nội dung phân chia ô; Kết hợp các hàng / cột trùng lặp... Ngăn chặn các ô trùng lặp; So sánh các dãyhữu ích. Cảm ơn !
  • Chọn trùng lặp hoặc duy nhất Hàng; Chọn hàng trống (tất cả các ô đều trống); Tìm siêu và Tìm mờ trong Nhiều Sổ làm việc; Chọn ngẫu nhiên ...
  • Bản sao chính xác Nhiều ô mà không thay đổi tham chiếu công thức; Tự động tạo tài liệu tham khảo sang Nhiều Trang tính; Chèn Bullets, Hộp kiểm và hơn thế nữa ...
  • Trích xuất văn bản, Thêm Văn bản, Xóa theo Vị trí, Xóa không gian; Tạo và In Tổng số phân trang; Chuyển đổi giữa nội dung ô và nhận xéthữu ích. Cảm ơn !
  • Siêu lọc (lưu và áp dụng các lược đồ lọc cho các trang tính khác); Sắp xếp nâng cao theo tháng / tuần / ngày, tần suất và hơn thế nữa; Bộ lọc đặc biệt bằng cách in đậm, in nghiêng ...
  • Kết hợp Workbook và WorkSheets; Hợp nhất các bảng dựa trên các cột chính; Chia dữ liệu thành nhiều trang tính; Chuyển đổi hàng loạt xls, xlsx và PDFhữu ích. Cảm ơn !
  • Hơn 300 tính năng mạnh mẽ. Hỗ trợ Office / Excel 2007-2021 và 365. Hỗ trợ tất cả các ngôn ngữ. Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. Đầy đủ tính năng Dùng thử miễn phí 30 ngày. Bảo đảm hoàn lại tiền trong 60 ngày.
tab kte 201905

Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

  • Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
  • Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
  • Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
officetab dưới cùng
Nhận xét (10)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Hi

Cảm ơn vì mẹo hữu ích. Tôi có khoảng 5000 tệp được liệt kê trên một tệp excel. Tôi cần tìm kiếm tất cả các tệp này từ toàn bộ máy tính, nếu tên tệp trùng khớp thì hãy sao chép và dán vào thư mục khác
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào,
Tôi cần một sự giúp đỡ. Chúng ta có thể chọn một vài tệp và chuyển chúng vào một thư mục riêng theo danh sách trong tệp excel không?
cảm ơn trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, Kumar,
Để di chuyển hoặc sao chép tập tin từ thư mục này sang thư mục khác dựa trên danh sách excel, bài viết dưới đây có thể giúp ích cho bạn!
https://www.extendoffice.com/documents/excel/4775-move-files-based-on-excel-list.html

Hy vọng nó có thể giúp bạn, cảm ơn bạn!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn bạn rất nhiều, điều này là tuyệt vời. Rất biết ơn sự giúp đỡ của bạn.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chúng ta có thể chọn đường dẫn đích trong danh sách excel trên macro này không. làm ơn giúp đỡ.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
cảm ơn rất nhiều vì sự giúp đỡ lớn của bạn
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào
Để di chuyển hoặc sao chép tập tin từ thư mục này sang thư mục khác dựa trên danh sách excel, bài viết dưới đây có thể giúp ích cho bạn!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Để di chuyển hoặc sao chép tệp từ một thư mục sang một thư mục khác dựa trên danh sách excel và đích (đường dẫn)
trên danh sách excel. làm ơn giúp ...
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào,
Mã hoạt động tốt cho những gì tôi đang làm. Cảm ơn bạn! Làm cách nào để bạn kiểm tra xem tệp có tồn tại trong thư mục đích hay không và nhắc người dùng hỏi xem họ muốn ghi đè tệp hay lưu dưới dạng tên tệp khác? Tôi đang làm việc với các tệp .pdf được lưu vào thư mục đích.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
tôi không nhận được cửa sổ bật lên nào sau màn hình lựa chọn
Không có bình luận nào được đăng ở đây
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL