14 Replies Latest reply: Sep 12, 2014 3:22 AM by Mark Munich RSS

    Macro Export and Save

    Mark Munich

      hallo,

       

      I have exported qlikview sheet object to Excel using the following code, It works perfectly, when triggered, an Excel document is appearing,  but i want  to save it automatically to a Location. any help or Suggestion how to do it.

       

      FUNCTION ExcelExport(objID)
      set obj = ActiveDocument.GetSheetObject( objID )
        w = obj.GetColumnCount
        if obj.GetRowCount>1001 then
          h=1000
        else h=obj.GetRowCount
        end if
        Set objExcel = CreateObject("Excel.Application")
        objExcel.Workbooks.Add
        objExcel.Worksheets(1).select()
        objExcel.Visible = True
        set CellMatrix = obj.GetCells2(0,0,w,h)
        column = 1
        for cc=0 to w-1
         objExcel.Cells(1,column).Value = CellMatrix(0)(cc).Text
         objExcel.Cells(1,column).EntireRow.Font.Bold = True
         column = column +1
        next
      c = 1
        r =2
        for RowIter=1 to h-1
          for ColIter=0 to w-1
            objExcel.Cells(r,c).Value = CellMatrix(RowIter)(ColIter).Text
            c = c +1
          next
         r = r+1
         c = 1
      next
      END FUNCTION
      SUB CallExample
         ExcelExport( "CH06" )
      END SUB

       

       

      Thanks

       

      Mark