QTP导入Execle 文件
上一篇 /
下一篇 2007-10-24 10:23:34
- 文件版本: V1.0
- 开发商: 本站原创
- 文件来源: 本地
- 界面语言: 简体中文
- 授权方式: 免费
- 运行平台: Win9X/Win2000/WinXP
找了很久，结合资料和VB。终于可以从EXCEL中读入数据 Dim conn,rst,filename Dim var
filename="E:\test.xls"
Set conn= createobject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source="&filename&";
Extended Properties='Excel 8.0;hdr=yes'"Set rst= createobject("ADODB.Recordset")
rst.Open "select * from [Sheet1$] " ,conn,1,1
result = rst.RecordCount
msgbox "RecordCount = "&result
While Not rst.EOF
var = rst.fields("a")
msgbox "Data="&var
rst.MoveNext
Wend
rst.close
Set rst=nothing
|
收藏
举报
TAG:
