用脚本VBscript把页面上数据导出到excel问题(win2003/XP系统中)

[zbl0670]

我用下面的代码：
sub test()
dim sHTML
dim oExcel,oBook
sHTML = document.all.item("DataGrid1").outerhtml
'sHTML="ssss"
Set oExcel = CreateObject("Excel.Application")
Set oBook = oExcel.Workbooks.Add
oBook.HTMLProject.HTMLProjectItems("Sheet1").Text = sHTML
oBook.HTMLProject.RefreshDocument
oExcel.Visible = true
oExcel.UserControl = true
end sub

把页面上的东西导入到excel中，出错是：ActiveX部件不能创建对象

该代码我写在一个html文件中，直接在文件系统中打开没问题，通过http打开时，就出错。
请教各位啦。

[DeltaCat]

IE --> internet 选项 -->安全

把 安全级别 降低

[web_gus]

up