创建应用程序对象时出错

hiyizhiyu

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

xiaonan

应该这样写
Dim ExcelSheet,Excel
Set Excel=CreateObject("Excel.Application")
Set ExcelSheet = CreateObject("Excel.Sheet")

hiyizhiyu

谢谢楼上的朋友
呵呵
现在可以创建一个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

其实你可以用字段的方式,用ado方法连接execl表,把对应字段的值放进去.

hiyizhiyu

不错
确实是个好方法
这位朋友
3Q

hiyizhiyu

to：xiaonan
你有msn吗
遇到一些问题
呵呵
请教一下