51Testing软件测试论坛

标题: 总结DataTable从excel中读取数据的方法 [打印本页]

作者: yqx 时间: 2008-4-2 11:12
标题: 总结DataTable从excel中读取数据的方法
Option explicit
Dim rowcount'存储数据总行数
Dim filepath'获取excel表格路径
Dim i'循环变量
filepath=pathfinder.Locate("webmail_option_preference_hintSendSuccess.xls")
datatable.Import(filepath)'excel表中只有一个sheet有数据使用Import,如果excel中多个sheet有数据，这里就要使用ImportSheet来指定具体导入哪一sheet表的数据了
rowcount=datatable.GetRowCount'统计行数
For i=0 to rowcount-1
datatable.GetCurrentRow '置当前行为活动行
send=datatable.Value("send")'这里Value("send")中的send为excel中的列名，是在设计测试数据时确定的
name1=datatable.Value("name1")'同上
。。。。。。
datatable.SetNextRow'下一行
If datatable.GetCurrentRow>rowcount Then '当前行大于总行数，退出循环
Exit for
End If
Next

作者: 蟑螂 时间: 2008-4-11 23:23
很好的帖子，我正找这个，这下终于找到了。先借用下了啊。

作者: yqx 时间: 2008-4-15 16:01
莫沉了

作者: 423799223 时间: 2008-7-10 12:44
不错不错

作者: lengz 时间: 2008-7-10 13:56
给你补充点
'***********************************************************************
'函数说明:更改单元格字体的颜色
'参数说明：
'       (1)Set_wkSheet工作表名称
'       (2)row:列的序号;
'       (3)column:行的序号;
'       (4)lx:类型，（zt：字体；dyg：单元格），空或其他为字体。
'       (5)color:将字体改变为什么颜色
'
'常数值描述
'vbBlack &h00 黑色
'vbRed &hFF 红色
'vbGreen &hFF00 绿色
'vbYellow &hFFFF 黄色
'vbBlue &hFF0000 蓝色
'vbMagenta &hFF00FF 紫色
'vbCyan &hFFFF00 青色
'vbWhite &hFFFFFF 白色
'
'***********************************************************************
Function AlterColor(Set_wkSheet,row,column,lx,Color)
Dim wksheet1
Dim cell
Set wkSheet1 = wkBook.Worksheets(Set_wkSheet)
Set cell=wkSheet1.Cells(row, column)
Select Case lcase(lx)
   Case "zt" cell.Font.Color=color '改变字体颜色
   Case "dyg" cell.Interior.Color=color '改变单元格颜色
   Case Else cell.Font.Color=color
    End Select
set wkSheet1 = Nothing
End Function

作者: lengz 时间: 2008-7-10 13:58
'***********************************************************************
'函数说明:打开Excel文件。
'参数说明：
' path：要调用的Excel文件的路径 .如（"c:\test.xls")
' open: 是否打开Excel程序打开文件，Y为使用，空或其他为不使用
'***********************************************************************
Sub OpenExcel(path,open)
Set ExcelApp = CreateObject("Excel.Application")
Set wkBook = ExcelApp.workbooks.open(path)
If open="y" Then
ExcelApp.Application.Visible=True
End If
End Sub

作者: lengz 时间: 2008-7-10 13:58
'***********************************************************************
'函数说明:向excelSheet单元格输入值。
'参数说明：
'       (1)Set_wkSheet工作表名称
'       (2)row:列的序号;
'       (3)column:行的序号;
'       (4)value:要输入的值
'***********************************************************************
Function SetCellValue(Set_wkSheet,row,column,value)
Dim wksheet1
Set wkSheet1 = wkBook.Worksheets(Set_wkSheet)
wkSheet1.Cells(row, column) = value
Set wkSheet1

作者: heqingbluesky 时间: 2008-7-10 15:13
Great,haha.

作者: centurystone 时间: 2008-7-10 15:55
多谢

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)