使用VBA将特定行从文本文件导入Excel电子表格

Question

我正在尝试获取一个宏设置，该设置会将文本文件中的特定行导入到Excel电子表格中。 我目前正在使用instr函数来查找特定单词，然后读取将数据导入单元格所需的字母数。

我这样做的原因是由于文件超过3500行，并且在任何意义上都没有定界或逗号分隔。 一些数据也相同，而我在上述策略中遇到了问题。

我需要帮助的是如何仅将20条特定的行导入到电子表格中（将使用多张工作表，但可以重复使用此代码），同时使用前面提到的技术，以便确定从何处读取。

谢谢！

Answer 1

这就是我经常使用的。 只需将文件位置替换为文本文件，这个小提示将逐行读取它。 然后，您可以将逻辑放在一行上并决定如何处理。 当您处理正则表达式语句的数据无法正确处理时，这是一个很好的解决方案。

Sub LoadSettings()
Dim fso As Scripting.FileSystemObject
Dim F As File
Dim F2 As TextStream
Dim TS As TextStream
Dim lngCount As Long


Set fso = New Scripting.FileSystemObject

fileloc = "Whereyourtextfileislocated"
Set F = fso.GetFile(fileloc)


Set TS = F.OpenAsTextStream(1, -2)

S = ""
Do

RptText = TS.ReadLine

if rpttext = whatever criteria, or even if instr(rpttext,"whateveryouwant")     >0 then
    do something with rpttext
end if

Loop

End Sub