读取txt文件的VBA代码，将指定的单词放入列中

Sub ReadTxtFile()
    Dim filePath As String
    Dim wordToFind As String
    Dim fileContent As String
    Dim wordsArray() As String
    Dim i As Long
    Dim rowNum As Long
    
    ' 设置文件路径和要查找的单词
    filePath = "C:\path\to\your\file.txt"
    wordToFind = "example"
    
    ' 打开文件并读取内容
    Open filePath For Input As #1
    fileContent = Input$(LOF(1), #1)
    Close #1
    
    ' 将文件内容按空格分割成单词数组
    wordsArray = Split(fileContent, " ")
    
    ' 在列A中查找指定单词并放入相应行
    rowNum = 1
    For i = LBound(wordsArray) To UBound(wordsArray)
        If LCase(wordsArray(i)) = LCase(wordToFind) Then
            Cells(rowNum, 1).Value = wordsArray(i)
            rowNum = rowNum + 1
        End If
    Next i
End Sub