Code đổi tên file trong một thư mục

[thoai]

Mình có thư mục A gồm 5 file excel: 1,2,3,4,5 nhờ AC giúp mình code chọn tất cả các file trong thu mục nay va đổi tên các file thanh: a,b,c,d,e

 

[befaint]

Chủ thớt chịu khó tìm một chút là thấy file làm sẵn. Có nút chọn tới folder, lấy được danh sách files, điền tên mới, rồi ấn vào nút đổi tên là xong.

 

[thoai]

Chủ thớt chịu khó tìm một chút là thấy file làm sẵn. Có nút chọn tới folder, lấy được danh sách files, điền tên mới, rồi ấn vào nút đổi tên là xong.[/QUOTE. Anh cho em xin link ah

 

[ndu96081631]

Mình có thư mục A gồm 5 file excel: 1,2,3,4,5 nhờ AC giúp mình code chọn tất cả các file trong thu mục nay va đổi tên các file thanh: a,b,c,d,e

Dùng FileSystemObject. Đại khái thế này:

Sub Test()
  Dim sFolder As String
  Dim aOldFiles, aNewFiles
  Dim idx As Long
  Dim FSO As Object
  Set FSO = CreateObject("Scripting.FileSystemObject")
  sFolder = ThisWorkbook.Path & "\A\"  ''<--- Thư mục chứa các files
  aOldFiles = Array("1.xlsx", "2.xlsx", "3.xlsx", "4.xlsx", "5.xlsx")
  aNewFiles = Array("a.xlsx", "b.xlsx", "c.xlsx", "d.xlsx", "e.xlsx")
  On Error Resume Next
  For idx = LBound(aOldFiles) To UBound(aOldFiles)
    FSO.MoveFile sFolder & aOldFiles(idx), sFolder & aNewFiles(idx)
  Next
End Sub

 

[thoai]

Dùng FileSystemObject. Đại khái thế này:

Sub Test()
  Dim sFolder As String
  Dim aOldFiles, aNewFiles
  Dim idx As Long
  Dim FSO As Object
  Set FSO = CreateObject("Scripting.FileSystemObject")
  sFolder = ThisWorkbook.Path & "\A\"  ''<--- Thư mục chứa các files
  aOldFiles = Array("1.xlsx", "2.xlsx", "3.xlsx", "4.xlsx", "5.xlsx")
  aNewFiles = Array("a.xlsx", "b.xlsx", "c.xlsx", "d.xlsx", "e.xlsx")
  On Error Resume Next
  For idx = LBound(aOldFiles) To UBound(aOldFiles)
    FSO.MoveFile sFolder & aOldFiles(idx), sFolder & aNewFiles(idx)
  Next
End Sub

Em muốn tìm đến thư mục chứa file nhưng 5 file này có name không xác định: rồi mình tự đổi 1 phần tên file có được không Anh. Mục đích là sau khổi đổi tên file sẽ chép các file này lưu vào một thư mục nhằm trách việc chép đè file ah

 

[be_09]

Em muốn tìm đến thư mục chứa file nhưng 5 file này có name không xác định: rồi mình tự đổi 1 phần tên file có được không Anh. Mục đích là sau khổi đổi tên file sẽ chép các file này lưu vào một thư mục nhằm trách việc chép đè file ah

Tham khảo File trong bài viết ở Link sau:
https://www.giaiphapexcel.com/diendan/threads/nhờ-giúp-thêm-code-copy-file-sang-folder.133395/

 

[ndu96081631]

Em muốn tìm đến thư mục chứa file nhưng 5 file này có name không xác định: rồi mình tự đổi 1 phần tên file có được không Anh. Mục đích là sau khổi đổi tên file sẽ chép các file này lưu vào một thư mục nhằm trách việc chép đè file ah

Đầu tiên bạn hỏi về việc chọn các files. Sau đó bạn lại nhờ giúp đổi tên các files. Bây giờ lại chuyển yêu cầu thành copy gì gì đó...
Hỏi kỳ vậy bạn?
Mô tả chính xác vấn đề của mình đi bạn