excel单元格转换为html文本

yxzc2012

简七 发表于 2022-6-17 16:16
新方法 通过PublishObjects.Add实现

这个方法不错 里边有两处需要改一下才能使用
'使用对象转换将表格区域转换为html
Function tableConversionHTML2(rng As Range)
    Dim wb As Workbook, wsh As Object, path As String, fs As Object, adoStream As Object
    '获取传入单元格的工作簿
    Set wb = rng.Parent.Parent
    '创建wscript.shell对象
    Set wsh = CreateObject("wscript.shell")
    '创建fileSystemObject对象
    Set fs = CreateObject("Scripting.FileSystemObject")
    '创建ado对象
    Set adoStream = CreateObject("adodb.stream")
    '获取临时文件夹 , 并连接指定名称
    path = wsh.SpecialFolders("Templates") & "\temp.htm"
    '将区域导出为htm文件
   
    With wb.PublishObjects.Add(xlSourceRange, path, rng.Parent.name, rng.Address, xlHtmlStatic, "", "")
        .Publish (True)
        .AutoRepublish = True
    End With
    '获取导出文件文本
    With adoStream
        .Type = 2
        .Charset = "GBK"
        .Open
        .LoadFromFile path
        '函数返回文本
        tableConversionHTML2 = .readText
        .Close
    End With
    '释放对象
    Set wb = Nothing
    Set wsh = Nothing
    Set fs = Nothing
    Set adoStream = Nothing
End Function

lilyhcn1

要是标准的二维表格的话，我可以给你玩点东西出来

中华美德

表格中超级链接在转换为html文本时，链接功能不知道还会不会存在?如何保持这个功能？

补充内容 (2022-10-22 11:32):
VBA将指定区域表格转Html时，为什么不能去掉超级链接单元中的下划线呢？

perfect131

中华美德 发表于 2022-9-30 07:56
表格中超级链接在转换为html文本时，链接功能不知道还会不会存在?如何保持这个功能？

测试一下不就知道了
teble直接复制参考：
https://club.excelhome.net/thread-1628424-1-1.html