将数据从多个HTML文件传输到Excel中
假设我有一些HTML文档，每个都有相同的格式。 虽然这些文件中的信息不在表格中，但是总是有特定的关键词在给出信息所在的位置。 有没有办法build立一个macros，以便Excelsearch这些文档中的每一个特定的“标题”，在标题的第一个空格之后返回所有的字符，并且只有一次到达连续两个空格时才停止？ 这个想法是将所有这些信息放在一个列中，然后再用另一个“标题”开始这个过程。 我真的不知道从哪里开始这样一个macros观。
这应该让你closures
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