Nhờ trợ giúp đổi tên các file trong folder

[ThanRuaKaMe]

Nhờ các bác giúp em với ạ.
Em có 1 file excel, Cột A là tên các file ở 1 folder của em, Cột B là tên mới em muốn đổi tên tương ứng bên cột A.
Cả tên mới và tên cũ đều là tên tiếng việt có dấu.
Bác nào biết code giúp em với ạ. Em loay hoay cả ngày vẫn không làm được.
Em cảm ơn ạ!

 

[VetMini]

Loay hoay cả ngày mà đã biết cách tìm kiếm chưa?
Loại đề tài này ở đây có cả đống.

 

[ThanRuaKaMe]

Loay hoay cả ngày mà đã biết cách tìm kiếm chưa?
Loại đề tài này ở đây có cả đống.

Dạ. Em vẫn chưa biết cách ạ. Anh có thể giúp em được không ạ?

 

[VetMini]

Dạ. Em vẫn chưa biết cách ạ. Anh có thể giúp em được không ạ?

Chọn cái hình kính lúp, góc trên cùng, bên phải trang





Tôi chỉ mách đến thế thôi. Bạn nào thần tượng gú gô cố thể chỉ thêm về cách tìm kiếm qua gú gô.

 

[HeSanbi]

Bạn thử xem ứng dụng này có giúp bạn được không

ExplorerXL - Quản lý thư mục với Excel: tìm, đổi tên, sao chép, di chuyển và xóa

