总结DataTable从excel中读取数据的方法

yqx

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

centurystone

多谢

heqingbluesky

Great,haha.

lengz

'***********************************************************************
'函数说明:向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

lengz

'***********************************************************************
'函数说明:打开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

给你补充点
'***********************************************************************
'函数说明:更改单元格字体的颜色
'参数说明：
'          (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

423799223

不错不错

yqx

莫沉了

蟑螂

很好的帖子，我正找这个，这下终于找到了。先借用下了啊。