Excel的数据导入到PB的DW中

详细在我的资源中，欢迎下载。

http://download.youkuaiyun.com/user/happyflystone

1. //====================================================================
2. //Event:cb_1::clicked()
3. //--------------------------------------------------------------------
4. //Description:两种方法进行
5. //1、通过数组一行一行读入(定义数据有点麻烦)
6. //2、通过剪贴板直接
7. //网友自行选择用哪种方法
8. //--------------------------------------------------------------------
9. //Arguments:(None)
10. //--------------------------------------------------------------------
11. //Returns:
12. //--------------------------------------------------------------------
13. //Author:FlyStoneDate:2008-09-1317:31:44Sep
14. //--------------------------------------------------------------------
15. //ModifyHistory:
16. //
17. //--------------------------------------------------------------------
18. //Copyright(C)2007-008FlystoneCo.,Ltd!Allrightsreserved.
19. //====================================================================
21. Stringls_path,ls_name
22. ls_path="C:\DocumentsandSettings\Administrator.FLYSTONE\桌面\新建文件夹(3)\test.xls"
23. dw_1.Reset()//cleanDW
25. Stringa[1000,1000]
26. Integeri,j,li_ret
29. li_ret=GetFileopenName('选择XLS',ls_path,ls_name,"XLS","EXCEL(*.XLS),*.XLS")
30. ifli_ret<>1thenreturn
34. OLEObjectExcelServer
35. Intli_ConnectErr
37. ExcelServer=CreateOLEObject
38. li_ConnectErr=ExcelServer.ConnectToNewObject("excel.application")
39. Ifli_ConnectErr<0Then
40. ChooseCaseli_ConnectErr
41. Case-1
42. MessageBox('错误提示','无效的调用')
43. Case-2
44. MessageBox('错误提示','类名没发现')
45. Case-3
46. MessageBox('错误提示','对象不能创建')
47. Case-4
48. MessageBox('错误提示','文件不能连接')
49. Case-5
50. MessageBox('错误提示','不能连接现在的对象')
51. Case-6
52. MessageBox('错误提示','文件无效')
53. Case-7
54. MessageBox("错误提示","文件不存在或已经打开")
55. Case-8
56. MessageBox("错误提示","服务器不能装载选择的文件")
57. Case-9
58. MessageBox("错误提示","其他错误")
59. EndChoose
60. Return
61. EndIf
64. ExcelServer.Workbooks.Open(ls_path,0,False)
65. //对XLS文件进行了改动以后，在关闭该文件时是否需要向用户提出警告。
66. ExcelServer.Application.DisplayAlerts=False
67. //选择sheets表
68. //ExcelServer.activeworkbook.worksheets("sheet2").Select()
69. //方法一：
70. Intli_rows,li_columns
71. li_rows=ExcelServer.ActiveSheet.UsedRange.Rows.Count//取得总行数
72. li_columns=ExcelServer.ActiveSheet.UsedRange.columns.Count//取得总行数
74. //#ofcolumnsinexcel
75. sle_2.Text=TRIM(STRING(li_rows))
76. //#ofrowsinexcel
77. sle_1.Text=STRING(li_columns)
78. //lole_sheet=ole_1.Application.ActiveWorkbook.WorkSheets[1]//得到第当前work的第一个sheet
80. fori=1toli_rows
81. dw_1.insertrow(0)
82. forj=1toli_columns
83. a[i,j]=string(ExcelServer.ActiveSheet.Cells(i,j).value)
84. dw_1.Setitem(i,j,a[i,j])
85. endfor
86. endfor
89. //方法二，利用剪贴板
90. ExcelServer.ActiveSheet.cells.Copy
91. dw_1.ImportClipboard(2)//导入数据需要标题
93. ExcelServer.Application.activeworkbook.Close(False)
94. ExcelServer.Application.quit()
95. ExcelServer.DisconnectObject()