循环遍历数组写入文档时出错

for (var i = 1; i <= list.length; i++){ file.Application.ActiveWorkbook.Sheets('经营收支明细').Range("A"+(i+1)).Value=list[i-1][0] file.Application.ActiveWorkbook.Sheets('经营收支明细').Range("B"+(i+1)).Value=list[i-1][1]
if (list[i-1][6]=="支付"){
file.Application.ActiveWorkbook.Sheets('经营收支明细').Range("C"+(i+1)).Value=-1*list[i-1][2].replace(/,/g,'')
}
else{
file.Application.ActiveWorkbook.Sheets('经营收支明细').Range("C"+(i+1)).Value=list[i-1][2].replace(/,/g,'')
}
file.Application.ActiveWorkbook.Sheets('经营收支明细').Range("D"+(i+1)).Value=list[i-1][3]
file.Application.ActiveWorkbook.Sheets('经营收支明细').Range("E"+(i+1)).Value=list[i-1][4]
file.Application.ActiveWorkbook.Sheets('经营收支明细').Range("F"+(i+1)).Value=list[i-1][5]
file.Application.ActiveWorkbook.Sheets('经营收支明细').Range("G"+(i+1)).Value=list[i-1][6]
}
以上代码的list有6000多行，每一行又是一个小数组，请出现以下错误提示是什么原因，如何解决？

Error:Time Limit