Set oXL = CreateObject("Excel.Application")为何会出错??
Sub Button1_onclick
Select Case Select1.selectedIndex
Case 0 ' Use Automation.
Dim sHTML
sHTML = window.parent.frames("bottom").document.forms(0).children("DataGrid1").outerhtml
Dim oXL, oBook
Set oXL = CreateObject("Excel.Application")
Set oBook = oXL.Workbooks.Add
oBook.HTMLProject.HTMLProjectItems("Sheet1").Text = sHTML
oBook.HTMLProject.RefreshDocument
oXL.Visible = true
oXL.UserControl = true
......
程序执行到Set oXL = CreateObject("Excel.Application")会出错:
出错提示:Active部件不能创建对象:Excel.Application
请问如何处理,我的电脑上装了EXCEL程序的