Qlikview Export To Excel Macro

Macro to export based on a column's value
For Every possible values  seperate excel file will be generated.

Sub Export1
ActiveDocument.ClearAll false
pathcorp="F:\TEST\"
set corp = ActiveDocument.GetSheetObject("CH02")
corp.ExportBiff  pathcorp & "TEST.xls"
ActiveDocument.Fields("REGION").Clear
set val=ActiveDocument.Fields("REGION").GetPossibleValues
set XLApp = CreateObject("EXCEL.application")
XLApp.Visible = FALSE
set XLDoc = XLApp.Workbooks.Add

for i=0 to val.Count-1
set MyTable = ActiveDocument.GetSheetObject("CH02")
path="F:\TEST\"
ActiveDocument.Fields("REGION").Select val.Item(i).Text
        MyTable.ExportBiff  path & val.Item(i).Text &".xls"
   
next
Set XLApp = Nothing
Set Table = Nothing

'Msgbox "Exported Sucessfully"
end sub

Click here to download script as txt file