从Excel电子表格传输图像path到HTML文件
我正在试图将数百个图像path的电子表格转换为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' />
谢谢您的帮助。
有几种方法可以做你想做的事情。
1。 在另一个工作表上，创build一个公式，该公式将从第一张表中获取信息并生成所需的HTML。
="<img src=" & CHAR(34) & INDIRECT("Sheet1!B" &ROW()) & CHAR(34) & " title=" & CHAR(34) & INDIRECT("Sheet1!A" & ROW()) & " />"
假设您的数据在Sheet1上，第二张纸上的每一行（包含该公式）将包含Sheet1上同一行的html。 （如果不一样的话，你需要调整工作表名称和列）
这样做，你可以复制粘贴第二张纸上的所有东西。
2。 使用macros来生成文件。
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
这个例子将在包含所有链接的电子表格所在的目录中创build一个html文件。 您需要调整它以适应您的需求，因为它可能不太正确。
我会在下一栏中创build一个公式。 假设image / ima1在B2中，那么你可以把它放到C2中来获取你的内容，然后粘贴公式。
="<img src="&B2&" title='"&RIGHT(B2,LEN(B2)-4)&"' />"