将多个HTML文件中的数据传输到Excel

Question

假设我有许多HTML文档，每个文档都具有相同的格式。虽然这些文件中的信息不在表格中，但总有特定的关键词可以提供所需信息的位置。有没有办法设置一个宏，以便Excel在每个文档中搜索特定的“标题”，返回标题的第一个空格后的所有字符，并且只有在一行到达两个空格时才停止？我们的想法是将所有这些信息放在一列中，然后再用另一个“标题”开始这个过程。我真的不知道从哪个宏开始。

Answer 1

这应该让你关闭

MyPath = "path to folder containing HTML files"

Set fso = CreateObject("Scripting.FileSystemObject")
Set my_files = fso.getfolder(MyPath).Files

For Each f1 In my_files
    Set TxtStream = fso.OpenTextFile(path_fname, ForReading, False, TristateUseDefault)    
    my_var = ""

    Do While Not TxtStream.AtEndOfStream
         my_var = my_var & TxtStream.ReadLine   
    Loop

    TxtStream.Close

    pos_1 = instr(1, my_var, "your Title")
    pos_2 = instr(pos_1, my_var, "  ")
    my_txt = mid(my_var, pos_1, pos_2 - pos_1)
   ' do whatever with the captured text
Next