How to decipher text harvester file7/4/2023 ![]() Thanks for the help, here is the solution I came up with for this specific problem Sub OpenFiles()ĭim currentrow As Integer: currentrow = 2ĭo While Myfile "" 'This will go through all files in the directory, "Dir() returns an empty string at the end of the list There are about 100 individual data files, each with a nonsensical filename, so I'm looking to have the macro just go through and open each one in the folder. I need to pull "DescText","VendCode","ProdType","MajRev","MinRev",and"ProdName" into separate columns. The Tags are consistent through all the files and each lines ends with a semicolon so I'm assuming this should be pretty easy. ![]() ![]() ProdTypeStr = "Multi-Channel Analog I/O with HART" The text files are formatted as such: ĭescText = "1756-IF16H 16 Channel Hart Analog Input Module" I have multiple "datasheet" text files that are used with a program at work and need to harvest values from them and combine it all into a spreadsheet.
0 Comments
Leave a Reply. |