QTP在读取外部EXCEL时的问题~~

yt1985cncn

QTP在读取外部EXCEL文件时有这样一句，Set wkBook=xlApp.wookbooks.open(路径),这里的路径能不能为相对路径啊？如果是相对路径的话，QTP能找到吗？另外改成相对路径的话，还需要改其他什么地方伐？

sidneylover

你说的相对路径是什么，如果是放在Action保存的目录里的话可以这样
Environment("TestDir")获取文件路径，保存在变量里如aa，然后就可以直接加XLS文件了

yt1985cncn

我的意思是无论这个excel文件放在哪里都能找到，添加环境变量的话其实还是固定了文件所在的位置～～

yt1985cncn

QTP自身有Pathfinder.locate函数的，另外由于我是QTP和TD一起用的，所以可以把EXCEL文件直接放到TD里，然后在QTP中的TOOLS-->OPTIONS-->FOLDERS下，添加该文件就好

闻欣

这么方便啊

ppent

你把EXCEL文件直接放到TD里，相当于是存在服务器上了。那么你在QTP的TOOLS-->OPTIONS-->FOLDERS下中设置的路径也是Excel文件在TD上的路径？
另外请教一个问题，你的TD和QTP分别是什么版本的？我在TD8+QTP9.2好像有点不兼容，无法在TD中生成QTP脚本（TD没有响应了），并且以后再点击这个用例就会报错。

[ 本帖最后由 ppent 于 2007-8-6 21:39 编辑 ]

Jimmyshao

原帖由 ppent 于 2007-8-6 21:36 发表
你把EXCEL文件直接放到TD里，相当于是存在服务器上了。那么你在QTP的TOOLS-->OPTIONS-->FOLDERS下中设置的路径也是Excel文件在TD上的路径？
另外请教一个问题，你的TD和QTP分别是什么版本的？我在TD8+QTP9.2好 ...

QTP9.2还是搭配QC9吧

TD还是和QTP8.2搭配比较好

yt1985cncn

我用的是td8＋qtp9.0,公司用这个，没办法。sdlkfj2

Fin

'------------------
'路径处理
'------------------
Function Root_(filename)
        Dim envpath
        Dim envfname
        Dim splitarray
        Dim filepath
        Dim filepathdata
       
        envpath = trim(Environment("TestDir"))
        envfname = trim("Script\" + Environment("TestName"))
        splitarray = split(envpath,envfname)
        filepath = splitarray(0)
        filepathdata = filepath + "Data\"
        Root_ =trim(filepathdata + filename)
End Function
'--------------------------
'使用如：
root = Root_("新契约_无扫描录入.xls")

'输出 ： root = E:\workspace\QTP\NCL\NCL_新契约\Data\新契约_无扫描录入.xls


文件目录：
NCL\NCL_新契约
     +-Data
                  +-新契约_无扫描录入.xls
    +-Script
                  +-NCL_新契约_无扫描录入_

[ 本帖最后由 Fin 于 2009-8-11 11:37 编辑 ]