将ADOlogging集复制到Excel工作表中

我试图打开一个CSV文件并查询它，并将结果返回到“ThisWorkbook”的第二个工作表的A列中。 我没有得到任何错误，所以我不明白为什么它不是将logging集复制到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