通过收集表收集的图片，从后台下载的excel文件中显示是url链接形式，如果想全部呈现出来，下面这个方法还是相当给力的。制作成宏的形式，目的是为了显示多图，sheet2的C、D列是多图，通过查找替换的办法将链接中的间隔逗号进行了替换。替换内容放在sheet2的A1单元格中，内容是'
style='max-height:400px;' / > < img src='。
完成显现后，将sheet2中的A2至F1000单元格中的内容保存到记事本中，保证后将后缀改为html就可以看到您想要的效果了。
Sub mypic()
For i = 2 To 1000
If Sheet1.Range('A' & i).Value < > ''
Then
Sheet2.Range('A' &
i).Value = '< div>' & Sheet1.Range('A' &
i).Value
Sheet2.Range('B' &
i).Value = '< img src='' & Sheet1.Range('G' & i) &
'' style='max-height:400px;' / >'
Sheet2.Range('C' &
i).Value = '< img src='' & Sheet1.Range('J
加载中…
转载▼