即使Excel中存在多个logging，CopyFromRecordset也只复制并粘贴第一行

我有一个Excel工作表，包含像数据表

strSQL = "SELECT S.FIELD_NAME1,S.FIELD_NAME2,S.FIELD_NAME3 from [SourceData$A1:IV6] S" Dim cn as ADODB.Connection Dim rs as ADODB.Recordset cn.Open strCon Set rs = CmdSqlData.Execute() Worksheets("SourceData").Cells.ClearContent Worksheets("AnswerData").Cells(2, 1).CopyFromRecordset rs 

结果：
只有第一行和其他logging被忽略。

我已经试过下面的查询。

 strSQL = "SELECT COUNT(*) from [SourceData$A1:IV6] S" 

结果是5 。

请让我知道为什么其他logging不复制到logging集？

Answer 1

这是一个成功粘贴logging集的子例程。

请注意，它通过intMaxRow和intMaxColvariables粘贴的范围与logging集的大小相同：

 Sub sCopyFromRS() 'Send records to the first 'sheet in a new workbook ' Dim rs As Recordset Dim intMaxCol As Integer Dim intMaxRow As Integer Dim objXL As Excel.Application Dim objWkb As Workbook Dim objSht As Worksheet Set rs = CurrentDb.OpenRecordset("Customers", _ dbOpenSnapshot) intMaxCol = rs.Fields.Count If rs.RecordCount > 0 Then rs.MoveLast: rs.MoveFirst intMaxRow = rs.RecordCount Set objXL = New Excel.Application With objXL .Visible = True Set objWkb = .Workbooks.Add Set objSht = objWkb.Worksheets(1) With objSht .Range(.Cells(1, 1), .Cells(intMaxRow, _ intMaxCol)).CopyFromRecordset rs End With End With End If End Sub 

使用这个例子作为模型，我会尝试这样的代码：

 strSQL = "SELECT S.FIELD_NAME1,S.FIELD_NAME2,S.FIELD_NAME3 from [SourceData$A1:IV6] S" Dim cn as ADODB.Connection Dim rs as ADODB.Recordset Dim intMaxCol as Integer Dim intMaxRow as Integer cn.Open strCon Set rs = CmdSqlData.Execute() intMaxCol = rs.Fields.Count '- MoveLast/First to get an accurate RecordCount rs.MoveLast rs.MoveFirst If rs.RecordCount > 0 then '-thought you could put the MoveLast/First here but maybe not. intMaxRow = rs.RecordCount With Worksheets("AnswerData") .Range(.Cells(2,1),.Cells(intMaxRow+1,intMaxColumn)).CopyFromRecordset rs End With End If 

Answer 2

这个答案取决于您在Excel中提供的ODBC数据库驱动程序。

由于我的公司env，我不得不使用一个非常古老的Oracle ODBC驱动程序。 在我的情况下， Recordset.RecordCount始终是-1 。 默认情况下，不支持Recordset.MoveLast和Recordset.MoveFirst 。 像原来的问题一样，调用Excel.Range.CopyFromRecordset(Recordset)也只写一行。

您可能需要不同地configuration您的ADODB.Recordset 。 试试这个代码：

 Dim dbConn As ADODB.Connection Dim rs As ADODB.Recordset Dim rng As Excel.Range Dim rowCount As Long ' TODO: Init your dbConn here. ' TODO: Init your rng here. Set rs = New ADODB.Recordset ' http://www.w3schools.com/ado/prop_rs_cursortype.asp rs.CursorType = ADODB.CursorTypeEnum.adOpenKeyset rs.Open sql, dbConn rowCount = rng.CopyFromRecordset(rs) 

对于我的驱动程序，这解决了这个问题。 但是，你的里程可能会有所不同

您可以在这里阅读有关ADO游标types的更多信息 。