VBA不打开txt读取数据基于每行指定索引匹配所有相关数据

，该怎么写代码实现呢？

你可以使用VBA的File System Object（FSO）来打开文本文件并逐行读取数据，然后使用Split函数将每行数据拆分成一个数组。接着，您可以使用数组的索引来匹配相关数据。下面是一个示例代码：

Sub ReadTextFile()
    Dim FSO As Object
    Dim TxtFile As Object
    Dim FilePath As String
    Dim LineData As String
    Dim DataArray() As String
    Dim LineIndex As Integer
    
    ' Set file path'
    FilePath = "C:\data.txt"
    
    ' Create a file system object'
    Set FSO = CreateObject("Scripting.FileSystemObject")
    
    ' Open the text file '
    Set TxtFile = FSO.OpenTextFile(FilePath, 1, False)
    
    ' Loop through each line of the file '
    While Not TxtFile.AtEndOfStream
        LineData = TxtFile.ReadLine
        DataArray = Split(LineData, ",") ' Split the line data into an array '
        
        ' Match relevant data based on the specified index '
        LineIndex = 0 ' specify the index to match '
        If DataArray(LineIndex) = "relevant data" Then
            ' do something with the relevant data '
        End If
    Wend
    
    ' Close the text file '
    TxtFile.Close
    
    ' Clean up '
    Set TxtFile = Nothing
    Set FSO = Nothing
End Sub

请注意，这只是一个基本示例，并且您需要根据自己的需求进行适当的修改。