'安全级别设置必须为低

sub test()
    
dim sHTML
    
dim oExcel,oBook 
    sHTML 
= document.all.item("DataGrid1").outerhtml
    
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
posted on 2005-02-23 17:27  小菜鸟软件学习  阅读(934)  评论(0编辑  收藏  举报