vbscript將excel插入圖片

 

<%
Dim FileName
FileName = Server.MapPath("\xlstest\test02.xls" )

'呼叫系統Excel應用程式
set myxls = CreateObject("Excel.Application")
     myxls.Visible = True
myxls.WorkBooks.Open FileName


'插入連結圖片
myxls.ActiveSheet.Range("G1").Select
myxls.ActiveSheet.Pictures.Insert(Server.MapPath("\xlstest\qq.jpg")).Select


'插入圖片
'取得A1:E8表格範圍
 Set rng = myxls.ActiveSheet.Range("A10:E20")
'插入並指位置
  myxls.ActiveSheet.Shapes.AddPicture(Server.MapPath("\app\xlstest\qq.jpg")),True,True,rng.Left,rng.Top, rng.Width, rng.Height


  '存檔
  myxls.ActiveWorkbook.Save
  '離開
  myxls.Application.Quit
set myxls = Nothing

FileName="\xlstest\test02.xls"

%>
Excel 檔案<a href="<%=FileName%>">點擊</a> 下載