Transfering Data from Multiple HTML Files into Excel -
suppose have number of html documents, each of has same format. while information in these documents not in tables there specific key words give away desired information located. there way set macro excel searches each of these documents specific 'title', returns characters after first white space of title, , stops once reaches 2 white spaces in row? idea place of information 1 column , begin process again 'title'. not sure start such macro.
this should close
mypath = "path folder containing html files" set fso = createobject("scripting.filesystemobject") set my_files = fso.getfolder(mypath).files each f1 in my_files set txtstream = fso.opentextfile(path_fname, forreading, false, tristateusedefault) my_var = "" 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) ' whatever captured text next
Comments
Post a Comment