有几种方法可以做你想做的事。
1。在另一个工作表上,创建一个公式,该公式将从第一张表中获取信息并生成所需的HTML。
=""
假设您的数据位于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, "" & vbNewLine & "
" & vbNewLine & "My Gallery..." & vbNewLine & "" & vbNewLine & ""Do
If Sheet.Cells(Row, 1) = "" Then
Exit Do
Else
Print #Handle, ""
Row = Row + 1
End If
Loop
Print #Handle, "" & vbNewLine & ""
Close #Handle
End Sub
本示例将在与包含所有链接的电子表格相同的目录中创建一个html文件。您需要调整它以适应您的需求,因为它可能不太正确。