51Testing软件测试论坛

标题: 请教懂关于Excel的操作 [打印本页]

作者: 鹭岛 时间: 2008-5-15 09:58
标题: 请教懂关于Excel的操作
'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，没有写入任何数据？

这个是为什么呢？？？？
看到这个代码是数据的写入操作，为什么都没数据被写入呢？？？懂的达人来讲解下这个代码，谢谢

作者: 鹭岛 时间: 2008-5-15 17:05
谁懂~~~~~~~~~~~~~~~~~~·

作者: jackymail 时间: 2008-5-15 18:04
ddd.xls添加到test保存的目录，比如test1这个folder下面。

作者: 鹭岛 时间: 2008-5-16 09:08
问题是
ExcelSheet.SaveAs ddFilePath
这句不行呀。。。。不能保存呀，单纯使用VB运行可以保存，但是使用QTP却没有任何数据。。。也就是没有保存。。。。

作者: luoisa 时间: 2008-5-16 10:28
按照lz的代码，运行行了一下，没有问题。
ddd.xls都写进去了。

作者: bbs0422 时间: 2008-10-17 15:53
标题: ddFilePath
ExcelSheet.SaveAs ddFilePath这句话是不是这个意思：把文件保存为“ddFilePath”

作者: 今天有雾 时间: 2008-10-17 16:46
ExcelBook.ActiveSheet.saveas 改成这个就可以了哇

作者: zoujiliang168 时间: 2008-10-18 17:40
标题: 回复
ExcelSheet.SaveAs file.xls 就可以不要想的太复杂

作者: wepheloo 时间: 2008-10-20 09:10
你运行后去看一看进程是否有N多的Excel.exe
如果是就证明你没有关闭和保存Excel
或者试一下用把整个表格保存
ExcelBook.save

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)