pb中excel文件导入dw中源代码（学习备查）

1. //====================================================================
2. // Event:cb_1::clicked()
3. //--------------------------------------------------------------------
4. // Description:两种方法进行
5. //1、通过数组一行一行读入(定义数据有点麻烦)
6. //2、通过剪贴板直接
7. //网友自行选择用哪种方法
8. //--------------------------------------------------------------------
9. // Arguments:(None)
10. //--------------------------------------------------------------------
11. // Returns:
12. //--------------------------------------------------------------------
13. // Author:  FlyStone        Date: 2008-09-13 17:31:44 Sep
14. //--------------------------------------------------------------------
15. // Modify History:
16. //  
17. //--------------------------------------------------------------------
18. // Copyright (C) 2007-008 Flystone Co.,Ltd! All rights reserved.
19. //====================================================================
21. String ls_path,ls_name
22. ls_path = "C:/Documents and Settings/Administrator.FLYSTONE/桌面/新建文件夹 (3)/test.xls"
23. dw_1.Reset() //clean DW
25. String a[1000,1000]
26. Integer i,j,li_ret
29. li_ret = GetFileopenName('选择XLS',ls_path,ls_name,"XLS","EXCEL (*.XLS),*.XLS")
30. if li_ret <> 1 then return
34. OLEObject ExcelServer
35. Int li_ConnectErr
37. ExcelServer = Create OLEObject
38. li_ConnectErr = ExcelServer.ConnectToNewObject( "excel.application" )
39. If li_ConnectErr < 0 Then
40.     Choose Case li_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.     End Choose
60.     Return
61. End If
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. Int li_rows,li_columns
71. li_rows = ExcelServer.ActiveSheet.UsedRange.Rows.Count //取得总行数
72. li_columns= ExcelServer.ActiveSheet.UsedRange.columns.Count //取得总行数
74. // # of columns in excel
75. sle_2.Text = TRIM(STRING(li_rows))
76. // # of rows in excel
77. sle_1.Text = STRING(li_columns)
78. //lole_sheet = ole_1.Application.ActiveWorkbook.WorkSheets[1] //得到第当前work的第一个sheet
80. for i = 1 to li_rows
81.      dw_1.insertrow(0)
82.      for j = 1 to li_columns
83.           a[i,j] = string(ExcelServer.ActiveSheet.Cells(i,j).value)
84.           dw_1.Setitem(i,j,a[i,j])
85.      end for
86. end for
89. //方法二，利用剪贴板
90. ExcelServer.ActiveSheet.cells.Copy
91. dw_1.ImportClipboard(2) //导入数据需要标题   
93. ExcelServer.Application.activeworkbook.Close(False)
94. ExcelServer.Application.quit()
95. ExcelServer.DisconnectObject()

http://download.csdn.net/user/happyflystone