'重要方法 ImportSheet后面的参数说明:文件路径,global名字,global 煑l�霿�
Function WriteExcel() 邃A鍢�)壠>
Dim ExcelContent(3) 薑 矁歼"N
strFileName = "E:\cntesting.xls" 'Excel文件路径 俠� 匆� J
For j = 0 to 3 a范,踟鱰砢
ExcelContent(j) = "" 竇d�=瘺e
Next
ExcelContent(1) = DataTable("I_orderId", dtGlobalSheet) 3�殬诲OZA
ExcelContent(2) = DataTable("I_orderAmountEqual", dtGlobalSheet) %嶏?美(
' 写数据到Excel文件 甤摛憞I唼
Dim Obj, Look, Sheet Z0曹?C�1s
Set Obj = CreateObject("Excel.Application") 迍礨蠓们�
Obj.Application.Visible = True 鴋原� gb<
Set Look = Obj.WorkBooks.Open(strFileName) rU;dS�#�
Set Sheet = Look.Worksheets(1) v苨9�垃蒣
For j = 1 to 2 � 嫹�"缀彬
Sheet.cells(2,j) = ExcelContent(j) {H腺.smN]�
Next T��9�
Obj.DisplayAlerts = False ｃ 檬¤荗;
Look.Close(True) W�厌b�<箈
Obj.Quit 5M燐┡鵪
Set Obj = nothing 褿尧WQY�
End Function
'--------------------------------------------------------------
'从Excel读数据 Q�
揗� 廉s
Function ReadExcel() � x怛垁╝�
datatable.AddSheet("Global")' 飩]
p ��2
datatable.ImportSheet "E:\cntesting.xls","test","Global"
Dim i,RowCount #介G饢u
i=0 * �-}揲�
RowCount=datatable.GetSheet("Global").GetRowCount ' 设置 RowCount 等于 Global中的行数。 ' 桇*�:~
msgbox RowCount �.�翉鉼�
Do while i<rowcount N6
廇mI+
i=i+1 � 馭��廤
datatable.getsheet("Global") ' 4農螊K�1婊
datatable.setcurrentrow(i) 徍
%z箸�
msgbox DataTable.GetSheet("Global").GetParameter(i).Value '取得第一列的值 i培婥暡牥
A昩墉!踘貈
datatable.setcurrentrow(n) �5�;v�&ｊ�
msgbox Datatable.GetSheet("Global").GetParameter(i+1).Value '取得第二列的值 蔂
�1z╠
msgbox datatable.getsheet("Global").getparameter("I_orderAmountEqual").RawValue'取得特定的I_orderAmountEqua列的值 ｇV=輯�
loop �>-禾
End Function 劌碪S+�
WriteExcel '写入函数调用 稍輇G"&e
ReadExcel '读出函数调用