使用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