Как произвести экспорт данных из базы Access в Excel - VB

Формулировка задачи:

Есть база данных access. Мне необходимо произвести экспорт всех или выбранных строк в excel. Как?

Решение задачи: «Как произвести экспорт данных из базы Access в Excel»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Dim xl As Excel.Application
Dim wbk As Workbook
Dim wsh As Worksheet
Dim tmpStr$
Dim rsADO As ADODB.Recordset
 
....
Здесь открытие рекордсета твоей таблицы
....
 
Set xl = New Excel.Application
Set wbk = xl.Workbooks.Add
Set wsh = wbk.Worksheets(1)
 
tmpStr = rsADO.GetString(, , Chr(9), vbNewLine)
 
'Я тестил вот на этой строке и все ок было! Лень было писать запрос к базе!
'tmpStr = 'XPraptor' & Chr(9) & 'Cool Hacker' & vbNewLine & 'AND Cool' & Chr(9) & 'Programmer!' & vbNewLine
'А GetString вернет все записи таблицы в таком же виде
xl.Visible = True
wsh.Activate
Clipboard.SetText tmpStr
wsh.Paste Destination:=wsh.Range('A2')
 
Set wsh = Nothing
Set wbk = Nothing
Set xl = Nothing