[英]ADODB Connection String for .csv
I want to process .csv files with ADODB in Excel VBA.我想在 Excel VBA 中使用 ADODB 处理 .csv 文件。 I tried a few strings found on web, but none of them seems to work.
我尝试了一些在网上找到的字符串,但它们似乎都不起作用。 I'm getting file path using:
我正在使用以下方法获取文件路径:
strVFile = Application.GetOpenFilename("CSV (*.csv), *.csv")
And then I pass strVFile
as a parameter to the sub objReport.Load strVFile
.然后我将
strVFile
作为参数传递给子objReport.Load strVFile
。 The header of the sub is: Public Sub Load(ByVal strFilename As String)
. sub 的标题是:
Public Sub Load(ByVal strFilename As String)
。
Then I try to make ADODB connection using string:然后我尝试使用字符串建立 ADODB 连接:
pconConnection.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strFilename & _
";Extended Properties=""text;HDR=Yes;FMT=Delimited(;)"";Persist Security Info=False"
pconConnection.Open
When I run the macro and choose CSV file, there's error occuring saying that "given path is not a valid path".当我运行宏并选择 CSV 文件时,出现错误,提示“给定路径不是有效路径”。 What am I doing wrong?
我究竟做错了什么?
Edit (Code) ,编辑(代码) ,
Module mdlReport模块 mdlReport
Public Sub Report()
Dim objReport As clsReport
MsgBox "Please select .csv file", vbInformation + vbOKOnly
strVFile = Application.GetOpenFilename("CSV (*.csv), *.csv")
If strVFile <> False Then
Set objReport = New clsReport
objReport.Load strVFile
End If
End Sub
Class clsReport类 clsReport
Private pconConnection As ADODB.Connection
Private prstRecordset As ADODB.Recordset
Private Sub Class_Initialize()
Set pconConnection = New ADODB.Connection
pconConnection.ConnectionTimeout = 40
End Sub
Public Sub Load(ByVal strFilename As String)
pconConnection.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strFilename & _
";Extended Properties=""text;HDR=Yes;FMT=Delimited(;)"";Persist Security Info=False"
pconConnection.Open
End Sub
For a text file, Data Source
is the folder, not the file.对于文本文件,
Data Source
是文件夹,而不是文件。 The file is the table (SELECT * FROM ..).该文件是表 (SELECT * FROM ..)。 See http://www.connectionstrings.com/textfile
请参阅http://www.connectionstrings.com/textfile
Here is an update using Microsoft.ACE.OLEDB.16.0 as provider.这是使用 Microsoft.ACE.OLEDB.16.0 作为提供程序的更新。
Make sure the reference library "Microsoft ActiveX Data Objects 6.1 Library" is added to VBAproject first.确保首先将参考库“Microsoft ActiveX Data Objects 6.1 Library”添加到 VBAproject。
Sub testrunSQLQueryForCSV()
Dim arrayTest
arrayTest = runSQLQueryForCSV("C:\xxx\yyyy\", "SELECT * FROM mycsvfile.csv")
'NOTE: for CSV the Data Source reference is to the directory and the csv file is similar
'to one "worksheet" in an excel file and is simply referenced in the SQL statement
End Sub
Public Function runSQLQueryForCSV(fileDirPath As String, SQLStatement As String)
Dim Conn As New ADODB.Connection
Dim RecSet As New ADODB.Recordset
With Conn
.Provider = "Microsoft.ACE.OLEDB.16.0" 'Can use many providers, but this is the latest and it works with csv files also
.ConnectionString = "Data Source=" & fileDirPath & ";Extended Properties='text'"
End With
Conn.Open
RecSet.Open SQLStatement, Conn
runSQLQueryForCSV = RecSet.GetRows()
Conn.Close
Set RecSet = Nothing
Set Conn = Nothing
End Function
I found the answer to my problem.我找到了我的问题的答案。 For text files (as stated by Remou)
Data Source
is just the folder path, without file name.对于文本文件(如 Remou 所述),
Data Source
只是文件夹路径,没有文件名。 In addition instead of using:此外,而不是使用:
C:\dir\dir2\
I had to use我不得不使用
C:\\dir\\dir2\\
To get file name from full path:从完整路径获取文件名:
strFilename = Dir(strFilepath)
To get the path only, without a file name:只获取路径,没有文件名:
strFilepath = Left$(strFilepath, InStrRev(strFilepath, "\"))
To change path format from '\\' to '\\\\' I just used:要将路径格式从 '\\' 更改为 '\\\\' 我刚刚使用:
strFilepath = Replace(strFilepath, "\", "\\")
The problem is solved, thanks for interest.问题已解决,感谢关注。
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.