change file format (extension) in folder and sub folder in single go.

[gauravkrgautam]

How Could I change file format (extension) in folder and sub folder in single go.

is there any way to change .xlsx to xlsb.

it would be great help.


Regards,

 

[Deepak]

This isn't a vba question not excel so moved it to vba macro .

 

[Deepak]

Coming back to ur questions,
You need to loop & save as to accomplish the goal.

 

[gauravkrgautam]

Please help me in same,

I am new to vba, know loop only for.....each....

how could I do this with for.....each....

 

[Deepak]

Check this!!!

Option Explicit
Sub rename_to_xlsb()
Dim wb As Workbook, mydir As String, objFile As Object

mydir = "C:\ABC\New folder" 'Application.ThisWorkbook.Path

Application.ScreenUpdating = False
With CreateObject("Scripting.FileSystemObject")
    For Each objFile In .GetFolder(mydir).Files
    If Right(objFile, 5) <> ".xlsx" Then GoTo N
        Set wb = Workbooks.Open(objFile)
            wb.SaveAs Replace(objFile, ".xlsx", ".xlsb"), xlExcel12
            wb.Close False
        'Kill objFile '  If orignal needs to delete
N:  Next
End With
Application.ScreenUpdating = True

MsgBox "Done"
End Sub