51Testing软件测试论坛

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

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

12
返回列表 发新帖
楼主: yao2631488
打印 上一主题 下一主题

[原创] QTP 如何调用外部xls,不用手动导入的方法;

[复制链接]

该用户从未签到

21#
发表于 2013-1-15 10:30:43 | 只看该作者
Dim Conn  
Dim rs  
Dim i  
Dim sql  

'On Error Resume Next
xlsFile="D:\........\book.xls" 'EXCEL路径与文件名
Set fso=CreateObject("scripting.filesystemobject")

If fso.FileExists(xlsFile) Then
Set Conn=CreateObject("ADODB.Connection")
Set rs=CreateObject("ADODB.Recordset")
strSheetName="sheet1" 'EXCEL表名
Conn.Open "rovider=Microsoft.Jet.OLEDB.4.0ersist Security Info=False;Data Source="&xlsFile&";Extended Properties='Excel 8.0;HDR=Yes'" '连接EXCEL文件
sql = "select * from [" & strSheetName & "$]" 'ooo
rs.Open sql, Conn,3,3
rs.MoveFirst
If RS.BOF=False Then
viewdata=rs.GetRows
'获取二维数组的长度 UBound(<数组>[,<维数>])
For row=0 To UBound(viewdata,2)
        For col=0 To UBound(viewdata,1)
        STRsql=STRsql&viewdata(col,row)&  "  "
        Next
        STRsql=STRsql&vbCrLf
Next
End If
rs.Close '关闭数据集
Conn.Close '关闭对象
MsgBox strsql
Else
        openXlsFile="所打开的文件不存在,请检查路径是否正确"
End If
回复 支持 反对

使用道具 举报

该用户从未签到

22#
发表于 2013-1-15 10:36:24 | 只看该作者
俩个偷笑的的表情分别是P和 ;     P
回复 支持 反对

使用道具 举报

本版积分规则

关闭

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

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

GMT+8, 2024-11-22 02:00 , Processed in 0.065864 second(s), 21 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

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