MS Project and Builder

@Dinkin · Регистрация: 31.05.2013

Author24 — интернет-сервис помощи студентам

Доброго!
Необходимо получать данные из "проджект" файла себе в табличку (пусть в SG). По сей день мне приходилось использовать Java для этих целей, но сил его поддерживать уже нет.

Умельцы пишут, что с ним можно работать через ole, как с обычным контейнером, так как это тот же excel, со своей версткой...но у меня так не выходит)

@Dinkin · 20.09.2018, 11:23 **[ТС]**

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

C++

AnsiString st = "D:\\Этапы захвата солнечной системы(lite).mpp";
 Variant Proj;
 Variant Book;
 Proj=CreateOleObject("MSProject.Application");
 Proj.OlePropertyGet("FileOpen", StringToOleStr(st));
 Proj.OlePropertySet("DisplayAlerts",false); // предупреждения Proj выключить
 Book = Proj.OlePropertyGet("ActiveProject");
 
 /*
 Memo1->Lines->Add(Book.OlePropertyGet("Tasks").OlePropertyGet("Item",1).OlePropertyGet("Text1"));
 Memo1->Lines->Add(Book.OlePropertyGet("Tasks").OlePropertyGet("Item",1).OlePropertyGet("Text2"));
 Memo1->Lines->Add(Book.OlePropertyGet("Tasks").OlePropertyGet("Item",1).OlePropertyGet("Name"));
 Memo1->Lines->Add(Book.OlePropertyGet("Tasks").OlePropertyGet("Item",1).OlePropertyGet("Duration"));
 Memo1->Lines->Add(Book.OlePropertyGet("Tasks").OlePropertyGet("Item",1).OlePropertyGet("Start"));
 Memo1->Lines->Add(Book.OlePropertyGet("Tasks").OlePropertyGet("Item",1).OlePropertyGet("Finish"));
 Memo1->Lines->Add(Book.OlePropertyGet("Tasks").OlePropertyGet("Item",1).OlePropertyGet("Predecessors"));
 Memo1->Lines->Add(Book.OlePropertyGet("Tasks").OlePropertyGet("Item",1).OlePropertyGet("WBS"));
 Memo1->Lines->Add(Book.OlePropertyGet("Tasks").OlePropertyGet("Item",1).OlePropertyGet("ResourceNames"));
 Memo1->Lines->Add(Book.OlePropertyGet("Tasks").OlePropertyGet("Item",1).OlePropertyGet("ID"));
 Memo1->Lines->Add(Book.OlePropertyGet("Tasks").OlePropertyGet("Item",1).OlePropertyGet("Type"));
 Memo1->Lines->Add(Book.OlePropertyGet("Tasks").OlePropertyGet("Item",1).OlePropertyGet("VAC"));  //?
 Memo1->Lines->Add(Book.OlePropertyGet("Tasks").OlePropertyGet("Item",1).OlePropertyGet("WBS"));  //?
 Memo1->Lines->Add(Book.OlePropertyGet("Tasks").OlePropertyGet("Item",1).OlePropertyGet("Work")); //?
 Memo1->Lines->Add(Book.OlePropertyGet("Tasks").OlePropertyGet("Item",1).OlePropertyGet("Cost")); //?
 */
 
 
 Excel.OlePropertySet("Visible",true);
 Excel.OleProcedure("Quit");

Но как добраться до цвета Font. Макрос в самом проджекте показал данный код, но как его заделать под OLE, не понятною

Visual Basic

Sub Macro1()
    SelectTaskField Row:=2, Column:="Оконочание"
    Font32Ex Color:=2366701
End Sub

@TrollHammer · 21.09.2018, 01:15

Скорее всего так

C++

1	int Font = Sheet.OlePropertyGet("Cells", 2,3).OlePropertyGet("Font32Ex").OlePropertyGet("Color");

Но это предположение, исходя из текста макроса

@Dinkin · 21.09.2018, 10:47 **[ТС]**

