Question

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

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

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

谢谢！

Answer 1

这是我经常使用的。只需用文本文件替换文件位置，这个小小的blip将逐行读取。然后你可以针对一行抛出逻辑并决定如何处理它。当您处理正则表达式无法准确处理的数据时，它是一个很好的解决方案。

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

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

1 个答案: