ник: Василий
Подскажите, что не так ? есть таблица, есть экселевский файл, но в эксель не экспортирует... заранее благодарю.
Dim objXls As Object
Dim rst As Recordset
Dim i As Long
Set rst = CurrentDb.OpenRecordset("Company")
Set objXls = GetObject("C:\Documents and Settings\vasiliy.OMT\Мои документы\ERTE.xls")
objXls.Worksheets("Лист1").Activate
i = 2
Do While Not rst.EOF
objXls.Worksheets("Лист2").Cells(i, 2) = rst![Company1]
objXls.Worksheets("Лист2").Cells(i, 3) = rst![Project]
rst.MoveNext
i = i + 1
Loop
objXls.Worksheets("Лист2").Cells(i, 2).Formula = "=SUM(B2" & i - 1 & ")"
objXls.Worksheets("Лист2").Cells(i, 3).Formula = "=SUM(C2:C" & i - 1 & ")"
rst.Close
Set rst = Nothing
objXls.Application.Workbooks("Книга1.xls").Save
objXls.Application.Quit
Set objXls = Nothing