TrollHammer, Спасибо, но не прокатывает....просто в проджекте единицей является "task" строка, а в экселе, ячейка....Я уже 100500 вариантов со строкой перепробовал)

@TrollHammer · 21.09.2018, 10:55

Dinkin, А если залезть в потроха файла и посмотреть там, как правильно называются элементы и их свойства?

Добавлено через 19 секунд
Я так Excel ковырял

@Dinkin · 21.09.2018, 10:59 **[ТС]**

Обчно через макросы и лез. А если Вы про xml, то в проджекте при экспорте в xml цвета сбрасываются, там не глянуть)

@D1973 · 21.09.2018, 11:09

А офис какой? Я к тому, что новые офисы, имеющие форматы docx, xlsx... эти файлы, по сути, архивы, внутри которых XML файлы... Может, и с Project то же самое и попробовать их поковырять?

@Dinkin · 21.09.2018, 11:14 **[ТС]**

D1973, Да так же разбирается как архив на кучу файлов, но внутри я ненашел корректного xml, где можно подсмотреть

@Dinkin · 28.09.2018, 22:46 **[ТС]**

В общем, полностью разобрал MSProject, понял че к чему и как подключать, вставлять, заменять, выбирать =) Будет время попробую выложить мини мануал.

@Dinkin 737 / 527 / 130 Регистрация: 31.05.2013 Сообщений: 2,975 Записей в блоге: 3
		1
	MS Project and Builder 19.09.2018, 00:24. Показов 699. Ответов 8 Метки нет (Все метки) Доброго! Необходимо получать данные из "проджект" файла себе в табличку (пусть в SG). По сей день мне приходилось использовать Java для этих целей, но сил его поддерживать уже нет. Умельцы пишут, что с ним можно работать через ole, как с обычным контейнером, так как это тот же excel, со своей версткой...но у меня так не выходит) 0

@Dinkin 737 / 527 / 130 Регистрация: 31.05.2013 Сообщений: 2,975 Записей в блоге: 3
	21.09.2018, 10:47 [ТС]	4
	TrollHammer, Спасибо, но не прокатывает....просто в проджекте единицей является "task" строка, а в экселе, ячейка....Я уже 100500 вариантов со строкой перепробовал) 0

@TrollHammer 1212 / 706 / 335 Регистрация: 22.02.2018 Сообщений: 2,059 Записей в блоге: 2
	21.09.2018, 10:55	5
	Dinkin, А если залезть в потроха файла и посмотреть там, как правильно называются элементы и их свойства? Добавлено через 19 секунд Я так Excel ковырял 0

@Dinkin 737 / 527 / 130 Регистрация: 31.05.2013 Сообщений: 2,975 Записей в блоге: 3
	21.09.2018, 10:59 [ТС]	6
	Обчно через макросы и лез. А если Вы про xml, то в проджекте при экспорте в xml цвета сбрасываются, там не глянуть) 0

@D1973 Модератор 9261 / 6039 / 2379 Регистрация: 21.01.2014 Сообщений: 25,803 Записей в блоге: 3
	21.09.2018, 11:09	7
	А офис какой? Я к тому, что новые офисы, имеющие форматы docx, xlsx... эти файлы, по сути, архивы, внутри которых XML файлы... Может, и с Project то же самое и попробовать их поковырять? 0

@Dinkin 737 / 527 / 130 Регистрация: 31.05.2013 Сообщений: 2,975 Записей в блоге: 3
	21.09.2018, 11:14 [ТС]	8
	D1973, Да так же разбирается как архив на кучу файлов, но внутри я ненашел корректного xml, где можно подсмотреть 0

@Dinkin 737 / 527 / 130 Регистрация: 31.05.2013 Сообщений: 2,975 Записей в блоге: 3
	28.09.2018, 22:46 [ТС]	9
	В общем, полностью разобрал MSProject, понял че к чему и как подключать, вставлять, заменять, выбирать =) Будет время попробую выложить мини мануал. 0