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