Đổi xlsx thành xls

[Chi chie]

Các bác ơi có cách nào chuyển file excel đuôi XLSX sang XLS hàng loạt tầm nghìn file hoặc nhiều hơn mà không cần ấn Save as không ạ?

 

[ongke0711]

Các bác ơi có cách nào chuyển file excel đuôi XLSX sang XLS hàng loạt tầm nghìn file hoặc nhiều hơn mà không cần ấn Save as không ạ?

Tại sao phải làm như vậy bạn?

 

[VetMini]

Tại sao phải làm như vậy bạn?

1. Sưu tầm đồ cổ cho đã thích.
2. Lớn hơn 1 là số nhiều. Ở GPE này từ ngàn giành cho nhiều sheets/files/folders, từ chục ngàn giành cho nhiều columns, từ trăm ngàn và triệu giành cho nhiều rows.

 

[befaint]

Cs

Các bác ơi có cách nào chuyển file excel đuôi XLSX sang XLS hàng loạt tầm nghìn file hoặc nhiều hơn mà không cần ấn Save as không ạ?

Có bạn nha . .

 

[tieutuvodanh192]

Các bác ơi có cách nào chuyển file excel đuôi XLSX sang XLS hàng loạt tầm nghìn file hoặc nhiều hơn mà không cần ấn Save as không ạ?

Yêu cầu của bạn khá lạ.
Bạn chạy thử code củ chuối của mình bên dưới, chọn các file cần đổi đuôi .xlsx thành .xls, sau đó kiểm tra lại kết quả xem sao.

Sub DoiTenFile()
    Dim Folder As String
    Dim File As Variant
    Dim fd As FileDialog
    Dim Dem As Integer
    
    Set fd = Application.FileDialog(msoFileDialogOpen)
    With fd
        .Title = "Ban hay chon cac file can doi ten .xlsx thanh .xls"
        .Filters.Clear
        .Filters.Add "Excel files", "*.xlsx"
        .AllowMultiSelect = True
        If .Show = True Then
            For Each File In .SelectedItems
                Name File As Left(File, Len(File) - 5) & ".xls"
                Dem = Dem + 1
            Next File
        MsgBox "Da doi ten xong cho " & Dem & " file Excel."
        End If
    End With
End Sub