có cách nào tạo Workbook không có phần mở rộng

[nguyendangkhoi]

Em muốn tạo Workbook mới nhưng em không muốn Workbook đó có phần mở rộng là .xls được không?. nếu được nhờ các anh chị hướng dẫn

 

[khoavu87]

tức là cậu muốn lưu đuôi của 2003?

 

[ndu96081631]

Em muốn tạo Workbook mới nhưng em không muốn Workbook đó có phần mở rộng là .xls được không?. nếu được nhờ các anh chị hướng dẫn

Thì lưu xong, xóa đuôi .xls bằng tay!
Nhưng nếu không có phần mở rộng, vậy bạn làm cách nào mở file?

 

[nguyendangkhoi]

Dạ ý em là bỏ .xls bang vba luọn ah chứ kông làm bằng tay

 

[ndu96081631]

Dạ ý em là bỏ .xls bang vba luọn ah chứ kông làm bằng tay

Có thể cho biết mục đích bạn làm vậy để làm cái gì không? (nhiều khi biết rõ mục đích sẽ gợi ý cho bạn hướng đi tốt hơn)
Chứ riêng tôi thì chưa từng làm vậy bao giờ

 

[nguyendangkhoi]

Dạ em chỉ muốn tìm cách bỏ đi phan mở rộng .xls thôi

 

[ptlong04x1]

Mục đích để làm gì mà bạn, vẫn là câu hỏi này :

Nhưng nếu không có phần mở rộng, vậy bạn làm cách nào mở file?

 

[nguyendangkhoi]

dạ chẳng có mục đích gì quan trọng chẳng qua em thắc mắc là có bỏ được hay không thôi

 

[viehoai]

Làm gì cũng có mục đích hết chứ bạn, nếu không thì công việc làm sao thú vị được??

 

[ptlong04x1]

dạ chẳng có mục đích gì quan trọng chẳng qua em thắc mắc là có bỏ được hay không thôi

Thì tất nhiên là có cách, nhưng mà bỏ xong tới lúc cần chạy thì bạn cũng phải thêm lại thôi.

Sub DelExt(FolderName As String)
    Dim File As Scripting.File, SubFolder As Scripting.Folder
    
    On Error Resume Next
    With New Scripting.FileSystemObject
        With .GetFolder(FolderName)
            For Each File In .Files
                If InStr(File.Name, ".xls") Then File.Name = Replace(File.Name, ".xls", "")
            Next File
            For Each SubFolder In .SubFolders
                Call DelExt(SubFolder.Path)
            Next SubFolder
        End With
    End With
End Sub

Sub Run()
    Dim FolderName As String
    FolderName = InputBox("Nhap duong dan toi thu muc chua cac file Excel can xoa phan mo rong : ")
    Call DelExt(FolderName)
End Sub

Xem File đính kèm, nhớ Enables Macro.

 

[ndu96081631]

Tôi thấy vầy cho gọn
Mở My Computer, vào menu Tools\Folder Options và làm giống hình này:

Ẹc... Ẹc.... nghĩ cũng buồn cười nhỉ?