Excel Challenge | Convert Old Excel File XLS to New Excel File XLSX | Macro | Excel Sifu

Want to enjoy the benefits of new Excel file format and having many files in old file format?
This video showing how you could get it done easily with VBA.

Download The File in This Video

#Exce #Excesifu #Macro

Download eBook: The 5 Magic to Master Business Data

Connect to me in LinkedIn

Like our FB

[ExcelSifu]

You could download the file of this video from

[transtechmuthu]

Great Video Sir.. Thanks a lot.. It helps me a lot..

[muhammaddanish]

Thanks you so much... You are a life saver.... Wish you all the fortune in the world

[stiertjuh]

Thanks for this file. Works great. Could you tell me what exactly I would need to change for xlsm format to xlsx. Would it be as simple as replacing xls with xlsm throughout the code?

[rezaalif]

Hello. Thanks for sharing. I get an issue. When I run your code, I got an error "Sub or Function not defined" and highlight the "BrowseOneFolder" in Main macro. Can you fix this?

[rajmenon]

Posisble to share the macro details for converting just 1 file from xls to xlsx

[anthonyicruz]

Does this work even if the xls file has macros? Or do we have to convert to xlsm?

[jadwigas.]

HI SiFu, Please, how can we get the code? Thanks

[prathmeshnaik]

Hi but i want to remove the original old version xls file could you please help me on this

[ExcelSifu]

The missing part of the code.



Function BrowseOneFolder(Optional strInitialPath As String) As String

Dim objFileDialog As FileDialog
Dim sItem As String


Set objFileDialog =


With objFileDialog

.Title = "Select a Folder"
.AllowMultiSelect = False

If strInitialPath > "" Then
.InitialFileName = strInitialPath
End If

If .Show = -1 Then
BrowseOneFolder = .SelectedItems(1)
End If

End With

Set objFileDialog = Nothing

End Function