5 Replies Latest reply: Nov 7, 2013 2:32 PM by Michael Solomovich RSS

    Access Point Issue :Export To Excel Macro Not Working

      Hello, I am using  VB Scrip as a Trigger to Export multiple sheets to Excel. The Macro works good on the desktop version but when i push the dashboard to Access Point nothing Happens.

       

      Can anyone suggest how to resolve this issue or where to start?

      VB Script:

       

      ----------------------------------------------------

      sub launchXL

      set oXL=CreateObject("Excel.Application")

      oXL.visible=True

      oXL.Workbooks.Add

      aSheetObj=Array("CH02", "CH03", "CH04", "CH05", "CH06", "CH07", "CH08", "CH09")

      for i=0 to UBound(aSheetObj)

      oXL.Sheets.Add  

      Set oSH = oXL.ActiveSheet

      oSH.Range("A1").Select   

      Set obj = ActiveDocument.GetSheetObject(aSheetObj(i))

      obj.CopyTableToClipboard True

      oSH.Paste

      sCaption=obj.GetCaption.Name.v

      set obj=Nothing    

      oSH.Rows("1:1").Select

      oXL.Selection.Font.Bold = True      

      oSH.Cells.Select

      oXL.Selection.Columns.AutoFit

      oSH.Range("A1").Select    

      oSH.Name=left(sCaption,30)  

      set oSH=Nothing 

      next

      set oXL=Nothing

      end sub

      ---------------------------------------------

       

      Thanks!!!