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

鹭岛

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

Dim conn,filename
filename="D:\test.xls" '
Set conn= createobject("ADODB.Connection")
conn.Open "rovider=Microsoft.Jet.OLEDB.4.0ersist Security Info=False;Data Source="&filename&";Extended Properties='Excel 8.0;hdr=yes'"

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

Yzzz

网上有很多

鹭岛

原帖由 Yzzz 于 2008-6-3 09:13 发表
网上有很多

你等于没说！！！

小孩

以前写的一个读的例子你参考一下吧！
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

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

鹭岛

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

小孩

excel 不用搞的怎么麻烦吧！

鹭岛

原帖由 小孩 于 2008-6-3 09:28 发表
excel 不用搞的怎么麻烦吧！

哪个方法好用哪个呗，其实我昨天使用的方法就是你弄的那种方法，建立对象，然后我使用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"

鹭岛

原帖由 小孩 于 2008-6-3 09:53 发表
TC是什么的全称是什么还没有听过介绍介绍！我怀疑我已经脱节了。
SELECT INTO 语法：
Dim strSQL As String
strSQL = "SELECT * INTO [Excel 8.0;Database=" & App.Path & _
    "\book1.xls].[Sheet1] FROM Cu ...

TC,TESTCOMPLETE,也是一个测试工具，可以使用5种脚本语言（NB），就是用起来不像QTP那么简单！

Simatu

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

小孩

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

hsjzfling

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

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

jackymail

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

lyscser

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

wuzhiyongnihao

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

陈能技

这里有一个简单的例子可供参考：
http://blog.csdn.net/Testing_is_ ... /07/07/2623162.aspx