а почему бы не подойти с хвоста?
сам ексель чтобы брал эти значения,
или через него самого брать ....

Почему? У меня например все отчеты таким образом сделаны...
' функция выгрузки диапазона данных на лист Excel
Public Sub GetSQLData(stSQL As String, stBookName As String, stSheetName As String, stRangeName As String, stCellName As String, stQueryName As String)
Dim RS As New ADODB.Recordset

' открытие запроса
OpenConnection (Null)
Set COM = New ADODB.Command
COM.ActiveConnection = CON
COM.CommandText = stSQL
COM.CommandTimeout = 0
Set RS = COM.Execute
' добавление самого запроса
Workbooks(stBookName).Sheets(stSheetName).Range(stRangeName).ClearContents
With Workbooks(stBookName).Sheets(stSheetName).QueryTables.Add(RS, Sheets(stSheetName).Range(stCellName))
.Name = stQueryName
.RefreshStyle = xlInsertEntireRows
.BackgroundQuery = False
.Refresh
End With
RS.Close

End Sub