查看完整版本: QTP使用ADO连接EXCEL后如何进行读写操作？

QTP使用ADO连接EXCEL后如何进行读写操作？

SQL比较简单，读写可以对表，而EXCEL怎么操作呢？

Dim conn,filename
filename="D:\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'"

连接完毕后如何进行读写操作呢？
比如我要读取Sheet1的第一行第一列应该如何写？我要把数据插入到第一行第一列也应该如何写呢？？？？

网上有很多:lol

[quote]原帖由 [i]Yzzz[/i] 于 2008-6-3 09:13 发表 [url=http://bbs.51testing.com/redirect.php?goto=findpost&pid=985088&ptid=116586][img]http://bbs.51testing.com/images/common/back.gif[/img][/url]
网上有很多:lol [/quote]
你等于没说！！！

以前写的一个读的例子你参考一下吧！
Public Function ReadExcel(ByVal filepath)
Dim app,book,sheet
Set app=CreateObject("Excel.Application")
Set book=app.Workbooks.Open(filepath)
Set sheet=book.Worksheets("Test")
Dim irowcount,i,MyArray
irowcount=sheet.usedrange.rows.count
For i=2 To irowcount
   MyArray = Split(sheet.cells(i,1), "=",-1,1)
   AutoCalcTest trim(MyArray(0)),trim(MyArray(1))
Next
book.Close
app.Quit
Set sheet=Nothing
Set book=Nothing
Set app=Nothing
End Function

[[i] 本帖最后由 小孩 于 2008-6-3 09:20 编辑 [/i]]

LZ你那个方法我也会，那个是建立一个EXCEL表的，建立对象的，我现在这个是连接的！
难道一样的么？可以使用CELLS？？？

excel 不用搞的怎么麻烦吧！

[quote]原帖由 [i]小孩[/i] 于 2008-6-3 09:28 发表 [url=http://bbs.51testing.com/redirect.php?goto=findpost&pid=985105&ptid=116586][img]http://bbs.51testing.com/images/common/back.gif[/img][/url]
excel 不用搞的怎么麻烦吧！ [/quote]
哪个方法好用哪个呗，其实我昨天使用的方法就是你弄的那种方法，建立对象，然后我使用OPEN的方式打开我已经建立好的EXCEL表，但是有人跟我说使用COM或者ADO连接的方法更好，那我得看看喽，最近狂学TC，这个该死的软件，不像QTP这么简单，要是跟QTP那么简单，我还需要那么多方法干吗，直接在QTP的DATATABLE中写就OK了，呵呵~~~

TC是什么的全称是什么还没有听过介绍介绍！我怀疑我已经脱节了。
SELECT INTO 语法：
Dim strSQL As String
strSQL = "SELECT * INTO [Excel 8.0;Database=" & App.Path & _
    "\book1.xls].[Sheet1] FROM Customers"
cnSrc.Execute strSQL
SELECT INTO ...IN 语法：
strSQL = "SELECT * INTO [Sheet1] IN '' [Excel 8.0;Database=" & App.Path & _
    "\book1.xls] FROM Customers"
使用 IN 子句的替代语法：
strSQL = "SELECT * INTO [Sheet1] IN '" & App.Path & _
    "\book1.xls' 'Excel 8.0;' FROM Customers"

[quote]原帖由 [i]小孩[/i] 于 2008-6-3 09:53 发表 [url=http://bbs.51testing.com/redirect.php?goto=findpost&pid=985130&ptid=116586][img]http://bbs.51testing.com/images/common/back.gif[/img][/url]
TC是什么的全称是什么还没有听过介绍介绍！我怀疑我已经脱节了。
SELECT INTO 语法：
Dim strSQL As String
strSQL = "SELECT * INTO [Excel 8.0;Database=" & App.Path & _
    "\book1.xls].[Sheet1] FROM Cu ... [/quote]
TC,TESTCOMPLETE,也是一个测试工具，可以使用5种脚本语言（NB），就是用起来不像QTP那么简单！

TC我也下了个，想拿来测delphi开发的软件的
可是愣是没看明白咋用！

使用 INSERT  INTO ...IN 语法： strSQL = "INSERT INTO [Sheet1$] IN '' [Excel 8.0;Database=" & App.Path & _
    "\book1.xls] SELECT * FROM Customers"

2楼说的没错啊。。。Google一下全是答案。。。即使是本论坛里印象中也是看到过有人贴过代码的

sqaforum中看到的最多的一句话: Please search before start a new thread

这个before 好像是个介词，介词+动词是不是应该动名词才对？before starting ...:lol

既然楼主想用这种方法，为什么不用Acess呢，用JDBC-ODBC桥，写一段简单的JAVA进行读写就可以了

回复 13# 的帖子

太中学生了吧，跟老外讲话好像不用讲究这么多语法，能互相听懂就行了:L

这里有一个简单的例子可供参考：
[url]http://blog.csdn.net/Testing_is_believing/archive/2008/07/07/2623162.aspx[/url]