ASP操作EXCEL

<%   

'加入图片
  set   myexcell=CreateObject("Excel.Application")  
  set   mywork=myexcell.Workbooks.Add  
  set   Activesheet=myexcell.sheets("sheet1")  
  Activesheet.Pictures.Insert("图片地址")  
  mywork.SaveAs "c:/test.xls"  
  mywork.close  
  set   mywork=nothing  
  set   myexcell=nothing  
  %>