将图像路径从excel电子表格传输到html文件
将图像路径从excel电子表格传输到html文件
提问于 2012-07-31 08:53:30
我试图隐藏电子表格与数以百计的图像路径到html页面。例如：
excel sheet
imageId imagePath
1 images/ima1
2 images/ima2
3 images/ima3
... .........
... ........有没有更快的方法将这些图像转换成html文件，而不是逐个键入它们？
我需要的html文件如下所示：
<img src=images/ima1 title='ima1' />
<img src=images/ima2 title='ima2' />
<img src=images/ima3 title='ima3' />谢谢你的帮助。
回答 2
Stack Overflow用户
回答已采纳
发布于 2012-07-31 09:27:21
有几种方法可以做你想做的事情。
1.在另一个工作表上，创建一个公式，该公式将从第一个工作表中获取信息并生成所需的HTML。
="<img src=" & CHAR(34) & INDIRECT("Sheet1!B" &ROW()) & CHAR(34) & " title=" & CHAR(34) & INDIRECT("Sheet1!A" & ROW()) & " />"假设您的数据在Sheet1上，则第二个工作表上的每一行(在中包含该公式)都将包含Sheet1上同一行的html。(如果不同，则需要调整工作表名称和列)
这样做，你就可以复制并粘贴第二张纸上的所有内容。
2.使用宏来生成文件。
Public Sub GenerateHTML()
Dim Handle As Integer
Dim Sheet As Worksheet
Dim Row As Integer
Set Sheet = ThisWorkbook.ActiveSheet
Row = 2
Handle = FreeFile()
Open "output.html" For Output As Handle
Print #Handle, "<html>" & vbNewLine & "<head>" & vbNewLine & "<title>My Gallery...</title>" & vbNewLine & "</head>" & vbNewLine & "<body>"
Do
If Sheet.Cells(Row, 1) = "" Then
Exit Do
Else
Print #Handle, "<img src=" & Chr(34) & Sheet.Cells(Row, 2) & Chr(34) & " title=" & Chr(34) & "ima" & Sheet.Cells(Row, 1) & Chr(34) & "/>"
Row = Row + 1
End If
Loop
Print #Handle, "</body>" & vbNewLine & "</html>"
Close #Handle
End Sub此示例将在包含所有链接的电子表格所在的目录中创建一个html文件。您需要调整它以适应您的需要，因为它可能不太正确。
Stack Overflow用户
发布于 2012-07-31 09:16:10
我将在下一列中创建一个公式。假设图像/IMA1在B2中，您可以将其放入C2中以获得所需内容，然后将公式粘贴下来。
="<img src="&B2&" title='"&RIGHT(B2,LEN(B2)-4)&"' />"页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/11731697
复制相关文章
相似问题
腾讯云开发者
Copyright © 2013 - 2026 Tencent Cloud. All Rights Reserved. 腾讯云 版权所有
深圳市腾讯计算机系统有限公司 ICP备案/许可证号：粤B2-20090059 
粤公网安备44030502008569号
腾讯云计算（北京）有限责任公司 京ICP证150476号 | 京ICP备11018762号