pb9和excel2013导出问题

[watersrc]

请教：
我以前用excel2007导出数据，可一次导出多个sheet,但excel换成2013后，就包错
如下程序：
xlsub3 = xlapp.Application.ActiveWorkbook.Worksheets[n]
xlapp.Application.ActiveWorkbook.Worksheets[n].Name = ls_custname + string(n)
m = 1
xlsub3.cells[5,8] = "DATE :" + string(ldt_plan,"yyyy-mm-dd")
xlsub3.cells[4,8] = "No : " + ls_dono
ls_kbqty = wf_kbqty(ls_dono)
li_kbpos = pos(ls_kbqty,'B')
li_a = integer(mid(ls_kbqty,2,li_kbpos - 2))
li_b = integer(right(ls_kbqty,len(ls_kbqty) - li_kbpos))
xlsub3.cells[130,5] = 'A类卡板'
xlsub3.cells[130,6] = String(f_nulltodec(li_a) ,"#,##0")
xlsub3.cells[130,9] = String(f_nulltodec(li_a * 9.2) ,"#,##0.00")
xlsub3.cells[131,5] = 'B类卡板'
xlsub3.cells[131,6] = String(f_nulltodec(li_b) ,"#,##0")
xlsub3.cells[131,9] = String(f_nulltodec(li_b * 16.7) ,"#,##0.00")
变量N可以循环往新的sheet里写数剧，
但换成excel2013后，系统提示报错
请各位大侠指正，谢谢！

[WorldMobile]

哪个地方出错了，你跟踪一下到哪行出错了 把错误的图贴上来看看

[watersrc]

不好意思，国庆放假，回帖晚了。
错误提示：
Error: Error accessing external object property worksheets at line 1 in clicked
event of object cb_8 of w_brow_bg_cust_zjck_bjsh

其实就是下面这句：
xlsub3 = xlapp.Application.ActiveWorkbook.Worksheets[n]
n 是从1循环到20，当 n = 1 是没有问题，当n = 2的时候就报上面的错误，
但excel 2007就不会报错。
求帮助！！！