CopyFromRecordset копирует и вставляет на одном листе только первую вставку одной строки, даже если в Excel присутствует несколько записей - PullRequest
Новая
       28

CopyFromRecordset копирует и вставляет на одном листе только первую вставку одной строки, даже если в Excel присутствует несколько записей

0 голосов
/ 23 октября 2018

У меня есть лист Excel, содержащий таблицу, подобную данным 

Sub SQLQUERY()

Dim QUERY As String

Dim ExcelCn As New ADODB.Connection
Dim RS As New ADODB.Recordset
SourcePath = "C:\Users\negi_tech\Desktop\sqltable.xlsx"





ExcelCn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
               "Data Source=" & SourcePath & ";" & _
               "Extended Properties=""Excel 12.0;HDR=YES;"""
QUERY = "select * from [Sheet2$] WHERE [Type]='RV'"
RS.CursorType = ADODB.CursorTypeEnum.adOpenKeyset
RS.Open QUERY, ExcelCn
RS.MoveLast
RS.MoveFirst
Range("A2:BT50000").ClearContents
Sheet2.Range("a2").CopyFromRecordset RS

Я копирую данные с того же листа, а затем очищаю все содержимое, кроме заголовков, а затем вставляю набор записей в тот же лист, но вставляю только первую строку,но когда я вставляю тот же набор записей в другой лист, тогда он вставляет все записи

Пожалуйста, дайте мне знать, почему другие записи не копируются в набор записей?

...