ник: Анатолий (Киев)
Полученный Recordset можно вставить на лист методом Excel-я CopyFromRecordset. Примеров можете найти немеряно.
Если вы имеете фамилию в переменной, то можно собрать SQL выражение запроса на создание таблицы прямо в процедуре и выполнить экспорт в Excel.
str_Vol_01 = InputBox("Введите фамилию")
strSQL = "SELECT Veteran_Un.Surname AS Фамилия, Veteran_Un.Name_s AS Имя, Veteran_Un.Patronumic_Name AS Отчество, Veteran_Un.Date_Birthday AS [День рождения]
INTO Экспорт IN 'C:\Файл.xls' [Excel 8.0;] FROM Veteran_Un WHERE ((Veteran_Un.Surname) Like '*" & str_Vol_01 & "*');"
CurrentDB.Execute strSQL
|
Но это пример для Акса97-2003. В А2007 другое расширение у файла и другая строка подключения (вместо [Excel 8.0;]).