Macro script not working

Anonymous — Tue, 04 Mar 2014 09:00:53 GMT

Hi,

Can someone help me with the below script that is not working and I cannot figure out why??

The first message box came out but after that nothing more happens.

Sub UpdateCRCOutletCode

    Dim myDIS_DistributorCode, myDIS_OutletCode, myCRC_Outlet_ID
    Dim tmpKey
    Dim objCellFound

    myDIS_DistributorCode = ActiveDocument.Variables("vSelectedDistributorCode").GetContent().String
    myDIS_OutletCode = ActiveDocument.Variables("vSelectedOutletID").GetContent().String
    myCRC_Outlet_ID = ActiveDocument.Variables("vSelectedCRCOutletID").GetContent().String

MsgBox(myDIS_DistributorCode)

Dim objShell

Set objShell = Wscript.CreateObject("WScript.Shell")

strVBS = "C:\Users\kohN01\Documents\CIS\TWN\CRC Replacement\Conceptual Solution Testing\Test.vbs"
objShell.Run strVBS & " " & myDIS_DistributorCode & " " & myDIS_OutletCode & " " & myCRC_Outlet_ID

Set objShell = Nothing

End sub

Please help. Thx.

rgds,
Nickson

topic Macro script not working in QlikView

Macro script not working