VBA excel在将记事本中的条件匹配到excel时从记事本导入数据

有人能帮我在符合条件的Excel表格中插入一行特定的记事本吗？我们需要为上述代码添加新的逻辑。

我猜您要求在代码中添加条件检查。如果是这样，请执行以下操作：

Sub Read_text_file()

    Dim myFileName As String
    Dim myLine As String
    Dim FileNum As Long

    myFileName = "D:\Users\sok\Desktop\output.file.txt"    '  change the text file Location
    FileNum = FreeFile
    Close FileNum
    Open myFileName For Input As FileNum
    Do While Not EOF(FileNum)
        Line Input #FileNum, myLine
       MsgBox myLine, OK
    Loop

End Sub

如果您有其他要求，请告诉我

编辑#1： \uuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuu强

Sub Read_text_file()

    Dim myFileName As String
    Dim myLine As String
    Dim FileNum As Long

    myFileName = "D:\Users\sok\Desktop\output.file.txt"    '  change the text file Location
    FileNum = FreeFile
    Close FileNum
    Open myFileName For Input As FileNum
    Do While Not EOF(FileNum)
        Line Input #FileNum, myLine

        If myLine = "abc" Then    '---> put your condition here
            MsgBox myLine, OK     '---> do your stuff if condition is true
        End If
    Loop

End Sub

---

谢谢。我们可以添加一行特定的记事本作为条件而不是字符串，并在下一行进行操作吗？谢谢你的帮助。你能不能帮我把行上的记事本值换掉，检查一下，然后把它加到单元格里。你可以拿任何一个单元格为例。由于我不是VB爱好者，所以创建代码对我来说非常困难。请最后帮我一次？@Abhinav-抱歉，我无法理解您的具体要求。@Abhinav-您想从记事本添加到excel单元格的哪一行？您可以添加第6行

Sub Read_text_file()

    Dim FileNum As Long: FileNum = FreeFile
    Dim myLine() As String, i As Long
    Dim myFileName As String
    Dim lineToCheck As Long

    myFileName = "D:\Users\sok\Desktop\output.file.txt"    '  change the text file Location

    Open myFileName For Input As #FileNum
        myLine = Split(Input$(LOF(FileNum), #FileNum), vbNewLine)
    Close #FileNum

    lineToCheck = 10    '---> enter line number of notepad file that you want to check

    For i = 0 To UBound(myLine)
        If myLine(i) = myLine(lineToCheck - 1) Then '---> this is your condition
            MsgBox myLine(i), OK                    '---> do your stuff if condition is true
        End If
    Next

End Sub