@arafikov

Мне надо из Access 97 VBA заполнить лист Excel.
Выглядит это так:

Dim ExcelApp As Object, ExcelWorkbook As Object, ExcelSheet As Object
Set ExcelApp = CreateObject('Excel.Application')
ExcelApp.Workbooks.Open 'C:
eestr.xls'
Set ExcelWorkbook = ExcelApp.Workbooks(1)
Set ExcelSheet = ExcelApp.Workbooks(1).Worksheets(1)
With ExcelSheet
?
End With
ExcelApp.Visible = True

Вместо ? надо подставить код. Мне нужно объединение определенных
ячеек, установка границ ячеек для печати в виде таблицы, и
подстановка значений в ячейки.

Пробовал брать макрос из Excel, но в Access не все функции доступны.

0

@Ирча

Все можно из макроса, только надо явно ссылаться
ExcelSheet.Range
ExcelSheet.Cells
ExcelApp .Selection и т.д.

0

@arafikov

Я пробовал - записанный макрос Excel переносил в Access,
не все функции опознавались, константы в Access к тому же другие.
Я нашел выход - слил все данные на 2 лист Excel с помощью
.cells(1,1)='...' и т. д., а потом запускаю макрос Excel командой
ExcellApp.Run 'Макрос1', а в нем уже прописываю действия (воспользовавшись командой записи макроса и слегка его подредактировав).

0

@VIPanin

я делаю так , InExcel - набор данных которые выводятся в excel. если надо оформление (типа рамочки стиль и проч.) пиши на мыло.

Set xlsCust = CreateObject('Excel.sheet')
Set xlaAppXL9 = xlsCust.Parent.Parent

xlsCust.Sheets('Лист1').Select
xlsCust.Sheets('Лист1').Name = 'ЗАЯВКА'
xlsCust.ActiveSheet.PageSetup.Zoom = 75
xlsCust.ActiveSheet.PageSetup.CenterFooter = 'Страница &P из &N'
xlsCust.ActiveSheet.PageSetup.LeftMargin = 70
xlsCust.ActiveSheet.PageSetup.TopMargin = 30
xlsCust.ActiveSheet.PageSetup.BottomMargin = 20
Set rst = dbsCurrent.OpenRecordset('InExcel')

intRow = Y + 1
intCol = 1

rst.MoveFirst
Do Until rst.EOF
For intCol = 1 To rst.Fields.Count
If (Not IsNull(rst.Fields(intCol - 1))) Then
xlsCust.ActiveSheet.cells(intRow, intCol).Value = rst.Fields(intCol - 1)
xlsCust.ActiveSheet.cells(intRow, intCol).Font.Size = 10
End If

Next intCol

rst.MoveNext
intRow = intRow + 1
Loop

0

@VIPanin

Да забыл...в конце еще надо

xlsCust.SaveAs (ИмяФайла)
xlsCust.Application.QUIT
Set xlsCust = Nothing

0