MS Project Script
От: Аноним  
Дата: 29.07.05 09:46
Оценка:
Мне нужно написать скрипт (или процедуру ...сам еще не знаю что это будет), подозреваю что на VB , который будет вытягивать информацию (парсить) с файла проекта и записывать ее в отдельный файл уже в другом (моем) формате .
Подскажите с чего начать (книги, доки, ссылки...все ).
Если есть ссылки на книги по VB киньте пожалуста .
Re: MS Project Script
От: shumi  
Дата: 01.08.05 10:16
Оценка:
Здравствуйте, Аноним, Вы писали:

Ну типа так (в Эксель пихать):
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
Re: MS Project Script
От: shumi  
Дата: 01.08.05 10:19
Оценка:
Толковых ссылок, как эту бодягу программерить, я не нашел.
А ктонить знает, как в макросе явно установить родителя taska? Прямого метода не нашел, в обход как-то неуклюже и громоздко получается
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.