topic Re: Export Macro in QlikView

Export Macro

samuel_brierley — Mon, 03 Aug 2015 13:19:23 GMT

Hi all,

for some reason the below code keeps getting stuck at the goto clause

thanks for any help on this guys.

Sub ExportGraph()

Set objWord = CreateObject("Word.Application")

objWord.visible =true

objWord.Documents.open "C:\Users\samuel.brierley\Desktop\External Projects\NRA\NRA_ITS_EMC_Report_Template.docx"

Const wdOrientLandscape = 1

ActiveDocument.GetSheetObject("CH18").CopyBitmapToClipboard

GoTo What:=objWord.wdGoToBookmark, Name:="Equipment_Added"
With ActiveDocument.Bookmarks
.DefaultSorting = wdSortByName
.ShowHidden = False
End With
Selection.PasteSpecial Link:=False, DataType:=wdPasteBitmap, Placement:= _
wdInLine, DisplayAsIcon:=False

end sub

Re: Export Macro

m_woolf — Mon, 03 Aug 2015 13:25:02 GMT

I believe that the only way to use GoTo in vbscript is with error handling:

On Error GoTo What

Re: Export Macro

marcus_sommer — Mon, 03 Aug 2015 13:30:13 GMT

Within qlikview only On Error Resume Next is available.

- Marcus

Re: Export Macro

samuel_brierley — Mon, 03 Aug 2015 13:30:55 GMT

That was recorded within word, the idea is to GoTo the bookmark and paste the image there

Re: Export Macro

samuel_brierley — Mon, 03 Aug 2015 13:35:27 GMT

This works,

Set objWord = CreateObject("Word.Application")

objWord.visible =true

objWord.Documents.open "C:\Users\samuel.brierley\Desktop\External Projects\NRA\NRA_ITS_EMC_Report_Template.docx"

Const wdOrientLandscape = 1

ActiveDocument.GetSheetObject("CH18").CopyBitmapToClipboard

objWord.wdGoToBookmark "Equipment_Added"
With ActiveDocument.Bookmarks
.DefaultSorting = wdSortByName
.ShowHidden = False
End With
Selection.PasteSpecial Link=False, DataType=wdPasteBitmap, Placement= wdInLine, DisplayAsIcon=False

end sub