Save batch of .xls files as .xlsb

[jamescooper]

Hello,

Is this possible through a macro?

Many thanks.

 

[jamescooper]

Sub Convert_Csv_to_xlsb()
    
    Dim myfile As String
    Dim oldfname As String, newfname As String
    Dim workfile
    Dim folderName As String
    
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
       
'   Capture name of current file
    myfile = ActiveWorkbook.Name
      
'   Set folder name to work through
    folderName = "C:\Users\Desktop\2018-19\Data\Raw\"
    
'   Loop through all CSV filres in folder
    workfile = Dir(folderName & "*.CSV")
    Do While workfile <> ""
'       Open CSV file
        Workbooks.Open Filename:=folderName & workfile
'       Capture name of old CSV file
        oldfname = ActiveWorkbook.FullName
'       Convert to XLSX
        newfname = folderName & Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & ".xlsb"
        ActiveWorkbook.SaveAs Filename:=newfname, FileFormat:=xlExcel12, CreateBackup:=False
        ActiveWorkbook.Close
'       Delete old CSV file
        Kill oldfname
        Windows(myfile).Activate
        workfile = Dir()
    Loop
    
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True


End Sub