excel单元格转换为html文本

简七

1. 通过循环获取

复制代码

morpheus126

不太熟HTML，但是感谢分享，应该有用

jz_l

谢谢分享。

opiona

应该有用的  再写一个 Html转回到单元格的就完美了

简七

opiona 发表于 2022-6-16 22:05
应该有用的  再写一个 Html转回到单元格的就完美了

htmltable标签文本写入剪贴板再粘贴到excel就是个表格了

lilyhcn1

Excel转html我是用按行替换法，把特定的html段落中标记的东西替换成表格数据就好了。非常有用

x-xx-xx

这个我也写过

x-xx-xx

是否各种合并情况都可以

简七

x-xx-xx 发表于 2022-6-17 11:08
是否各种合并情况都可以

是的 刚测试了下单元格有错误值也会出现错误

简七

1. '使用对象转换将表格区域转换为html
   
2. Function tableConversionHTML2(rng As Range)
   
3.     Dim wb As Workbook, wsh As Object, path As String, fs As Object, adoStream As Object
   
4.     '获取传入单元格的工作簿
   
5.     Set wb = rng.Parent.Parent
   
6.     '创建wscript.shell对象
   
7.     Set wsh = CreateObject("wscript.shell")
   
8.     '创建fileSystemObject对象
   
9.     Set fs = CreateObject("Scripting.FileSystemObject")
   
10.     '创建ado对象
    
11.     Set adoStream = CreateObject("adodb.stream")
    
12.     获取临时文件夹 , 并连接指定名称
    
13.     path = wsh.SpecialFolders("Templates") & "\temp.htm"
    
14.     '将区域导出为htm文件
    
15.    
    
16.     With wb.PublishObjects.Add(xlSourceRange, path, rng.Parent.name, rng.Address, xlHtmlStatic, "", "")
    
17.         .Publish (True)
    
18.         .AutoRepublish = True
    
19.     End With
    
20.     '获取导出文件文本
    
21.     With adoStream
    
22.         .Type = 2
    
23.         .Charset = "GBK"
    
24.         .Open
    
25.         .LoadFromFile path
    
26.         '函数返回文本
    
27.         tableConversionHTML2 = .readText
    
28.         .Close
    
29.     End With
    
30.     '删除文件
    
31.     fs.deletefile path, True
    
32.     '释放对象
    
33.     Set wb = Nothing
    
34.     Set wsh = Nothing
    
35.     Set fs = Nothing
    
36.     Set adoStream = Nothing
    
37. End Function
    

复制代码

新方法 通过PublishObjects.Add实现