1、 PB中 把DW導(dǎo)出到Excel,與Excel通訊/=/ 事件: cb_export:clicked()/-/ 描述: 把收費(fèi)單的內(nèi)容導(dǎo)入到excel中，Excel為2003/-/ 返回值:  long/-/ 作者:    Ran (Sunday_hl)       日期: 2006.04.12-13/-/ 修改歷史: /    整理時(shí)間 2006.08.22/=String docname,namedString current_dirInteger Value/

2、=/提示文件保存地點(diǎn)current_dir = GetCurrentDirectory()Value = GetFileSaveName("文件選擇",docname,named,"xls","Excel文檔 (*.xls), *.xls")/恢復(fù)路徑ChangeDirectory(current_dir)IF Value <> 1 THEN RETURNIF FileExists(docname) THEN    IF MessageBox("提示信息","“&

3、quot; + docname + "”文檔已經(jīng)存在，rn是/否覆蓋此文檔？",Information!,YesNoCancel!,1) <> 1 THEN        RETURN    END IFEND IF/=/使用ole向excel中倒入數(shù)據(jù)OleObject uo_world,uo_sheeluo_world = CREATE OleObjectuo_sheel = CREATE OleObjectIF uo_world.ConnectToNewObject(

4、"Excel.Application") <> 0 THEN        /把ole連接到excel    MessageBox('連接到Excel錯(cuò)誤','Excel無(wú)法連接!請(qǐng)確認(rèn)是否已經(jīng)安裝了Excel!rn或者與管理員聯(lián)系!',Exclamation!)    DESTROY uo_sheel    DESTROY uo_world    &#

5、160;       RETURNEND IF/=/連接上后，對(duì)Excel進(jìn)行操作TRY    /try例行例外 控制    uo_world.DisplayAlerts = False            /強(qiáng)制執(zhí)行，不用提示    uo_world.workbooks.add()       

6、             /創(chuàng)建一個(gè)新的工作薄    uo_sheel = uo_world.ActiveSheet()        /得到當(dāng)前工作表        uo_sheel.Rows.Font.size = 10        /把默認(rèn)的字體設(shè)為 10號(hào)  

7、  uo_sheel.Rows.RowHeight = 15        /把默認(rèn)的行高設(shè)為 15        uo_sheel.Range("A1:I5").Merge()    /合并單元格    uo_sheel.Range("A1:I5").Value = "鎮(zhèn)江市XXXXXXXXXX檢測(cè)收費(fèi)明細(xì)"  &#

8、160;     /為單元格賦值    uo_sheel.Range("A1:I5").Font.Bold = true        /字體顯示為粗體    uo_sheel.Range("A1:I5").Font.size = 18            /把區(qū)域字體定義為18號(hào)   

9、 uo_sheel.Range("A1:I5").HorizontalAlignment = 3        /區(qū)域內(nèi)的字體居中，1是默認(rèn) 2是左對(duì)齊，3是居中，4是右對(duì)齊        uo_sheel.Range("A6:G6").Merge()    uo_sheel.Range("H6:I6").Merge()    uo_sheel.R

10、ange("H6:I6").Value = today()    uo_sheel.Range("H6:I6").HorizontalAlignment = 3        uo_sheel.Range("A6:I6").Borders4.LineStyle = 1        /為區(qū)域單元格畫(huà)下畫(huà)線 四個(gè)邊 順時(shí)針旋轉(zhuǎn)，線類(lèi)型1為實(shí)線2為虛線，其他不知道 

11、60;  /都差不多了，廢話的 刪除掉了.        uo_sheel.Range("A9:B9").Merge()    uo_sheel.Range("A9:B9").Value = "軟件流水號(hào)："    uo_sheel.Range("A9:B9").HorizontalAlignment = 4    uo_sheel.Ra

12、nge("C9:I9").Merge()    uo_sheel.Range("C9:I9").NumberFormat = "0"        /設(shè)置顯示格式    uo_sheel.Range("C9:I9").WrapText = True    uo_sheel.Range("C9:I9").value = dw_1.Object.acc

