Здравствуйте, Аноним, Вы писали:

Ну типа так (в Эксель пихать):
Set XL = GetObject("d:\1.xls")
Dim t As Task
Dim count As Integer
count = 1
For Each t In ActiveProject.Tasks
XL.Worksheets("1").Cells(count, 1).Value = t.ID
XL.Worksheets("1").Cells(count, 2).Value = t.Name
XL.Worksheets("1").Cells(count, 3).Value = t.ActualCost
XL.Worksheets("1").Cells(count, 4).Value = t.ActualDuration
XL.Worksheets("1").Cells(count, 5).Value = t.ActualFinish
XL.Worksheets("1").Cells(count, 6).Value = t.ActualStart
XL.Worksheets("1").Cells(count, 7).Value = t.Cost
XL.Worksheets("1").Cells(count, 8).Value = t.PercentComplete
XL.Worksheets("1").Cells(count, 9).Value = t.Start
XL.Worksheets("1").Cells(count, 10).Value = t.Finish
count = count + 1
Next t
' корректно выходидим из Экселя
XL.Windows("1.xls").Visible = True
XL.Save
XL.Close