Значение ADODB.Recordset в тип Range

[RISagitov]

вот у меня код,


'Declare variables'
Set objMyConn = New ADODB.Connection
Set objMyCmd = New ADODB.Command
Set objMyRecordset = New ADODB.Recordset

'Open Connection'
'objMyConn.ConnectionString = "Provider=SQLOLEDB;Data Source=localhost;User ID=abc;Password=abc;"
objMyConn.ConnectionString = "Provider=SQLOLEDB;Data Source=172.19.1.105;User ID=sa;Password=stat_login654;"
objMyConn.Open
' objMyConn.Close

'Set and Excecute SQL Command'
Set objMyCmd.ActiveConnection = objMyConn
' objMyCmd.CommandText = "select * from myTable"

objMyCmd.CommandText = "select * from biis.dbo.traffic_history"


objMyCmd.CommandType = adCmdText
objMyCmd.Execute

'Open Recordset'
Set objMyRecordset.ActiveConnection = objMyConn
objMyRecordset.Open objMyCmd

'Copy Data to Excel'
ActiveSheet.Range("A1").CopyFromRec ordset (objMyRecordset)



как видите мне приходится результат Рекордсета вначале ложить в лист excel
и только потом от туда копировать в переменную типа Range

как нибудь наверное можно делать это на прямую?

чтоб функция типа range возвращала таблицу