51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 5619|回复: 8
打印 上一主题 下一主题

[原创] 总结DataTable从excel中读取数据的方法

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2008-4-2 11:12:05 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
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
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 2008-4-11 23:23:23 | 只看该作者
很好的帖子,我正找这个,这下终于找到了。先借用下了啊。
回复 支持 反对

使用道具 举报

该用户从未签到

3#
 楼主| 发表于 2008-4-15 16:01:49 | 只看该作者
莫沉了
回复 支持 反对

使用道具 举报

该用户从未签到

4#
发表于 2008-7-10 12:44:02 | 只看该作者
不错不错
回复 支持 反对

使用道具 举报

该用户从未签到

5#
发表于 2008-7-10 13:56:04 | 只看该作者
给你补充点
'***********************************************************************
'函数说明:更改单元格字体的颜色
'参数说明:
'          (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
回复 支持 反对

使用道具 举报

该用户从未签到

6#
发表于 2008-7-10 13:58:30 | 只看该作者
'***********************************************************************
'函数说明:打开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
回复 支持 反对

使用道具 举报

该用户从未签到

7#
发表于 2008-7-10 13:58:52 | 只看该作者
'***********************************************************************
'函数说明:向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
回复 支持 反对

使用道具 举报

该用户从未签到

8#
发表于 2008-7-10 15:13:40 | 只看该作者
Great,haha.
回复 支持 反对

使用道具 举报

该用户从未签到

9#
发表于 2008-7-10 15:55:34 | 只看该作者
多谢
回复 支持 反对

使用道具 举报

本版积分规则

关闭

站长推荐上一条 /1 下一条

小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

GMT+8, 2024-11-12 21:25 , Processed in 0.070340 second(s), 28 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

快速回复 返回顶部 返回列表