Главная страница Microsoft Project УПРАВЛЕНИЕ ПРОЕКТАМИ
Спрашивайте! Наши эксперты ответят.
 
 FAQFAQ   ПоискПоиск   ПользователиПользователи   ГруппыГруппы   РегистрацияРегистрация 
 ПрофильПрофиль   Войти и проверить личные сообщенияВойти и проверить личные сообщения   ВходВход 

 
Для оперативного ответа рекомендуем задать вопрос в нашей группе Facebook
Более 11.000 человек уже в нашей группе по MS Project
На этом форуме запрещены ссылки, но они разрешены в группе Facebook
 
VBA в MS Project + Delphi

 
Начать новую тему   Ответить на тему    Список форумов УПРАВЛЕНИЕ ПРОЕКТАМИ -> MS Project Standard
Предыдущая тема :: Следующая тема  
Автор Сообщение
nikomp
Постоянный участник


Зарегистрирован: 31.10.2014
Сообщения: 16

СообщениеДобавлено: Пт, 31 Окт 2014, 11:51    Заголовок сообщения: VBA в MS Project + Delphi Ответить с цитатой

Добрый день!
Пытаюсь вытащить информацию из файла MS project 2003
В Delphi импортировал библиотеку типов, подключился к Прожекту, как теперь обойти дерево задач?
Ну или хотя бы получить список подзадач, как вообще отслеживается иерархия задач?

Пока есть вот что

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
    projApp: _MSProject;
    projDoc: _IProjectDoc;
    TaskCount: integer;
begin
  projApp := CoProjectApplication.Create;
  projApp.Visible := true;
  Variant(projApp).FileOpen('C:\Шаблон маршрута.mpp'); 
  projDoc := projApp.ActiveProject;
  TaskCount := Variant(projDoc).Tasks.Count; // Число задач, каждая задача - строка в ПРОЖЕКТЕ
  showmessage(inttostr(TaskCount));

  showmessage(Variant(projDoc).Tasks.Item[1].Name);  // Обозначение первой задачи
end;
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Показать сообщения:   
Начать новую тему   Ответить на тему    Список форумов УПРАВЛЕНИЕ ПРОЕКТАМИ -> MS Project Standard Часовой пояс: GMT + 3
Страница 1 из 1

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах

© 2003 - 2009, Портал MicrosoftProject.ru. Все права защищены.