51Testing软件测试论坛

标题: excel [打印本页]

作者: kunalex 时间: 2008-1-22 17:19
标题: excel
help中关于excel的两段代码运行都不成功,是否缺少了关键步骤?
1.DataTable.Import ("C:\flights.xls")

2.Dim ExcelSheet
Set ExcelSheet = CreateObject("Excel.Sheet")
' Make Excel visible through the Application object.
ExcelSheet.Application.Visible = True
' Place some text in the first cell of the sheet.
ExcelSheet.ActiveSheet.Cells(1,1).Value = "This is column A, row 1"
' Save the sheet.
ExcelSheet.SaveAs "C:\DOCS\TEST.XLS"
' Close Excel with the Quit method on the Application object.
ExcelSheet.Application.Quit
' Release the object variable.
Set ExcelSheet = Nothing

作者: kunalex 时间: 2008-1-22 17:31
标题: 补充
第一个调试验成功,第二个不知道为什么有general run sytax

作者: gy21st 时间: 2008-1-22 17:47
先要CreateObject("Excel.Application")

作者: kunalex 时间: 2008-1-22 18:23
标题: 补充
改成了excel.application,但是ActiveSheet对象无法识别...>-<!

作者: xiaoyaoke 时间: 2008-1-22 18:31

原帖由 gy21st 于 2008-1-22 17:47 发表
先要CreateObject("Excel.Application")

正解！！！

作者: gy21st 时间: 2008-1-22 19:18

原帖由 kunalex 于 2008-1-22 18:23 发表
改成了excel.application,但是ActiveSheet对象无法识别...>-

没要你改这句，是“先”,你在Set ExcelSheet = CreateObject("Excel.Sheet")之前加一句
Set xlApp = CreateObject("Excel.Application")

作者: frankwangzy1103 时间: 2008-1-23 11:09
我觉得也是

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