Доброго времени суток.

Пытаюсь форматировать данные в таблице Excel из Access:

    Dim oExcel As Object
    Dim oBook As Object
    Dim oSheet As Object
    
    Set oExcel = CreateObject("Excel.Application")
    Set oBook = oExcel.workbooks.Add
    Set oSheet = oBook.worksheets(1)
    oExcel.Visible = True
    
    oSheet.Range("A2", "E2").merge
    oSheet.Range("A2").Value = "Заголовок документа"
    oSheet.Range("A2").HorizontalAlignment = xlCenter

но строчка

oSheet.Range("A1").HorizontalAlignment = xlCenter

выдает ошибку. Что я делаю не так?

P.S. Еще, есть ли способ задать из Access формат ячейки - типа числовой, а еще лучше денежный, с двумя знаками после запятой?

Спасибо.

http://www.sql.ru/forum/1279975/vyravnivanie-v-yacheyki-excel-iz-access