51Testing软件测试论坛

标题: 创建应用程序对象时出错 [打印本页]

作者: hiyizhiyu 时间: 2006-5-24 12:14
标题: 创建应用程序对象时出错
用
Dim ExcelSheet
ExcelSheet = CreateObject ("Excel.Sheet")
创建应用程序对象时出错
出错信息是：run error，参数值或格式不对
但参数和格式怎么会有错误呢
实在找不出原因
大家帮忙看看
还想请教一下
能在脚本中直接创建一个excel文件，并对这个文件操作吗？
谢谢

作者: xiaonan 时间: 2006-5-24 13:48
应该这样写
Dim ExcelSheet,Excel
Set Excel=CreateObject("Excel.Application")
Set ExcelSheet = CreateObject("Excel.Sheet")

作者: hiyizhiyu 时间: 2006-5-25 09:27
谢谢楼上的朋友
呵呵
现在可以创建一个excel文件并写入数据了
但还是有个问题
我想在每运行完一个case后就把结果信息写入excel文件中
象我下面这样写好像不是很方便
大家有什么好的方法吗
给点建议
3Q

Dim ExcelSheet
Set ExcelSheet = CreateObject ("Excel.Application")
ExcelSheet.Workbooks.Add
Set NewSheet = ExcelSheet.Sheets.Item(1)
NewSheet.Name = "sheet1"
NewSheet.Cells(1,1) = "hehe"
NewSheet.SaveAs "d:\test.xls"
case1
NewSheet.Cells(2,1)="haha"
case2
NewSheet.Cells(3,2)="haha"
case3
NewSheet.Cells(4,2)="haha"
case4
NewSheet.Cells(5,2)="haha"
finally
ExcelSheet.Quit

作者: xiaonan 时间: 2006-5-25 09:42
其实你可以用字段的方式,用ado方法连接execl表,把对应字段的值放进去.

作者: hiyizhiyu 时间: 2006-5-25 15:44
不错
确实是个好方法
这位朋友
3Q

作者: hiyizhiyu 时间: 2006-5-25 17:04
to：xiaonan
你有msn吗
遇到一些问题
呵呵
请教一下

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