Converting xlsx to xlsb












0















I recently discovered the benefits to converting Excel documents to XLSB (binary), mostly the cutting almost in half of file sizes.



I would like to apply this to some of my older files, but don't want to sit around resaving these documents.



That macro should be able to search through the whole C: drive find only the XLSX files open it and save it in .xlsb file format in the same folder with the same name by also retaining the original .xlsx file.



Regards










share|improve this question























  • Searching "Recursive VBA" here or on the wider net should get you started.

    – Mark Fitzgerald
    Feb 5 at 8:45
















0















I recently discovered the benefits to converting Excel documents to XLSB (binary), mostly the cutting almost in half of file sizes.



I would like to apply this to some of my older files, but don't want to sit around resaving these documents.



That macro should be able to search through the whole C: drive find only the XLSX files open it and save it in .xlsb file format in the same folder with the same name by also retaining the original .xlsx file.



Regards










share|improve this question























  • Searching "Recursive VBA" here or on the wider net should get you started.

    – Mark Fitzgerald
    Feb 5 at 8:45














0












0








0








I recently discovered the benefits to converting Excel documents to XLSB (binary), mostly the cutting almost in half of file sizes.



I would like to apply this to some of my older files, but don't want to sit around resaving these documents.



That macro should be able to search through the whole C: drive find only the XLSX files open it and save it in .xlsb file format in the same folder with the same name by also retaining the original .xlsx file.



Regards










share|improve this question














I recently discovered the benefits to converting Excel documents to XLSB (binary), mostly the cutting almost in half of file sizes.



I would like to apply this to some of my older files, but don't want to sit around resaving these documents.



That macro should be able to search through the whole C: drive find only the XLSX files open it and save it in .xlsb file format in the same folder with the same name by also retaining the original .xlsx file.



Regards







microsoft-excel vba microsoft-excel-2007 macros spreadsheet






share|improve this question













share|improve this question











share|improve this question




share|improve this question










asked Feb 5 at 7:35









EXCEL LOVEREXCEL LOVER

325




325













  • Searching "Recursive VBA" here or on the wider net should get you started.

    – Mark Fitzgerald
    Feb 5 at 8:45



















  • Searching "Recursive VBA" here or on the wider net should get you started.

    – Mark Fitzgerald
    Feb 5 at 8:45

















Searching "Recursive VBA" here or on the wider net should get you started.

– Mark Fitzgerald
Feb 5 at 8:45





Searching "Recursive VBA" here or on the wider net should get you started.

– Mark Fitzgerald
Feb 5 at 8:45










1 Answer
1






active

oldest

votes


















0














Sub Savesheet()
'
' Save Macro
' Save to Server
'
Dim strPath As String
Dim strFileNm As String
strPath = "H:/"
' get file name from worksheet Sheet1 cell C2
strFileNm = Worksheets("Sheet1").Range("C2").Value & " OnShift RFI"

ActiveWorkbook.SaveAs Filename:=strPath & strFileNm & ".xlsb", _
FileFormat:=xlExcel52

End Sub


also, update the above macro according to this:



I believe the correct parameters look like this,

.SaveAs Filename:=strFileNm, FileFormat:=50 'xlExcel12 (Excel Binary Workbook in 2007-2013 with or without macro's, xlsb)


refer to this page



I googled and found the above link where it was given. No guarantee or troubleshooting from my side.






