DataTable使用方法

Function ImportSheet(ExcelSheetName)51Testing软件测试网2eCt;lJI
   Err.Clear51Testing软件测试网-nDZ*R8Wo,A2v
   Dim sheetCount

vX@D%V
W X/a0   sheetCount = DataTable.GetSheetCount51Testing软件测试网wI^@Jd~6n
   For i = 1 to sheetCount
K fCx x7n5hW0    If strcomp(ExcelSheetName, DataTable.GetSheet(i).Name) = 0 Then
)T^+n#[5\2I5H0     ImportSheet = True51Testing软件测试网*W c^#maX~}o0C6i
     Exit Function
yw X,g\6u.l0    End If
(XaLXwr7?P"W}0   Next51Testing软件测试网hQ6c4V6HE.n6b:z
   DataTable.AddSheet ExcelSheetName
X8S%LVgO0   DataTable.ImportSheet "RandallTest.xls", ExcelSheetName, ExcelSheetName
3l!yA-o!ZGl[E"}}L0   If Err.Number<>0 Then51Testing软件测试网^6V*g6U
E(Ky
    ImportSheet = False
{[`0r`0    Exit Function
G7SA8lC5?$}0   Else51Testing软件测试网!OOFn*hc
      ImportSheet = True    51Testing软件测试网
j!Z@bx
   End If51Testing软件测试网m*U!UBk,A
End Function51Testing软件测试网K
uk
l3hY5A[0Y

Function GetCellData(DTSheetName, FieldName, Row)51Testing软件测试网0Yg d},r tj.T
   Err.Clear
(c5WuF3h!hs0   Dim sheetCount
3UZ.jEJ6N su Y0   Dim blnExist51Testing软件测试网,Gj%TY8O*rHi4l
   blnExist = False51Testing软件测试网:L3I/X0O/PNnCP)?Bp
   sheetCount = DataTable.GetSheetCount51Testing软件测试网tfb8A$mb
   For i = 1 to sheetCount
2E?N*i%F0    If strcomp(DTSheetName, DataTable.GetSheet(i).Name) = 0 Then
j`\'S:x Ra[Y0     blnExist = True
v:h-I'\z0     Reporter.ReportEvent micDone, "GetSheet: "+DTSheetName, "Passed"
1ZpN} G o*g0     Exit For
i.A1F2QY9z ?.X0    End If51Testing软件测试网N#Ue:w#q]5j
   Next   51Testing软件测试网T%g[gM.P
   If Not blnExist Then51Testing软件测试网5b2eu'oN)u
    Reporter.ReportEvent micFail, "Sheet Exist: "+ DTSheetName, "Failed"
1MGN*G0A&\8w)FI6P3y0    GetCellData = False
)AhdJkc'yG0    Exit Function
}q7Xx3z2B\5v0   End If
1`9hNkQS,Co0   DataTable.SetCurrentRow Row
_6`PK9KU@V0   GetCellData = DataTable.Value(FieldName, DTSheetName)51Testing软件测试网#_2?Tfl&k:u@a
   If Err.Number<>0 Then
&\(l(p
~t ea8i3B0    Reporter.ReportEvent micFail, "GetSheetValue", "Failed"51Testing软件测试网/U:]5JUj8D,S({
    Exit Function
K4CS5j4Q u Ng0   End If51Testing软件测试网$wD$] ~*^8F7g
End Function