最近項目需要,需要把多個datawindow的數據合併成一個excel導出。本地項目沒有其他代碼借鑑,自己接觸PB頂多3個月時間,而網上關於PB的消息少之又少。前些日子在powerbuilder論壇發個帖子求組,幸運得到powerbuilder版主和一位熱心網友提示,通過自己不斷地coding and debug, 我想要的效果終於得到了,:-)
現在我把源碼貢獻出來,大家一起學習,歡迎和我交流。
string ls_path, ls_file
double ll_len_path, ll_len_file
int li_rc
Long j
if dw_preview.RowCount() > 0 then
li_rc = GetFileSaveName ( "Select File", ls_path, ls_file, "XLS", "Excel Files (*.XLS), *.XLS,All Files (*.*)" , "", 32770)
//get the filename from user
ll_len_file=LastPos(ls_file,'.')
if li_rc = 1 then
OLEObject l_oleobject_excel
l_oleobject_excel = CREATE OLEObject
l_oleobject_excel.ConnectToNewObject('excel.application')
l_oleobject_excel.Visible = False
//rename
l_oleobject_excel.Workbooks.add()
ls_file=left(ls_file, long(ll_len_file)-1)+'_1'
l_oleobject_excel.workbooks(1).worksheets(1).name = ls_file
ls_file=left(ls_file, long(ll_len_file)-1)+'_2'
l_oleobject_excel.workbooks(1).worksheets(2).name = ls_file
ls_file=left(ls_file, long(ll_len_file)-1)+'_3'
l_oleobject_excel.workbooks(1).worksheets(3).name = ls_file
//insert data from dw to sheet1
for j=1 to dw_saveas_sku_alias.rowcount()
//header
l_oleobject_excel.workbooks(1).worksheets(1).cells(j,1).value = 'sku'
l_oleobject_excel.workbooks(1).worksheets(1).cells(j,2).value = 'alias'
l_oleobject_excel.workbooks(1).worksheets(1).cells(j,3).value = 'desc'
l_oleobject_excel.workbooks(1).worksheets(1).cells(j,4).value = 'default_alias'
l_oleobject_excel.workbooks(1).worksheets(1).cells(j,5).value = 'pack_wt'
l_oleobject_excel.workbooks(1).worksheets(1).cells(j,6).value = 'net_wt'
//detail
l_oleobject_excel.workbooks(1).worksheets(1).cells(j+1,1).value = dw_saveas_sku_alias.object.sku_alias_sku[j]
l_oleobject_excel.workbooks(1).worksheets(1).cells(j+1,2).value = dw_saveas_sku_alias.object.sku_alias_sku_alias[j]
l_oleobject_excel.workbooks(1).worksheets(1).cells(j+1,3).value = dw_saveas_sku_alias.object.sku_alias_alias_desc[j]
l_oleobject_excel.workbooks(1).worksheets(1).cells(j+1,4).value = dw_saveas_sku_alias.object.sku_alias_default_alias[j]
l_oleobject_excel.workbooks(1).worksheets(1).cells(j+1,5).value = dw_saveas_sku_alias.object.sku_alias_pack_wt[j]
l_oleobject_excel.workbooks(1).worksheets(1).cells(j+1,6).value = dw_saveas_sku_alias.object.sku_alias_net_wt[j]
next
//insert data from dw to sheet2
for j=1 to dw_saveas_sku_alias.rowcount()
//header
l_oleobject_excel.workbooks(1).worksheets(2).cells(j,1).value = 'sku'
l_oleobject_excel.workbooks(1).worksheets(2).cells(j,2).value = 'alias'
l_oleobject_excel.workbooks(1).worksheets(2).cells(j,3).value = 'desc'
l_oleobject_excel.workbooks(1).worksheets(2).cells(j,4).value = 'default_alias'
l_oleobject_excel.workbooks(1).worksheets(2).cells(j,5).value = 'pack_wt'
l_oleobject_excel.workbooks(1).worksheets(2).cells(j,6).value = 'net_wt'
//detail
l_oleobject_excel.workbooks(1).worksheets(2).cells(j+1,1).value = dw_saveas_sku_alias.object.sku_alias_sku[j]
l_oleobject_excel.workbooks(1).worksheets(2).cells(j+1,2).value = dw_saveas_sku_alias.object.sku_alias_sku_alias[j]
l_oleobject_excel.workbooks(1).worksheets(2).cells(j+1,3).value = dw_saveas_sku_alias.object.sku_alias_alias_desc[j]
l_oleobject_excel.workbooks(1).worksheets(2).cells(j+1,4).value = dw_saveas_sku_alias.object.sku_alias_default_alias[j]
l_oleobject_excel.workbooks(1).worksheets(2).cells(j+1,5).value = dw_saveas_sku_alias.object.sku_alias_pack_wt[j]
l_oleobject_excel.workbooks(1).worksheets(2).cells(j+1,6).value = dw_saveas_sku_alias.object.sku_alias_net_wt[j]
next
//insert data from dw to sheet3
for j=1 to dw_saveas_sku_alias.rowcount()
//header
l_oleobject_excel.workbooks(1).worksheets(3).cells(j,1).value = 'sku'
l_oleobject_excel.workbooks(1).worksheets(3).cells(j,2).value = 'alias'
l_oleobject_excel.workbooks(1).worksheets(3).cells(j,3).value = 'desc'
l_oleobject_excel.workbooks(1).worksheets(3).cells(j,4).value = 'default_alias'
l_oleobject_excel.workbooks(1).worksheets(3).cells(j,5).value = 'pack_wt'
l_oleobject_excel.workbooks(1).worksheets(3).cells(j,6).value = 'net_wt'
//detail
l_oleobject_excel.workbooks(1).worksheets(3).cells(j+1,1).value = dw_saveas_sku_alias.object.sku_alias_sku[j]
l_oleobject_excel.workbooks(1).worksheets(3).cells(j+1,2).value = dw_saveas_sku_alias.object.sku_alias_sku_alias[j]
l_oleobject_excel.workbooks(1).worksheets(3).cells(j+1,3).value = dw_saveas_sku_alias.object.sku_alias_alias_desc[j]
l_oleobject_excel.workbooks(1).worksheets(3).cells(j+1,4).value = dw_saveas_sku_alias.object.sku_alias_default_alias[j]
l_oleobject_excel.workbooks(1).worksheets(3).cells(j+1,5).value = dw_saveas_sku_alias.object.sku_alias_pack_wt[j]
l_oleobject_excel.workbooks(1).worksheets(3).cells(j+1,6).value = dw_saveas_sku_alias.object.sku_alias_net_wt[j]
next
//save as excel
l_oleobject_excel.ActiveWorkbook.SaveAs(ls_path)
l_oleobject_excel.Application.DisplayAlerts = False
l_oleobject_excel.workbooks.Close()
l_oleobject_excel.Quit
l_oleobject_excel.DisconnectObject ( )
DESTROY l_oleobject_excel
end if
end if