'安全级别设置必须为低 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