Macro help..!!!

amit_saini — Fri, 11 Apr 2014 05:15:17 GMT

Hi Folks ,

I'm having a macro which is working very well for qlikview filed , but i want this to work for expression . Please help me on this.

Current Scenario : I have created a excel template and this macro is working file for exporting any qlikview filed to the excel template.

But instead of field if I'm calling expression its not working. You can see below I'm calling "Problem Desc." in B9 cell of excel sheet which is working fine.

Now if i changed this fileName ="Test" , it is not working as this is my expression not field . Kindly help me on this.

Attached is my application and Excel Template.

sub sendToExcel

set XLApp = CreateObject("Excel.Application")

XLApp.Visible = true

set XLDoc = XLApp.Workbooks.Open("C:\Users\asaini\Desktop\Sample_A3_Template_BCAQ.xlsm") 'set path to template file

set XLSheet = XLDoc.Worksheets("A3")

XLSheet.Activate

set Doc = ActiveDocument

cellAddress = "B9" 'Cell address to paste data in Excel

fieldName = "Problem Desc." 'Field name in Qlikview

pasteData cellAddress, fieldName, Doc, XLSheet

end sub

sub pasteData(cellAddress, fieldName, Doc, XLSheet)

SET Field = Doc.Fields(fieldName).GetPossibleValues

FOR i=0 to Field.Count-1

value = Field.Item(i).Text

dataTrans = value

existingData = XLSheet.Range(cellAddress).Value

XLSheet.Range(cellAddress).Formula = existingData & chr(10) & dataTrans

end sub

Thanks,

topic Macro help..!!! in QlikView

Macro help..!!!