share|improve this answer























    Your Answer








    StackExchange.ready(function() {
    var channelOptions = {
    tags: "".split(" "),
    id: "3"
    };
    initTagRenderer("".split(" "), "".split(" "), channelOptions);

    StackExchange.using("externalEditor", function() {
    // Have to fire editor after snippets, if snippets enabled
    if (StackExchange.settings.snippets.snippetsEnabled) {
    StackExchange.using("snippets", function() {
    createEditor();
    });
    }
    else {
    createEditor();
    }
    });

    function createEditor() {
    StackExchange.prepareEditor({
    heartbeatType: 'answer',
    autoActivateHeartbeat: false,
    convertImagesToLinks: true,
    noModals: true,
    showLowRepImageUploadWarning: true,
    reputationToPostImages: 10,
    bindNavPrevention: true,
    postfix: "",
    imageUploader: {
    brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
    contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
    allowUrls: true
    },
    onDemand: true,
    discardSelector: ".discard-answer"
    ,immediatelyShowMarkdownHelp:true
    });


    }
    });














    draft saved

    draft discarded


















    StackExchange.ready(
    function () {
    StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fsuperuser.com%2fquestions%2f1402137%2fconverting-xlsx-to-xlsb%23new-answer', 'question_page');
    }
    );

    Post as a guest















    Required, but never shown

























    1 Answer
    1






    active

    oldest

    votes








    1 Answer
    1






    active

    oldest

    votes









    active

    oldest

    votes






    active

    oldest

    votes









    0














    Sub Savesheet()
    '
    ' Save Macro
    ' Save to Server
    '
    Dim strPath As String
    Dim strFileNm As String
    strPath = "H:/"
    ' get file name from worksheet Sheet1 cell C2
    strFileNm = Worksheets("Sheet1").Range("C2").Value & " OnShift RFI"

    ActiveWorkbook.SaveAs Filename:=strPath & strFileNm & ".xlsb", _
    FileFormat:=xlExcel52

    End Sub


    also, update the above macro according to this:



    I believe the correct parameters look like this,

    .SaveAs Filename:=strFileNm, FileFormat:=50 'xlExcel12 (Excel Binary Workbook in 2007-2013 with or without macro's, xlsb)


    refer to this page



    I googled and found the above link where it was given. No guarantee or troubleshooting from my side.






    share|improve this answer




























      0














      Sub Savesheet()
      '
      ' Save Macro
      ' Save to Server
      '
      Dim strPath As String
      Dim strFileNm As String
      strPath = "H:/"
      ' get file name from worksheet Sheet1 cell C2
      strFileNm = Worksheets("Sheet1").Range("C2").Value & " OnShift RFI"

      ActiveWorkbook.SaveAs Filename:=strPath & strFileNm & ".xlsb", _
      FileFormat:=xlExcel52

      End Sub


      also, update the above macro according to this:



      I believe the correct parameters look like this,

      .SaveAs Filename:=strFileNm, FileFormat:=50 'xlExcel12 (Excel Binary Workbook in 2007-2013 with or without macro's, xlsb)


      refer to this page



      I googled and found the above link where it was given. No guarantee or troubleshooting from my side.






      share|improve this answer


























        0












        0








        0







        Sub Savesheet()
        '
        ' Save Macro
        ' Save to Server
        '
        Dim strPath As String
        Dim strFileNm As String
        strPath = "H:/"
        ' get file name from worksheet Sheet1 cell C2
        strFileNm = Worksheets("Sheet1").Range("C2").Value & " OnShift RFI"

        ActiveWorkbook.SaveAs Filename:=strPath & strFileNm & ".xlsb", _
        FileFormat:=xlExcel52

        End Sub


        also, update the above macro according to this:



        I believe the correct parameters look like this,

        .SaveAs Filename:=strFileNm, FileFormat:=50 'xlExcel12 (Excel Binary Workbook in 2007-2013 with or without macro's, xlsb)


        refer to this page



        I googled and found the above link where it was given. No guarantee or troubleshooting from my side.






        share|improve this answer













        Sub Savesheet()
        '
        ' Save Macro
        ' Save to Server
        '
        Dim strPath As String
        Dim strFileNm As String
        strPath = "H:/"
        ' get file name from worksheet Sheet1 cell C2
        strFileNm = Worksheets("Sheet1").Range("C2").Value & " OnShift RFI"

        ActiveWorkbook.SaveAs Filename:=strPath & strFileNm & ".xlsb", _
        FileFormat:=xlExcel52

        End Sub


        also, update the above macro according to this:



        I believe the correct parameters look like this,

        .SaveAs Filename:=strFileNm, FileFormat:=50 'xlExcel12 (Excel Binary Workbook in 2007-2013 with or without macro's, xlsb)


        refer to this page



        I googled and found the above link where it was given. No guarantee or troubleshooting from my side.







        share|improve this answer












        share|improve this answer



        share|improve this answer










        answered Feb 9 at 8:35









        VSRawatVSRawat

        15512




        15512






























            draft saved

            draft discarded




















































            Thanks for contributing an answer to Super User!


            • Please be sure to answer the question. Provide details and share your research!

            But avoid



            • Asking for help, clarification, or responding to other answers.

            • Making statements based on opinion; back them up with references or personal experience.


            To learn more, see our tips on writing great answers.




            draft saved


            draft discarded














            StackExchange.ready(
            function () {
            StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fsuperuser.com%2fquestions%2f1402137%2fconverting-xlsx-to-xlsb%23new-answer', 'question_page');
            }
            );

            Post as a guest















            Required, but never shown





















































            Required, but never shown














            Required, but never shown












            Required, but never shown







            Required, but never shown

































            Required, but never shown














            Required, but never shown












            Required, but never shown







            Required, but never shown







            Popular posts from this blog

            flock() on closed filehandle LOCK_FILE at /usr/bin/apt-mirror

            Mangá

            Eduardo VII do Reino Unido