Import Excel Data to Pb DW

For more information, see my resources.

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

 

1. // ================================================ ====================================
2. // Event: cb_1: clicked ()
3. //--------------------------------------------------------------------
4. // Description: Two Methods
5. // 1. Read data in one row through an array (defining data is troublesome)
6. // 2. directly use the clipboard
7. // Method used by netizens
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/desktop/new folder (3)/test.xls"
23. Dw_1.reset () // clean DW
25. String a [1000,1000]
26. Integer I, j, li_ret
29. Li_ret = getfileopenname ('select 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 ('error message', 'invalid call ')
43. Case-2
44. MessageBox ('error message', 'class name not discovered ')
45. Case-3
46. MessageBox ('error message', 'object cannot be create ')
47. Case-4
48. MessageBox ('error message', 'file cannot be connected ')
49. Case-5
50. MessageBox ('error message', 'cannot connect current object ')
51. Case-6
52. MessageBox ('error message', 'invalid file ')
53. Case-7
54. MessageBox ("error prompt", "the file does not exist or has been opened ")
55. Case-8
56. MessageBox ("error message", "the server cannot load the selected file ")
57. Case-9
58. MessageBox ("error prompt", "other errors ")
59. End choose
60. Return
61. End if
64. Excelserver. workbooks. Open (ls_path, 0, false)
65. // After modifying the xls file, do you need to give a warning when closing the file.
66. Excelserver. application. displayalerts = false
67. // Select the sheets table
68. // Excelserver. activeworkbook. worksheets ("sheet2"). Select ()
69. // Method 1:
70. Int li_rows, li_columns
71. Li_rows = excelserver. activesheet. usedrange. Rows. Count // get the total number of rows
72. Li_columns = excelserver. activesheet. usedrange. Columns. Count // get the total number of rows
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] // obtain the first sheet of the current work.
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
86. End
89. // Method 2: Use the clipboard
90. Excelserver. activesheet. cells. Copy
91. Dw_1.importclipboard (2) // The title required for data import
93. Excelserver. application. activeworkbook. Close (false)
94. Excelserver. application. Quit ()
95. Excelserver. disconnectobject ()