html图片excel路径,传输图像路径从Excel电子表格到HTML文件

有几种方法可以做你想做的事。

1。在另一个工作表上,创建一个公式,该公式将从第一张表中获取信息并生成所需的HTML。

="&%20CHAR(34)%20&%20INDIRECT("

假设您的数据位于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, "&%20Chr(34)%20&%20Sheet.Cells(Row,%202)%20&%20Chr(34)%20&%20"

Row = Row + 1

End If

Loop

Print #Handle, "" & vbNewLine & ""

Close #Handle

End Sub

本示例将在与包含所有链接的电子表格相同的目录中创建一个html文件。您需要调整它以适应您的需求,因为它可能不太正确。

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值