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ông cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
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!