如何将批量html文件转换为xlsx

Ericcccccc

求助呀，有没有代码可以将本地保存文件夹中所有的html文件内容汇总到一个工作表里-可以不考虑汇总到工作表的具体位置(正则找数据)
不需要获取html的源码，只要html网页上的内容就可以了
如C:\文件夹\有html1，html2。。。html100若干个文件
将html1，html2。。。html100若干个文件的内容提取后汇总到C:\文件夹\求助.xlsx的worksheet1
。。。
可能是本地保存的html文件比较特殊(html包含了若干可下载的csv文件的链接)，直接用excel导入外部数据的功能行不通

taller

发个示例HTML，说明要导入什么数据或者内容

Ericcccccc

taller 发表于 2020-2-5 12:56
发个示例HTML，说明要导入什么数据或者内容

版主你好，已上传补充了附件，如果有时间请帮下忙

taller

如果你需要这个结果，Excel直接打开html文件就可以了，拷贝》》选择性粘贴到你指定的工作表

我猜想你还是需要提前页面中某些内容，请参考网抓的帖子

Ericcccccc

taller 发表于 2020-2-6 03:42
如果你需要这个结果，Excel直接打开html文件就可以了，拷贝》》选择性粘贴到你指定的工作表

我猜想你还 ...

版主你好，下面的代码可以获取指定文件夹的某个html文件内容，能不能花点时间把代码改成获取当前文件夹内的所有html文件内容
Sub test()
Dim FileNum As Integer, i As Integer
Dim DataLine As String
FileNum = FreeFile()
Open "C:\Users\excelhome\Desktop\测试\html1.html" For Input As #FileNum
i = 1
While Not EOF(FileNum)
    Line Input #FileNum, DataLine
    Range("A" & i).Value = DataLine
    i = i + 1
Wend
End Sub

zhangmi

我猜你需要的是这个
mp = "C:\Users\excelhome\Desktop\测试\"
mf = Dir(mp & "*.html")