VBSCRIPT从DATAGRID到EXCEL

'安全级别设置必须为低

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