pb操作Excel文件多个sheet（留存备查）

oleobject lole_export
lole_export = create oleobject

lole_export.ConnectToNewObject('excel.application')
lole_export.Workbooks.add()

ll_count = lole_export.workbooks(1).worksheets.count
lds_area.retrieve(dw_browse.object.consignment_code.primary)
for i = 1 to lds_area.rowcount()
dw_export.setfilter('')
dw_export.filter()
dw_export.setfilter("area_code = '" + lds_area.object.area_code[i] + "'")
dw_export.filter()
if dw_export.rowcount() > 0 then
ls_area_code = lds_area.object.area_code[i]
if i < 4 then
if ls_area_code = '' or isnull(ls_area_code) then ls_area_code = '没有区域代码'
lole_export.workbooks(1).worksheets(i).name = ls_area_code
else
lole_export.workbooks(1).worksheets.add()
if ls_area_code = '' or isnull(ls_area_code) then ls_area_code = '没有区域代码'
lole_export.workbooks(1).worksheets(1).name = ls_area_code
      lole_export.workbooks(1).worksheets(1).move(lole_export.workbooks(1).worksheets(i))
lole_export.workbooks(1).worksheets(i).move(lole_export.workbooks(1).worksheets(i - 1))
end if
for j = 1 to dw_export.rowcount()
     lole_export.workbooks(1).worksheets(ls_area_code).cells(j,1).NumberFormat = "@" 
lole_export.workbooks(1).worksheets(ls_area_code).cells(j,1).value = dw_export.object.compute_1[j]
lole_export.workbooks(1).worksheets(ls_area_code).cells(j,2).value = '深圳市泽田贸易有限公司'
lole_export.workbooks(1).worksheets(ls_area_code).cells(j,3).value = dw_export.object.po_code[j]
lole_export.workbooks(1).worksheets(ls_area_code).cells(j,4).value = dw_export.object.store_code[j]
lole_export.workbooks(1).worksheets(ls_area_code).cells(j,5).value = string(dw_export.object.qty[j])
next
lole_export.workbooks(1).worksheets(ls_area_code).cells(j + 1,1).value = '区域代码:' + dw_export.object.area_code[1]
//lole_export.workbooks(1).worksheets(ls_area_code).cells(j,2).value = '深圳市泽田贸易有限公司'
lole_export.workbooks(1).worksheets(ls_area_code).cells(j + 1,3).value = '总计'
lole_export.workbooks(1).worksheets(ls_area_code).cells(j + 1,4).value = string(dw_export.object.compute_4[1])
lole_export.workbooks(1).worksheets(ls_area_code).cells(j + 1,5).value = string(dw_export.object.compute_5[1])
end if
next

lole_export.Workbooks(1).Saveas(ls_filepath)

lole_export.workbooks.close()
     lole_export.quit()
lole_export.DisconnectObject ()