Hôm nay, tôi chia sẻ với các bạn ứng dụng quản lý thư mục và tập tin được viết dựa trên bảng tính Excel và VBA, ứng dụng giúp dễ dàng tìm kiếm thư mục và tập tin, cũng như đổi tên, sao chép, di chuyển đến thư mục khác hoặc xóa tập tin rất linh hoạt. Hình ảnh ứng dụng: File ứng dụng: (***Mật...

www.giaiphapexcel.com

 

[Quang_Hải]

Nhờ các bác giúp em với ạ.
Em có 1 file excel, Cột A là tên các file ở 1 folder của em, Cột B là tên mới em muốn đổi tên tương ứng bên cột A.
Cả tên mới và tên cũ đều là tên tiếng việt có dấu.
Bác nào biết code giúp em với ạ. Em loay hoay cả ngày vẫn không làm được.
Em cảm ơn ạ!

Thử tạm đoạn code đơn giản này trong khi chờ cách hay hơn

Sub Change_FileName()
Dim Source As String, sTarget As String, sArr(), i As Long, FolderPath As String, Fso As Object
FolderPath = ThisWorkbook.Path ' nhập đúng tên đường dẫn chỗ này
Set Fso = CreateObject("Scripting.FileSystemObject")
With Sheets("Sheet1")
    sArr = .Range("A2", .Range("A" & Rows.Count).End(3)).Resize(, 2).Value
End With
For i = 1 To UBound(sArr)
    If sArr(i, 1) <> Empty Then
        Source = FolderPath & "\" & sArr(i, 1)
        sTarget = FolderPath & "\" & sArr(i, 2)
        If Fso.FileExists(Source) Then
            Fso.CopyFile Source, sTarget
        End If
    End If
Next
End Sub

 

[befaint]

If sArr(i, 1) <> Empty Then

Anh viết hơi kỳ: Nếu đã kiểm tra cột 1 thì không lý do gì để không kiểm tra cột 2.

"\"

Có thể máy tính đó không dùng ký tự này.

 

[ThanRuaKaMe]

Thử tạm đoạn code đơn giản này trong khi chờ cách hay hơn

Sub Change_FileName()
Dim Source As String, sTarget As String, sArr(), i As Long, FolderPath As String, Fso As Object
FolderPath = ThisWorkbook.Path ' nhập đúng tên đường dẫn chỗ này
Set Fso = CreateObject("Scripting.FileSystemObject")
With Sheets("Sheet1")
    sArr = .Range("A2", .Range("A" & Rows.Count).End(3)).Resize(, 2).Value
End With
For i = 1 To UBound(sArr)
    If sArr(i, 1) <> Empty Then
        Source = FolderPath & "\" & sArr(i, 1)
        sTarget = FolderPath & "\" & sArr(i, 2)
        If Fso.FileExists(Source) Then
            Fso.CopyFile Source, sTarget
        End If
    End If
Next
End Sub

Dạ. Em cảm ơn bác nhiều nhiều ạ.
File trước em mô tả chưa đủ thông tin, bác xem giúp em với!
Em có Cột A là: đường dẫn của các file cần đổi thông tên.
Cột B là tên cũ của file cần đổi tên
Cột C là tên mới cần đổi tên.
(Tên file cả cũ và mới là tiếng việt có dấu)
File excel để code là file hiện hành.
Bác xem thêm giúp em! Em cảm ơn nhiều ạ!

 

[Quang_Hải]

Dạ. Em cảm ơn bác nhiều nhiều ạ.
File trước em mô tả chưa đủ thông tin, bác xem giúp em với!
Em có Cột A là: đường dẫn của các file cần đổi thông tên.
Cột B là tên cũ của file cần đổi tên
Cột C là tên mới cần đổi tên.
(Tên file cả cũ và mới là tiếng việt có dấu)
File excel để code là file hiện hành.
Bác xem thêm giúp em! Em cảm ơn nhiều ạ!

Hên xui nha. không thể kiểm tra

Sub Change_FileName()
Dim Source As String, sTarget As String, sArr(), i As Long
Dim Tmp As String, FolderPath As String, Fso As Object
Set Fso = CreateObject("Scripting.FileSystemObject")
With Sheets("Sheet1")
    sArr = .Range("A2", .Range("A" & Rows.Count).End(3)).Resize(, 3).Value
End With
For i = 1 To UBound(sArr)
    If sArr(i, 1) <> Empty Then
        Tmp = sArr(i, 1)
        FolderPath = Fso.getparentfoldername(Tmp)
        Source = FolderPath & "\" & sArr(i, 2)
        sTarget = FolderPath & "\" & sArr(i, 3)
        If Fso.FileExists(Source) Then
            Fso.CopyFile Source, sTarget
        End If
    End If
Next
End Sub

 

[tieutuvodanh192]

Bạn hãy dành thời gian xem thử bài 5 của tác giả HeSanbi, mình thấy ở diễn đàn này file đấy là giải quyết tốt nhất vấn đề của bạn rồi ấy. Trước mình đã có dùng thử, đổi tên với số lượng hàng ngàn file 1 lúc, chạy rất mượt và chuẩn chỉnh.

 

[ThanRuaKaMe]

Bạn thử xem ứng dụng này có giúp bạn được không

ExplorerXL - Quản lý thư mục với Excel: tìm, đổi tên, sao chép, di chuyển và xóa

Hôm nay, tôi chia sẻ với các bạn ứng dụng quản lý thư mục và tập tin được viết dựa trên bảng tính Excel và VBA, ứng dụng giúp dễ dàng tìm kiếm thư mục và tập tin, cũng như đổi tên, sao chép, di chuyển đến thư mục khác hoặc xóa tập tin rất linh hoạt. Hình ảnh ứng dụng: File ứng dụng: (***Mật...

www.giaiphapexcel.com

Cảm ơn bạn nhiều nhiều

 

[VetMini]

Bạn hãy dành thời gian xem thử ...

Tuy rằng ở đây code là cho phơ-ri. Luật diễn đàn cũng nói rõ: hàng lên đây là tải sản diễn đàn.
Nhưng cũng có người viết code mặc nhiên coi rằng ai tải code của mình về dùng là phải mang ơn mình suốt đời. Về sau này người tải code có làm gì phật ý, tác giả sẽ lôi người ấy ra trách móc "đồ vô ơn, bạc nghĩa". Nói cách khác, bạn phải coi chừng tuy là được hàng xịn, không mất tiền, nhưng có cái ơn phải mang.

 

[tieutuvodanh192]

Tuy rằng ở đây code là cho phơ-ri. Luật diễn đàn cũng nói rõ: hàng lên đây là tải sản diễn đàn.
Nhưng cũng có người viết code mặc nhiên coi rằng ai tải code của mình về dùng là phải mang ơn mình suốt đời. Về sau này người tải code có làm gì phật ý, tác giả sẽ lôi người ấy ra trách móc "đồ vô ơn, bạc nghĩa". Nói cách khác, bạn phải coi chừng tuy là được hàng xịn, không mất tiền, nhưng có cái ơn phải mang.

Chắc cũng số rất ít thôi anh ạ.
Với em ai giúp em ở diễn đàn này em nhớ hết, mà chắc nhiều người cũng như vậy, không phải vì tư tưởng mang ơn họ, mà vì thích sự hào sảng họ mang lại cho mình. Nếu có duyên gặp gỡ em sẽ mời tách trà, ly cafe, cốc bia, bát phở... có chăng lấy cớ cảm ơn để kết bạn, chỉ đơn giản vì mình thích tính cách của họ.

 

[VetMini]

Chắc cũng số rất ít thôi anh ạ.
Với em ai giúp em ở diễn đàn này em nhớ hết, mà chắc nhiều người cũng như vậy, không phải vì tư tưởng mang ơn họ, mà vì thích sự hào sảng họ mang lại cho mình. Nếu có duyên gặp gỡ em sẽ mời tách trà, ly cafe, cốc bia, bát phở... có chăng lấy cớ cảm ơn để kết bạn, chỉ đơn giản vì mình thích tính cách của họ.

Về sự hào sảng thì bạn khỏi lo. Những nhơn vật tôi nói trên thích "hào nhoáng" lắm.
Ủa mà quên, xin lỗi mình mắt lòa, nhầm từ "sảng" với "nhoáng"

 

[Kiều Mạnh]

Tôi thấy đâu đó chỉ dẫn cho ai đó chút code xong keo ơn huệ ... Vậy ơn huệ đó quy ra lúa được mấy hột >>>???!!!

xong gào thét vô ơn... cảm giác cứ như mặc váy

Nếu họ không nổ lực cố giắng phát triển lên lấy gì kể ơn với huệ

 

[ThanRuaKaMe]

Chắc cũng số rất ít thôi anh ạ.
Với em ai giúp em ở diễn đàn này em nhớ hết, mà chắc nhiều người cũng như vậy, không phải vì tư tưởng mang ơn họ, mà vì thích sự hào sảng họ mang lại cho mình. Nếu có duyên gặp gỡ em sẽ mời tách trà, ly cafe, cốc bia, bát phở... có chăng lấy cớ cảm ơn để kết bạn, chỉ đơn giản vì mình thích tính cách của họ.

Ôi, thành thật xin lỗi bạn nhé!
Do tính chất công việc nên mình không ngồi máy tính thường xuyên.
Đọc lướt một chút rồi mình lại đi ngay nên bị sót.
Dù sao cũng là lỗi của mình.
Cảm ơn bạn rất nhiều đã chỉ cho mình!
Cảm ơn tất cả các anh em trong diễn đàn đã chỉ bảo góp ý!
Có gì sơ xuất mong anh chị em bỏ qua cho mình nhé!
Thanks!