美文网首页
按键精灵插图

按键精灵插图

作者: shengjiaimi | 来源:发表于2018-04-21 13:45 被阅读0次

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

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)

相关文章

网友评论

      本文标题:按键精灵插图

      本文链接:https://www.haomeiwen.com/subject/djrxlftx.html