//安装按键精灵 安装懒人插件
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)
