change 400 files from xlsb to xlsx

  • Thanks to AlphaFrog at MrExcel for this:


  • Thanks to AlphaFrog at MrExcel for this:



    its works but after that the problem is the files can not open any more.
    we saved these files in xlsb format and now we want to saved them in xlsx format
    i think we should write a vba to open each file and save it as xlsb formats.
    [ATTACH=JSON]{"alt":"Click image for larger version Name:\terorr.jpg Views:\t1 Size:\t15.3 KB ID:\t1206184","data-align":"none","data-attachmentid":"1206184","data-size":"full","title":"erorr.jpg"}[/ATTACH]

  • its works but after that the problem is the files can not open any more.
    we saved these files in xlsb format and now we want to saved them in xlsx format
    i think we should write a vba to open each file and save it as xlsb formats.
    [ATTACH=JSON]{"alt":"Click image for larger version Name:\terorr.jpg Views:\t1 Size:\t15.3 KB ID:\t1206184","data-align":"none","data-attachmentid":"1206184","data-size":"full","title":"erorr.jpg"}[/ATTACH]


    this works for me:



    place in a different folder to the files you want to change
    run it then select folder


    [Blocked Image: https://puu.sh/B56tg/f44bb9fdfa.png]

  • Change this line of code


    Code
    wb.SaveAs Filename:=fpath & ".xlsb", FileFormat:= _        
          xlExcel12, CreateBackup:=False


    to


    Code
    wb.SaveAs Filename:=fpath & ".xlsx", FileFormat:= _        
           xlExcel12, CreateBackup:=False

Participate now!

Don’t have an account yet? Register yourself now and be a part of our community!