在Excel VBA中使用ADODB连接对csv文件进行不同的SQL查询

Dim conn As New ADODB.Connection
Dim filePath As String
Dim connectionString As String

' 设置csv文件路径
filePath = "C:\path\to\your\file.csv"

' 设置连接字符串
connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & filePath & ";Extended Properties=""Text;HDR=YES;FMT=Delimited"""

' 打开连接
conn.Open connectionString

Dim rs As New ADODB.Recordset
Dim sql As String

' 设置查询语句
sql = "SELECT * FROM [file.csv]"

' 执行查询
rs.Open sql, conn

' 处理查询结果
' ...

' 关闭记录集和连接
rs.Close
conn.Close

Dim rs As New ADODB.Recordset
Dim sql As String

' 设置查询语句
sql = "SELECT Column1, Column2 FROM [file.csv]"

' 执行查询
rs.Open sql, conn

' 处理查询结果
' ...

' 关闭记录集和连接
rs.Close
conn.Close

Dim rs As New ADODB.Recordset
Dim sql As String

' 设置查询语句
sql = "SELECT * FROM [file.csv] WHERE Column1 = 'Value'"

' 执行查询
rs.Open sql, conn

' 处理查询结果
' ...

' 关闭记录集和连接
rs.Close
conn.Close

' 遍历记录集
Do Until rs.EOF
    ' 获取字段值
    value = rs.Fields("ColumnName").Value
    
    ' 处理字段值
    ' ...
    
    ' 移动到下一条记录
    rs.MoveNext
Loop

rs.Close
conn.Close