Đổi tên các file Excel theo thứ tự

[thunoka]

Chào các bạn,

Mình có 1 folder chứa nhiều file Excel. Mình muốn đổi tên các file (sắp xếp theo thứ tự tăng dần) thành 1, 2, 3, 4 ... đến tổng số file. Ví dụ, mình có 4 file:
AAB.xls ABC.xls BSD.xls AAA.xls
Sắp xếp theo thứ tự thì:
AAA đổi tên thành 1.xls
AAB đổi tên thành 2.xls
ABC đổi tên thành 3.xls
BSD đổi tên thành 4.xls

Vậy thì phải có code như thế nào để được như trên? Làm ơn giúp mình với!!!

Cảm ơn các bạn nhiều lắm!

 

[thanh_tks]

Gom hết cả lại( Chọn tất cả file cần đổi tên) sau đó nháy chuột vào file đầu ,chon Rename ...
VD:Đặt cho fỉle đầu là A thì file sau sẽ có tên là A(1) tiếp theo là A(2).

 

[sealand]

Dồn File vào 1 thư mục-->Chọn File cuối cùng--> Nhấn giữ Shift--> Chọn File đầu tiên-->Nhấn F2-->Gõ ký tự tên-->Enter

 

[thunoka]

Gom hết cả lại( Chọn tất cả file cần đổi tên) sau đó nháy chuột vào file đầu ,chon Rename ...
VD:Đặt cho fỉle đầu là A thì file sau sẽ có tên là A(1) tiếp theo là A(2).

Cái này thì mình biết, nhưng mình muốn đổi nó thành số mà không có dấu ngoặc ấy

 

[ndu96081631]

Chào các bạn,

Mình có 1 folder chứa nhiều file Excel. Mình muốn đổi tên các file (sắp xếp theo thứ tự tăng dần) thành 1, 2, 3, 4 ... đến tổng số file. Ví dụ, mình có 4 file:
AAB.xls ABC.xls BSD.xls AAA.xls
Sắp xếp theo thứ tự thì:
AAA đổi tên thành 1.xls
AAB đổi tên thành 2.xls
ABC đổi tên thành 3.xls
BSD đổi tên thành 4.xls

Vậy thì phải có code như thế nào để được như trên? Làm ơn giúp mình với!!!

Cảm ơn các bạn nhiều lắm!

Vầy thử xem:

Sub Test()
  Dim i As Long
  With Application.FileDialog(1)
    .Filters.Clear: .Filters.Add "Excel files", "*.xls"
    .Show
    For i = 1 To .SelectedItems.Count
      Name (.SelectedItems(i)) As .InitialFileName & i & ".xls"
    Next i
  End With
End Sub

- Chạy code
- Khi hộp FileDialog mở ra, bạn chọn vào 1 file rồi bấm Ctrl + A để chọn toàn bộ file ---> OK cái là ra kết quả
-------------
Thuật toán chủ lực nằm ở chổ
Name OldName As NewName ---> Xem trong Help

 

[thunoka]

Cảm ơn bạn ndu96081631 nhiều lắm! Vậy nếu ở ô A1, mình có Path cho folder thì đổi code trên như thế nào vậy bạn?http://www.giaiphapexcel.com/forum/member.php?u=61139

 

[ndu96081631]

Cảm ơn bạn ndu96081631 nhiều lắm! Vậy nếu ở ô A1, mình có Path cho folder thì đổi code trên như thế nào vậy bạn?

Nhiều cách lắm

Sub Test()
  Dim fN, i As Long
  With CreateObject("Scripting.FileSystemObject")
    For Each fN In .GetFolder([A1]).Files
      If InStr(fN.Name, ".xls") Then
        i = i + 1
        Name ([A1] & "\" & fN.Name) As [A1] & "\" & i & ".xls"
      End If
    Next
  End With
End Sub

Hoặc

Sub Test1()
  Dim i As Long
  With Application.FileSearch
    .LookIn = [A1]: .Filename = "*.xls"
    If .Execute Then
      For i = 1 To .FoundFiles.Count
        Name (.FoundFiles(i)) As [A1] & "\" & i & ".xls"
      Next
    End If
  End With
End Sub

Nhớ là cell A1 có chứa đường dẩn nha!