13、ept_nodw_1.getrow()    uo_sheel.Range("C9:I9").HorizontalAlignment = 2        uo_sheel.Range("A10:B10").Merge()    uo_sheel.Range("A10:B10").Value = "備忘錄："    uo_sheel.Range("

14、A10:B10").HorizontalAlignment = 4    uo_sheel.Range("C10:I10").Merge()    uo_sheel.Range("C10:I10").HorizontalAlignment = 2        uo_sheel.Range("A11:B11").Merge()    uo_sheel.Range(&q

15、uot;A11:B11").Value = "收費(fèi)依據(jù)："    uo_sheel.Range("A11:B11").HorizontalAlignment = 4    uo_sheel.Range("C11:I11").Merge()    uo_sheel.Range("C11:I11").Value = "收費(fèi)依據(jù):  <<XXXXX>> 蘇價(jià)費(fèi)(1996)rn41

16、7號(hào)，蘇財(cái)綜(96)153號(hào)。"    uo_sheel.Range("C11:I11").HorizontalAlignment = 2    uo_sheel.rows(11).RowHeight = uo_sheel.rows(11).RowHeight * 2        /調(diào)整當(dāng)前行的高度為2倍普通高度    /都差不多了，廢話的 刪除掉了.    

17、60;   uo_sheel.Range("A12:I12").Borders4.LineStyle = 1        /下畫(huà)線    /=    /提取子數(shù)據(jù)窗口，把其內(nèi)容添加到excel中    DataWindowChild dwc_1    /子數(shù)據(jù)窗口    Long ll_row     &#

18、160;          /子數(shù)據(jù)窗口的行    String ls_range        /保存動(dòng)態(tài)的 行數(shù)    dw_1.Object.DataWindow.Processing = 5        /讓數(shù)據(jù)窗口可以提取子數(shù)據(jù)窗口    IF dw_1.getChild("dw_item&quo

19、t;,dwc_1) = 1 Then    /提取子數(shù)據(jù)窗口                uo_sheel.Rows(13).Font.Bold = TRUE        uo_sheel.Rows(13).RowHeight = 18        uo_sheel.Range("A13:I150&qu

20、ot;).HorizontalAlignment = 3        /讓這個(gè)區(qū)域的單元格居中        uo_sheel.Range("A13:C13").Merge()        uo_sheel.Range("A13:C13").Value = "檢測(cè)項(xiàng)目"        uo_sh

21、eel.Range("D13:E13").Merge()        uo_sheel.Range("D13:E13").Value = "單價(jià)"            uo_sheel.Range("F13:G13").Merge()        uo_sheel.Range("F1

22、3:G13").Value = "樣品份數(shù)"                uo_sheel.Range("H13:I13").Merge()        uo_sheel.Range("H13:I13").Value = "小計(jì)"        

23、                FOR ll_row = 1 TO dwc_1.RowCount()        /循環(huán)提取子數(shù)據(jù)窗口中的行 并插入到excel中            ls_range = "A" + String(13 + ll_row) + ":C" +

24、String(13 + ll_row)            uo_sheel.Range(ls_range).Merge()            uo_sheel.Range(ls_range).Value = dwc_1.getitemstring(ll_row,"item_name")          

25、60;           /都差不多了，廢話的 刪除掉了              .              NEXT            uo_she

26、el.Rows(13 + ll_row).Font.Bold = TRUE        uo_sheel.Rows(12 + ll_row).RowHeight = 18                 /都差不多了，廢話的 刪除掉了         .     &#

27、160;          ls_range = "F" + String(13 + ll_row) + ":G" + String(13 + ll_row)        uo_sheel.Range(ls_range).Merge()        uo_sheel.Range(ls_range).Value = "委托樣應(yīng)交金額："

28、        uo_sheel.Range(ls_range).HorizontalAlignment = 4                ls_range = "H" + String(13 + ll_row) + ":I" + String(13 + ll_row)        uo_sheel.R

29、ange(ls_range).Merge()        uo_sheel.Range(ls_range).Value = dwc_1.GetItemNumber(1,"compute_5")                Else        MessageBox("Error","Get DataWindowChild Have A Big Error!",Exclamation!)    END IF    /=    ls_range = "A" + String(13 + ll_row) + ":I" + String(13 + ll_row)&#