0 Replies Latest reply: Jun 7, 2011 12:23 PM by peterleenhouts RSS

    Copy Bitmap to Clipboard - Multiple QlikView Sheets

      Hello,

       

      I'm having a few issues when running a macro:

       

      1. I'm having trouble getting Qlikview to copy an image from a sheet that is not active and paste it into Excel using a macro. It is pasting a blank image into worksheet #2.

      2. I'd like to be able to Label the Excel Worksheet with a specific name.

      3. When copying the table into a worksheet I'd like it to not wrap text.

       

      Here is the script that I'm using:

       

      sub test
      
      set XLApp = CreateObject("Excel.Application") ' Define Object
      XLApp.Visible = True 'Visible set as true
      set XLDoc = XLApp.Workbooks.Add 'Open new workbook
      
      set XLSheet = XLDoc.Worksheets(1) 'Select sheet where data should be pasted
      ActiveDocument.Sheets("SH16").CopyBitmapToClipboard
      XLSheet.Paste XLSheet.Range("A1") 'Paste data into cell
      
      
      set XLSheet = XLDoc.Worksheets(2) 'Select sheet where data should be pasted
      ActiveDocument.Sheets("SH10").CopyBitmapToClipboard
      XLSheet.Paste XLSheet.Range("A1") 'Paste data into cell
      
      
      set XLSheet = XLDoc.Worksheets(3) 'Select sheet where data should be pasted
                set table = ActiveDocument.GetSheetObject("CH131") 'Select table to copy to sheet
                table.CopyTableToClipboard true
      XLSheet.Paste XLSheet.Range("A1")
      
      
      
      
      end sub
      

       

      Thanks,

      - Peter