vba - 将 ADO 记录集复制到 Excel 工作表中

Question

我正在尝试打开一个 CSV 文件并查询它，并将结果返回到“ThisWorkbook”的第二个工作表的 A 列中。我没有收到任何错误，所以我不明白为什么它没有将记录集复制到 Excel 中。

Dim con As ADODB.Connection
Dim rs As ADODB.Recordset

Set con = New ADODB.Connection
Set rs = New ADODB.Recordset

Dim currentDataFilePath As String
Dim currentDataFileName As String

 Dim nextRow As Integer

currentDataFilePath = "C:\Users\M\folder\"
currentDataFileName = "csv-file"

con.Open "Provider=Microsoft.JET.OLEDB.4.0;" & _
           "Data Source=" & currentDataFilePath & ";" & _
           "Extended Properties=""text;HDR=NO;FMT=Delimited;IMEX=1"""


'rs.ActiveConnection = con

 rs.Open "SELECT Name FROM [" & currentDataFileName & ".csv] WHERE Datatype ='TYPE3'", 
 con

ThisWorkbook.Worksheets("Sheet2").Range("A:A").CopyFromRecordset rs
 rs.Close
con.Close

Set rs = Nothing
Set con = Nothing


End Sub

Answer 1

您可以引用CopyFromRecordset()方法。

根据上面的代码，在 rs.Open 命令之后，您将添加如下内容:

ActiveWorksheet.Range("A1").CopyFromRecordset rs

在此处查看更多信息:http://msdn.microsoft.com/en-us/library/office/ff839240%28v=office.15%29.aspx