Привет всем.  
 
Столкнулся со следующй проблемой. Есть процедура VBA в MS Access. В ней формируеются рекордсеты и сливаются в рабочие листы Excel в созданную книгу. Не могу форматировать получившийся отчет в Excel из той же самой процедуры Access.  
 
Может какие обращения нужно создать или команды  
 
 
Set xlSheet = xlBook.Worksheets("отчет")  
 
Set rst3 = db.OpenRecordset("Select Урожай From урожайность)  
 
If rst3.EOF And rst3.BOF Then  
MsgBox "Нечего экспортировать!!!"  
End If  
 
 
With xlSheet.Range("A1")  
For i = 0 To rst3.Fields.Count - 1  
   .Offset(0, i).Value = rst3.Fields(i).Name  
Next  
 
 
With xlSheet.Range("A2")  
.CopyFromRecordset rst3  
.Font.Bold.True  
End With