控制多个datawindow数据合并成一个excel导出【PB】

1. string ls_path, ls_file
2. double ll_len_path, ll_len_file
3. int li_rc
4. Long j
6. if dw_preview.RowCount() > 0 then
8. li_rc = GetFileSaveName ( "Select File", ls_path, ls_file, "XLS", "Excel Files (*.XLS), *.XLS,All Files (*.*)" , "", 32770)
9. //get the filename from user
10. ll_len_file=LastPos(ls_file,'.')
12. if li_rc = 1 then
14. OLEObject l_oleobject_excel
15. l_oleobject_excel = CREATE OLEObject
16. l_oleobject_excel.ConnectToNewObject('excel.application')
17. l_oleobject_excel.Visible = False
19. //rename
20. l_oleobject_excel.Workbooks.add()
21. ls_file=left(ls_file, long(ll_len_file)-1)+'_1'
22. l_oleobject_excel.workbooks(1).worksheets(1).name = ls_file
23. ls_file=left(ls_file, long(ll_len_file)-1)+'_2'
24. l_oleobject_excel.workbooks(1).worksheets(2).name = ls_file
25. ls_file=left(ls_file, long(ll_len_file)-1)+'_3'
26. l_oleobject_excel.workbooks(1).worksheets(3).name = ls_file
28. //insert data from dw to sheet1
29. for j=1 to dw_saveas_sku_alias.rowcount()
30. //header
31. l_oleobject_excel.workbooks(1).worksheets(1).cells(j,1).value = 'sku'
32. l_oleobject_excel.workbooks(1).worksheets(1).cells(j,2).value = 'alias'
33. l_oleobject_excel.workbooks(1).worksheets(1).cells(j,3).value = 'desc'
34. l_oleobject_excel.workbooks(1).worksheets(1).cells(j,4).value = 'default_alias'
35. l_oleobject_excel.workbooks(1).worksheets(1).cells(j,5).value = 'pack_wt'
36. l_oleobject_excel.workbooks(1).worksheets(1).cells(j,6).value = 'net_wt'
37. //detail
38. l_oleobject_excel.workbooks(1).worksheets(1).cells(j+1,1).value = dw_saveas_sku_alias.object.sku_alias_sku[j]
39. l_oleobject_excel.workbooks(1).worksheets(1).cells(j+1,2).value = dw_saveas_sku_alias.object.sku_alias_sku_alias[j]
40. l_oleobject_excel.workbooks(1).worksheets(1).cells(j+1,3).value = dw_saveas_sku_alias.object.sku_alias_alias_desc[j]
41. l_oleobject_excel.workbooks(1).worksheets(1).cells(j+1,4).value = dw_saveas_sku_alias.object.sku_alias_default_alias[j]
42. l_oleobject_excel.workbooks(1).worksheets(1).cells(j+1,5).value = dw_saveas_sku_alias.object.sku_alias_pack_wt[j]
43. l_oleobject_excel.workbooks(1).worksheets(1).cells(j+1,6).value = dw_saveas_sku_alias.object.sku_alias_net_wt[j]
44. next
46. //insert data from dw to sheet2
47. for j=1 to dw_saveas_sku_alias.rowcount()
48. //header
49. l_oleobject_excel.workbooks(1).worksheets(2).cells(j,1).value = 'sku'
50. l_oleobject_excel.workbooks(1).worksheets(2).cells(j,2).value = 'alias'
51. l_oleobject_excel.workbooks(1).worksheets(2).cells(j,3).value = 'desc'
52. l_oleobject_excel.workbooks(1).worksheets(2).cells(j,4).value = 'default_alias'
53. l_oleobject_excel.workbooks(1).worksheets(2).cells(j,5).value = 'pack_wt'
54. l_oleobject_excel.workbooks(1).worksheets(2).cells(j,6).value = 'net_wt'
55. //detail
56. l_oleobject_excel.workbooks(1).worksheets(2).cells(j+1,1).value = dw_saveas_sku_alias.object.sku_alias_sku[j]
57. l_oleobject_excel.workbooks(1).worksheets(2).cells(j+1,2).value = dw_saveas_sku_alias.object.sku_alias_sku_alias[j]
58. l_oleobject_excel.workbooks(1).worksheets(2).cells(j+1,3).value = dw_saveas_sku_alias.object.sku_alias_alias_desc[j]
59. l_oleobject_excel.workbooks(1).worksheets(2).cells(j+1,4).value = dw_saveas_sku_alias.object.sku_alias_default_alias[j]
60. l_oleobject_excel.workbooks(1).worksheets(2).cells(j+1,5).value = dw_saveas_sku_alias.object.sku_alias_pack_wt[j]
61. l_oleobject_excel.workbooks(1).worksheets(2).cells(j+1,6).value = dw_saveas_sku_alias.object.sku_alias_net_wt[j]
62. next
64. //insert data from dw to sheet3
65. for j=1 to dw_saveas_sku_alias.rowcount()
66. //header
67. l_oleobject_excel.workbooks(1).worksheets(3).cells(j,1).value = 'sku'
68. l_oleobject_excel.workbooks(1).worksheets(3).cells(j,2).value = 'alias'
69. l_oleobject_excel.workbooks(1).worksheets(3).cells(j,3).value = 'desc'
70. l_oleobject_excel.workbooks(1).worksheets(3).cells(j,4).value = 'default_alias'
71. l_oleobject_excel.workbooks(1).worksheets(3).cells(j,5).value = 'pack_wt'
72. l_oleobject_excel.workbooks(1).worksheets(3).cells(j,6).value = 'net_wt'
73. //detail
74. l_oleobject_excel.workbooks(1).worksheets(3).cells(j+1,1).value = dw_saveas_sku_alias.object.sku_alias_sku[j]
75. l_oleobject_excel.workbooks(1).worksheets(3).cells(j+1,2).value = dw_saveas_sku_alias.object.sku_alias_sku_alias[j]
76. l_oleobject_excel.workbooks(1).worksheets(3).cells(j+1,3).value = dw_saveas_sku_alias.object.sku_alias_alias_desc[j]
77. l_oleobject_excel.workbooks(1).worksheets(3).cells(j+1,4).value = dw_saveas_sku_alias.object.sku_alias_default_alias[j]
78. l_oleobject_excel.workbooks(1).worksheets(3).cells(j+1,5).value = dw_saveas_sku_alias.object.sku_alias_pack_wt[j]
79. l_oleobject_excel.workbooks(1).worksheets(3).cells(j+1,6).value = dw_saveas_sku_alias.object.sku_alias_net_wt[j]
80. next
82. //save as excel
83. l_oleobject_excel.ActiveWorkbook.SaveAs(ls_path)
84. l_oleobject_excel.Application.DisplayAlerts = False
85. l_oleobject_excel.workbooks.Close()
86. l_oleobject_excel.Quit
87. l_oleobject_excel.DisconnectObject ( )
88. DESTROY l_oleobject_excel
90. end if
91. end if