用于查询CSV中的字段内容的VBA

Sub QueryCSVField()
    Dim filePath As String
    Dim csvData As String
    Dim dataArray As Variant
    Dim searchField As String
    Dim searchValue As String
    Dim result As String
    
    ' 设置CSV文件路径
    filePath = "C:\path\to\your\csv\file.csv"
    
    ' 读取CSV文件内容
    Open filePath For Input As #1
    csvData = Input$(LOF(1), #1)
    Close #1
    
    ' 将CSV数据转换为数组
    dataArray = Split(csvData, vbCrLf)
    
    ' 设置要查询的字段和值
    searchField = "Field1"
    searchValue = "Value1"
    
    ' 遍历数组，查询指定字段的内容
    For i = 0 To UBound(dataArray)
        Dim fieldArray As Variant
        fieldArray = Split(dataArray(i), ",")
        
        If fieldArray(0) = searchField Then
            result = fieldArray(1)
            Exit For
        End If
    Next i
    
    ' 输出查询结果
    MsgBox "查询结果：" & result
End Sub