按键精灵插图

//安装按键精灵 安装懒人插件

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)