2 Replies Latest reply: May 15, 2014 9:58 AM by Nick Osdale-Popa RSS

    Export All

    Ontiveros _

      I have the following code attached to a command button in an MS Access database:


      Private Sub cmdImportDailyRecords_Click()


          Dim MonarchObj As Object

          Set MonarchObj = CreateObject("Monarch32")

          MonarchObj.SetProjectFile ("G:GROUPSEVERYONEReconMonarchProjectsUS Bank12602110.xprj")

          MonarchObj.ExportTable ("G:GROUPSEVERYONEReconUSBank12602110.csv")



          Set MonarchObj = Nothing


      Recently, I have added several project exports to the project. Does anyone know what would I need to add to this code in order to export all of project exports at once?

        • Export All
          Data Kruncher



          Though I haven't tried it myself, assuming that all of your exports are defined, and you're using v8, it should be as straightforward as adding [font="courier"]  ExportSuccess = MonarchObj.RunAllExports()[/font][/quote]instead of  [font="courier"]  MonarchObj.ExportTable(...)[/font][/quote]Does this work for you?



          • Export All
            Nick Osdale-Popa

            Be advised, though, that the RunAllExports() function is a V8 Pro[/i][/b] function only. For prior versions, you can use a loop to run all your exports.