ник: alexsamurai
Set db = CurrentDb
Set xl = CreateObject("Excel.Application")
Set xlb = xl.Workbooks.Add
Set xls = xlb.Worksheets(1)
xl.Visible = True
Set rs = db.OpenRecordset("фио")
xls.Range("a1").CopyFromRecordset rs
Вот что у меня получилось. Но он печатает всю таблицу, а мне нужно только одно поле. Подскажите, в чем здесь ошибка?