excel

kunalex

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

第一个调试验成功,第二个不知道为什么有general run sytax

gy21st

先要CreateObject("Excel.Application")

kunalex

改成了excel.application,但是ActiveSheet对象无法识别...>-<!

xiaoyaoke

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

正解！！！

gy21st

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

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

frankwangzy1103

我觉得也是