求教QTP的一个问题！

gev8561

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

以上是QTP从EXCEL读入数据的脚本。但，我每次运行到“conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source="&filename&" Extended Properties='Excel ”，这一句时，就提示“找不到可安装的ISAM”。这是为什么呀？

请各位大侠多多指教！万分感激！

gev8561

另外，不知哪位大侠能够提供一些QTP代码学习的资料，我现在会一些基本的录制和回放，但对QTP的代码还是很菜的！
求求大家帮帮我，让我尽快渡过这段痛苦的QTP生涯！sdlkfj7 sdlkfj5

ace19820509

先顶再看

huash

你要读取的文件是excel文件，但是你创建的对象是数据库文件读取所用的对象，所以会发生错误，你应该创建的对象语句为 CreateObject(Excel.Application),其余的细节你可以参考QTP里面的帮助

yuandjing

楼上的兄弟，对于excel信息的读取有两种方式，一种是基于数据的，一种是基于对象的
你说的是对象方式的，楼市用的是数据方式的
我可以提供一下我的对于excel文件读写的vbs，供大家调用，是把excel当作对象处理的方式：

'读Excel文件元素
Public Function QTP_Read_Excel(pathway,sheetname,x,y)
        Dim srcData,srcDoc,ret
        set srcData = CreateObject("Excel.Application")
        srcData.Visible = True
        set srcDoc = srcData.Workbooks.Open(pathway)
        srcDoc.Worksheets(sheetname).Activate
        ret = srcDoc.Worksheets(sheetname).Cells(x,y).value
        srcData.Workbooks.Close
        Window("text:=Microsoft Excel").Close
        QTP_Read_Excel = ret
End Function

'写Excel文件元素并保存退出
Public Function QTP_Write_Excel(pathway,sheetname,x,y,content)
        Dim srcData,srcDoc,sp1,sp2,num,use,a1,a2,a3
        set srcData = CreateObject("Excel.Application")
        srcData.Visible = True
        set srcDoc = srcData.Workbooks.Open(pathway)
        srcDoc.Worksheets(sheetname).Activate
        srcDoc.Worksheets(sheetname).Cells(x,y).value = content
       
'        sp1 = Split(pathway,".")
'        sp2 = Split(sp1(0),"\")
'        num = UBound(sp2)
'        use = sp2(num)

'        Set a1 = Description.Create()
'        a1("text").value="Microsoft Excel - " + use + ".xls"
'        a1("window id").value="0"

'        Set a3 = Description.Create()
'        a3("Class Name").value="WinObject"
'        a3("text").value= use + ".xls"

'        Window(a1).WinObject(a3).Type micCtrlDwn + "s" + micCtrlUp

        Dim WshShell
        Set WshShell=CreateObject("Wscript.Shell")
        WshShell.SendKeys "^s"
        wait(1)
       
        srcData.Workbooks.Close
        Set srcDoc = nothing
       
        Window("text:=Microsoft Excel").Close
End Function

gev8561

多谢各位啦！各位还有什么好的方法请继续提！偶在此先谢啦！

yuandjing

呵呵，谢谢你的花花