Set qv = CreateObject("QlikTech.QlikView")
Set objDoc = qv.openDocEx(strMaster,0,false,"","","",false)

' If necesary set multiple fields
objDoc.Fields(strField).Select strValue
objDoc.ReduceData

objDoc.SaveAs strSavePath
objDoc.GetApplication.Quit