Table export based in macro not working on Qlikview

[gaurav_2014]

sub exportToExcel_R82

Dim aryExport(4,3)

aryExport(0,0) = "CH545"
aryExport(0,1) = "HC Report"
aryExport(0,2) = "B2"
aryExport(0,3) = "data"

aryExport(1,0) = "CH546"
aryExport(1,1) = "HC Report"
aryExport(1,2) = "B50"
aryExport(1,3) = "data"

aryExport(2,0) = "CH547"
aryExport(2,1) = "HC Report"
aryExport(2,2) = "L2"
aryExport(2,3) = "data"

aryExport(3,0) = "CH548"
aryExport(3,1) = "HC Report"
aryExport(3,2) = "L40"
aryExport(3,3) = "data"

aryExport(4,0) = "CH544"
aryExport(4,1) = "Raw data"
aryExport(4,2) = "B2"
aryExport(4,3) = "data"

msgbox("Generating Excel ...")

ActiveDocument.Variables("V_Export").SetContent "0", 1

Dim objExcelWorkbook 'as Excel.Workbook
Set objExcelWorkbook = copyObjectsToExcelSheet(ActiveDocument, aryExport)

end sub