51Testing软件测试论坛

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

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 2549|回复: 7
打印 上一主题 下一主题

[原创] 小弟有一个关于EXCEL的问题

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2006-8-28 17:34:28 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
Dim conn,input,filename
Set Res=createobject("adodb.recordset")
Set conn= createobject("ADODB.Connection")
conn.Open "DBQ=C:\aaa.xls;DefaultDir=C:\;Driver={Driver do Microsoft Excel(*.xls)};DriverId=790;FIL=excel 8.0;FILEDSN=C:\Program Files\Common Files\ODBC\Data Sources\EXCEL.dsn;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;ReadOnly=1;SafeTransactions=0;Threads=3;UserCommitSync=Yes;"
sql= "select  *   from [sheet1$]"  
res.open sql,conn,2,2

Dim fso, myfile
Set fso=CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("c:\result.txt", True)
MyFile.Close
Set myfile=fso.openTextFile("C:\result.txt",8,false)
While Not Res.eof
     For i=0 to 16
                    if Res(i)<>" " Then
                        myfile.writeline Res(i)
                        else
           myfile.writeline "数据库中这列为空 "
                        end if
     next
     myfile.writeline " "
     Res.movenext   
wend
myfile.close
Set input=nothing
Set conn=Nothing
Set res = nothing

我用QTP调用EXCEL,将EXCEL的内容写入TXT文件中,但如果是中文的话,会出现问题,要么显示空白,要么显示0,请各位大虾给小弟一点建议,看看我的程序哪里还需要改进的。
我调用的EXCEL请见附件。
小弟先谢谢了

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?(注-册)加入51Testing

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 2006-8-28 18:04:45 | 只看该作者
强制定义一下数据类型,还有要学会调试脚本,跟进去看
回复 支持 反对

使用道具 举报

该用户从未签到

3#
 楼主| 发表于 2006-8-29 12:49:02 | 只看该作者
我试过用CSTR来转换一下,但还是不行啊,请版主再给你指示
回复 支持 反对

使用道具 举报

该用户从未签到

4#
发表于 2006-8-29 13:45:19 | 只看该作者
加断点或者msgbox去调试啊,Res(i)这边取出来的时候是怎样的,
回复 支持 反对

使用道具 举报

该用户从未签到

5#
发表于 2006-8-29 13:55:43 | 只看该作者

你用下面的方法导入到表里

DataTable.Import ("d:\aaa.xls")
这样你想怎么操作都可以阿
回复 支持 反对

使用道具 举报

该用户从未签到

6#
发表于 2006-8-29 15:29:37 | 只看该作者
调试很长时间,没发现错。后来把EXCEL的第一行复制到第二、三行(修改了一些字段以区分),就好了。
回复 支持 反对

使用道具 举报

该用户从未签到

7#
 楼主| 发表于 2006-8-29 16:55:44 | 只看该作者
bisheng请问你在EXCEL中的二三行输入中文了吗?
我 用的是QTP8.2啊
我是中文无法写入到TXT文件中啊
还有sinpa你的那句话该加在哪里啊
小弟刚学QTP没多久啊
请再稍微指导一下,谢谢了
回复 支持 反对

使用道具 举报

该用户从未签到

8#
发表于 2006-8-29 17:44:39 | 只看该作者
有中文,我只把1改成了2,把文字换换,楼主你的代码没有问题,可以再试试!
回复 支持 反对

使用道具 举报

本版积分规则

关闭

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

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

GMT+8, 2024-11-26 02:14 , Processed in 0.087931 second(s), 29 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

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