Có thể dùng Excel copy danh sách file/folder được không? (1 người xem)

[Lee Saker]

Chào mọi người. Mình có 1 bộ sưu tập phim HD và có 1 file excel lưu danh sách phim, trong đó 1 cột chứa tên phim và 1 cột chứa đường dẫn đến phim. Đường dẫn của mình có dạng "G:\The loai phim\Ten phim\". Do nhu cầu chép phim cho bạn bè và người thân, mình muốn thao tác trong Excel sao cho chỉ cần chọn danh sách các phim cần copy, chọn thư mục đích và máy sẽ thực hiện chép phim. Xin các bạn cho hỏi liệu Excel có thể thực hiện công việc mình vừa nói hay không .

 

[siwtom]

Chào mọi người. Mình có 1 bộ sưu tập phim HD và có 1 file excel lưu danh sách phim, trong đó 1 cột chứa tên phim và 1 cột chứa đường dẫn đến phim. Đường dẫn của mình có dạng "G:\The loai phim\Ten phim\". Do nhu cầu chép phim cho bạn bè và người thân, mình muốn thao tác trong Excel sao cho chỉ cần chọn danh sách các phim cần copy, chọn thư mục đích và máy sẽ thực hiện chép phim. Xin các bạn cho hỏi liệu Excel có thể thực hiện công việc mình vừa nói hay không .

Trên trang GPE có ô tìm kiếm. Bạn gõ vào ô: "copy phim" (chú ý là có dấu nháy kép) rồi nhấn biểu tượng kính lúp ở bên cạnh

 

[Lee Saker]

Cảm ơn bạn đã nhiệt tình giúp đỡ, tuy nhiên mình gặp phải lỗi như hình đính kèm khi thực hiện thao tác copy file. Khi tìm hiểu, mình thấy đây là lỗi của bản Win7 64bit, bạn có thể giúp mình khắc phục lỗi này không?

 

[siwtom]

Cảm ơn bạn đã nhiệt tình giúp đỡ, tuy nhiên mình gặp phải lỗi như hình đính kèm khi thực hiện thao tác copy file. Khi tìm hiểu, mình thấy đây là lỗi của bản Win7 64bit, bạn có thể giúp mình khắc phục lỗi này không?

Tôi không có win 64 bit nên cũng không nghiên cứu (không có công cụ để test khi nghiên cứu)
Bạn thử như sau:
1. Xóa

Private Type SHFILEOPSTRUCT
    hwnd As Long
    wFunc As Long
    pFrom As String
    pTo As String
    fFlags As Integer
    fAborted As Long
    hNameMaps As Long
    sProgress As String
End Type

Private Declare Function MoveFile Lib "kernel32.dll" Alias "MoveFileA" _
    (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long
Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" _
    (ByRef lpFileOp As SHFILEOPSTRUCT) As Long

2. Thêm

#If VBA7 And Win64 Then
    Type SHFILEOPSTRUCT
            hwnd As LongPtr
            wFunc As Long
            pFrom As String
            pTo As String
            fFlags As Integer
            fAborted As Long
            hNameMaps As LongPtr
            sProgress As String '  only used if FOF_SIMPLEPROGRESS
    End Type
    Declare PtrSafe Function MoveFile Lib "kernel32" Alias "MoveFileA" _
        (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long
    Declare PtrSafe Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" _
        (lpFileOp As SHFILEOPSTRUCT) As Long
#Else
    Private Type SHFILEOPSTRUCT
        hwnd As Long
        wFunc As Long
        pFrom As String
        pTo As String
        fFlags As Integer
        fAborted As Long
        hNameMaps As Long
        sProgress As String
    End Type
    Declare Function MoveFile Lib "kernel32.dll" Alias "MoveFileA" _
        (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long
    Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" _
        (ByRef lpFileOp As SHFILEOPSTRUCT) As Long
#End If

 

[Lee Saker]

Cảm ơn bạn đã sửa, hiện mình đã có công cụ đúng với mong muốn ban đầu!