Copy Bitmap to Clipboard - Multiple QlikView Sheets

[Anonymous]

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