按键精灵插图

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

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)

最后编辑于 ：
©著作权归作者所有,转载或内容合作请联系作者
平台声明：文章内容（如有图片或视频亦包括在内）由作者上传并发布，文章内容仅代表作者本人观点，简书系信息发布平台，仅提供信息存储服务。

推荐阅读更多精彩内容