'重要方法   ImportSheet后面的参数说明:文件路径,global名字,global 谠�祰$峡G  
Function WriteExcel() ﹕]�6c9  
   Dim ExcelContent(3) Ra灤��胷*  
   strFileName = "E:\cntesting.xls"  'Excel文件路径 衎ょ＠秉�  
   For j = 0 to 3 繽��9{踅�  
   ExcelContent(j) = "" 鍡7鈠$-`�  
 Next

 ExcelContent(1) = DataTable("I_orderId", dtGlobalSheet) XVy�4�H�+  
 ExcelContent(2) = DataTable("I_orderAmountEqual", dtGlobalSheet) ���!蛵嵧+2  
' 写数据到Excel文件 煉B@"6�+蚬  
 Dim Obj, Look, Sheet EǐZ盁蠏�  
 Set Obj = CreateObject("Excel.Application")  *]昺Ej�4  
 Obj.Application.Visible = True C杻P睻�灹  
 Set Look = Obj.WorkBooks.Open(strFileName) ^w肾�馆  
 Set Sheet = Look.Worksheets(1) rqL1濩�?  
 For j = 1 to 2 D�A彣�8毰  
   Sheet.cells(2,j) = ExcelContent(j) Bt�柌卧�  
 Next 鯠w怐�i.&  
 Obj.DisplayAlerts = False t�$[.鯅�!K  
 Look.Close(True) 0��訁罥�  
 Obj.Quit b=���/�""  
 Set Obj = nothing !曣疙,U  
End Function

'--------------------------------------------------------------

'从Excel读数据 �'2.鶀)>  
Function ReadExcel() 痕^R����  
 datatable.AddSheet("Global")' è4�:暬j  
 datatable.ImportSheet "E:\cntesting.xls","test","Global"

 Dim i,RowCount �3j铮y[�  
 i=0 髈<婿�b�  
 RowCount=datatable.GetSheet("Global").GetRowCount ' 设置 RowCount 等于 Global中的行数。 ' *娉r譸��  
 msgbox RowCount ~罵b:P��  
 Do while i<rowcount v"雙唃|鋋b  
 i=i+1 �Z_９*旿n  
 datatable.getsheet("Global") ' �8鶐�$撳祮  
 datatable.setcurrentrow(i) 趛�2毙�:y  
 msgbox DataTable.GetSheet("Global").GetParameter(i).Value '取得第一列的值 D樾鹶�貟盌  
  f樽E痘��j  
 datatable.setcurrentrow(n) N�k~�� wN�  
 msgbox Datatable.GetSheet("Global").GetParameter(i+1).Value '取得第二列的值 #應�÷U {  
 msgbox datatable.getsheet("Global").getparameter("I_orderAmountEqual").RawValue'取得特定的I_orderAmountEqua列的值 g慧zV禶�  
 loop 3�鴘忴罻G  
End Function x$[z娡i��  
WriteExcel   '写入函数调用 �/ゾ繐姞  
ReadExcel    '读出函数调用