//安裝按鍵精靈 安裝懶人插件
Dim LazyExcel
Set LazyExcel= CreateObject("Lazy.LxjExcel")
Call LazyExcel.ExcelOpen("c:\users\administrator\desktop\插圖.xlsx")
Column = LazyExcel.SheetRowsCount(1)
For Column
? ? t = t + 1
? ? Text=LazyExcel.ExcelRead(1,t,1,1)
Call LazyExcel.ExcelPicInsertEX(1,"b" & t,"b" & t,"圖片路徑" & Text & ".jpg",1)
Next
LazyExcel.ExcelClose(1)