Я долго с этим бьюсь тоже, получаю данные из оракла через ADODB - их например 100к строчек, каким образом можно выгрузить эти данные пускай хотя бы на 2 листа, я использую RecordSet и QueryTable

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim varConnection As String
Dim aRange As Range

Set cn = CreateObject("ADODB.Connection")
cn.Provider = "MSDAORA"
cn.ConnectionString = varConnection
cn.Open
Set rs = CreateObject("ADODB.Recordset")
rs.Open varSQL1, cn
Set QT1 = ActiveSheet.QueryTables.Add(rs, Range("F16"))
QT1.name = "Table"
QT1.Refresh

QT1.ResultRange.Select
Set aRange = QT1.ResultRange