vba 读取csv文件内容
时间: 2023-11-20 21:53:43 浏览: 79
VBA可以通过使用ADODB对象来读取CSV文件内容。下面是一个简单的示例代码,可以读取CSV文件并将其输出到Excel工作表中:
```VBA
Sub ReadCSVFile()
Dim cn As Object
Dim rs As Object
Dim strSql As String
Dim strConnection As String
Dim FilePath As String
Dim i As Long
'设置CSV文件路径
FilePath = "C:\test.csv"
'创建ADODB对象
Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
'设置连接字符串
strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
FolderPath & ";Extended Properties=""text;HDR=YES;FMT=Delimited"""
'打开连接
cn.Open strConnection
'设置SQL语句
strSql = "SELECT * FROM [" & FilePath & "]"
'执行查询
rs.Open strSql, cn, 3, 3
'将结果输出到Excel工作表中
For i = 0 To rs.Fields.Count - 1
ActiveSheet.Cells(1, i + 1).Value = rs.Fields(i).Name
Next i
ActiveSheet.Range("A2").CopyFromRecordset rs
'关闭连接
rs.Close
cn.Close
End Sub
```
注意,上述代码中的连接字符串需要根据实际情况进行修改,特别是文件路径和文件格式。此外,还需要添加对ADODB对象的引用。可以通过在VBA编辑器中选择“工具”->“引用”来添加引用。