怎样读取excel表

雷声之前

我想把excel表中的字段分别读取到变量中，代码该怎么写啊？，谢谢

比如，excel中有3个字段分别为1.2.3，我想把他们分别读到变量a，b，c中

hxf

Set xlApp = CreateObject("Excel.Application")
xlApp.application.visible=true
Set xlbook=xlApp.WorkBooks.Open("c:\2.xls")
Set xlSheet = xlBook.Worksheets("Sheet1")
For i=1 to 3
        input1= xlSheet.cells(i,1).value
               
next
xlApp.DisplayAlerts = False
xlbook.close(true)
xlApp.quit
Set excel=nothing
这段代码能满足你的需求。

mustwangrong

感觉直接操作excel效率更高
不过没有试过

雷声之前

问题解决，非常感谢您！

milo.jiang

呵呵，你一定是不明白globalSheet 和localSheet 的区别，建议到论坛上查找这方面的知识
【错误原因】
你将数据导入到了全局数据表globleSheet中，而不是本地数据表localSheet的"Action1"中；
而这一句aaa = DataTable.LocalSheet.GetParameter("name").ValueByRow(1)，变量的取值又是从localSheet中读取的，所以在全局数据表中当然找不到"name"列
【修改代码】
datatable.ImportSheet "c:\data.xls",1,"Action1"
aaa = DataTable.LocalSheet.GetParameter("name").ValueByRow(1)
msgbox(aaa)

雷声之前

原帖由 milo.jiang 于 2008-4-9 16:29 发表
strVariable = DataTable.LocalSheet.GetParameter("列名").ValueByRow(行号)
【举例】
列名为“NAME”,行号为“1”，则strVariable = DataTable.LocalSheet.GetParameter("NAME").ValueByRow(1)

我也是这么写的
datatable.ImportSheet "c:\data.xls",1,1
'获取数据表的总行数                                                
intTotalRows = DataTable.LocalSheet.GetRowCount

'遍历数据表的所有行
For i=1 To intTotalRows
    '获取指定单元格的值，并赋值给指定变量
    strVariable = DataTable.LocalSheet.GetParameter("name").ValueByRow(i)
Next
aaa = DataTable.LocalSheet.GetParameter("name").ValueByRow(1)
msgbox(aaa)
但是提示没有该列

milo.jiang

strVariable = DataTable.LocalSheet.GetParameter("列名").ValueByRow(行号)
【举例】
列名为“NAME”,行号为“1”，则strVariable = DataTable.LocalSheet.GetParameter("NAME").ValueByRow(1)

雷声之前

原帖由 milo.jiang 于 2008-4-9 15:46 发表
[方法一]将EXCEL中的数据导入到QTP的DATATABLE中再读取变量
'导入外部的EXCEL文件到DATATABLE指定的sheet中
DataTable.ImportSheet FileName, SheetSource, SheetDest

'获取数据表的总行数                                                
intTotalRow ...

不好意思，还有个问题，我用这个方法把数据导入到qtp中了，但是我怎么把数据取出来啊，谢谢，我是新手！！！

雷声之前

非常感谢楼上的各位，我试试

shen1936

我们可以把EXCEL文件当成数据文件，通过对EXCEL文件的读写操作，来实现数据驱动．
        可以把EXCEL文件当作对象的方式来完成写的操作
Dim Excel,ExcelSheet
Set Excel=CreateObject("Excel.Application")
Set ExcelSheet=CreateObject("Excel.Sheet")
ExcelSheet.Application.visible=true
ExcelSheet.ActiveSheet.Cells(1,1).value=１
ExcelSheet.ActiveSheet.Cells(1,2).value=２
ExcelSheet.ActiveSheet.Cells(1,3).value=３
Excel.Save "C:\test.xls"
Set ExcelSheet=Nothing
        用ADO的方式连接EXCEL文件来做读的操作

Dim conn,input,filename
filename="D:\公基本情况(tb_gsgk)-标准格式.xls" '
Set conn= createobject("ADODB.Connection")
conn.Open "rovider=Microsoft.Jet.OLEDB.4.0ersist Security Info=False;Data Source="&filename&";Extended Properties='Excel 8.0;hdr=yes'"
Set input= createobject("ADODB.Recordset")
input.Open "select * from [公基本情况-标准格式$] " ,conn,2,2
input.close
Set input=nothing


(在别人的帖子上扣的。。)

milo.jiang

[方法一]将EXCEL中的数据导入到QTP的DATATABLE中再读取变量
'导入外部的EXCEL文件到DATATABLE指定的sheet中
DataTable.ImportSheet FileName, SheetSource, SheetDest

'获取数据表的总行数                                                
intTotalRows = DataTable.LocalSheet.GetRowCount

'遍历数据表的所有行
For i=1 To intTotalRows
    '获取指定单元格的值，并赋值给指定变量
    strVariable = DataTable.LocalSheet.GetParameter("列名").ValueByRow(i)
    ......
Next