Как произвести экспорт данных из базы 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д