51Testing软件测试论坛

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

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 2605|回复: 8
打印 上一主题 下一主题

[原创] 请教懂关于Excel的操作

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2008-5-15 09:58:11 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
'1.对EXCEL文件进行写操作

Option Explicit

Dim fso, ddFilePath, i
Dim ExcelBook, ExcelSheet

'ddFilePath = Environment.Value("TestDir") & "\ddd.xls"
ddFilePath = Environment.Value("TestDir")&"\ddd.xls"

Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(ddFilePath) Then
       fso.DeleteFile(ddFilePath)
End If
wait 3


Set ExcelBook = CreateObject("Excel.Application")
Set ExcelSheet = CreateObject("Excel.Sheet")
ExcelSheet.Application.visible = False

ExcelSheet.ActiveSheet.Cells(1,1).Value = "Agent Name"
ExcelSheet.ActiveSheet.Cells(1,2).Value = "Password"
ExcelSheet.ActiveSheet.Cells(1,3).Value = "Expire Value"
ExcelSheet.ActiveSheet.Cells(1,4).Value = "Fact Value"
ExcelSheet.ActiveSheet.Cells(1,5).Value = "Execute Result"

ExcelSheet.ActiveSheet.Cells(2,1).Value = "ad"
ExcelSheet.ActiveSheet.Cells(2,2).Value = "Mercury\"
ExcelSheet.ActiveSheet.Cells(2,3).Value = "Agent name must be at least 4 characters long."

ExcelSheet.ActiveSheet.Cells(3,1).Value = "Admin"
ExcelSheet.ActiveSheet.Cells(3,2).Value = "Merc"
ExcelSheet.ActiveSheet.Cells(3,3).Value = "Incorrect password. Please try again"

ExcelSheet.ActiveSheet.Cells(4,1).Value = "Admin"
ExcelSheet.ActiveSheet.Cells(4,2).Value = "Mercury"
ExcelSheet.ActiveSheet.Cells(4,3).Value = "Flight Reservation"
      
ExcelSheet.SaveAs ddFilePath
ExcelBook.Quit
Set ExcelBook = Nothing

这个我再网路上看到的代码,没有任何修改代码,我仅对QTP的TOOLS下的FORLDS的路径添加了,然后在目录下加入了一个ddd.xls而已,运行完毕,打开DDD,没有写入任何数据?

这个是为什么呢????
看到这个代码是数据的写入操作,为什么都没数据被写入呢???懂的达人来讲解下这个代码,谢谢
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
 楼主| 发表于 2008-5-15 17:05:37 | 只看该作者
谁懂~~~~~~~~~~~~~~~~~~·
回复 支持 反对

使用道具 举报

该用户从未签到

3#
发表于 2008-5-15 18:04:40 | 只看该作者
ddd.xls添加到test保存的目录,比如test1这个folder下面。
回复 支持 反对

使用道具 举报

该用户从未签到

4#
 楼主| 发表于 2008-5-16 09:08:10 | 只看该作者
问题是
ExcelSheet.SaveAs ddFilePath
这句不行呀。。。。不能保存呀,单纯使用VB运行可以保存,但是使用QTP却没有任何数据。。。也就是没有保存。。。。
回复 支持 反对

使用道具 举报

该用户从未签到

5#
发表于 2008-5-16 10:28:40 | 只看该作者
按照lz的代码,运行行了一下,没有问题。
ddd.xls都写进去了。
回复 支持 反对

使用道具 举报

该用户从未签到

6#
发表于 2008-10-17 15:53:42 | 只看该作者

ddFilePath

ExcelSheet.SaveAs ddFilePath这句话是不是这个意思:把文件保存为“ddFilePath”
回复 支持 反对

使用道具 举报

该用户从未签到

7#
发表于 2008-10-17 16:46:00 | 只看该作者
ExcelBook.ActiveSheet.saveas 改成这个就可以了哇
回复 支持 反对

使用道具 举报

该用户从未签到

8#
发表于 2008-10-18 17:40:12 | 只看该作者

回复

ExcelSheet.SaveAs file.xls 就可以不要想的太复杂
回复 支持 反对

使用道具 举报

该用户从未签到

9#
发表于 2008-10-20 09:10:05 | 只看该作者
你运行后去看一看进程是否有N多的Excel.exe
如果是就证明你没有关闭和保存Excel
或者试一下用把整个表格保存
ExcelBook.save
回复 支持 反对

使用道具 举报

本版积分规则

关闭

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

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

GMT+8, 2024-11-9 10:21 , Processed in 0.073497 second(s), 28 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

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