Èíòåðôåéñ Access è MS Project
|
|
Âòîðíèê, 26 Àâãóñòà 2014 ã. 00:55
+ â öèòàòíèê
Äîáðîãî âðåìåíè ñóòîê!
Ñòîèò çàäà÷à âûãðóçèòü â MS Project 2010 èç MS Access ïðîèçâîäñòâåííûå ìàðøðóòû (íå âàæíî ÷èòàé òàáëè÷íûå äàííûå). Î÷åíü ìàëî óäàëîñü íàðûòü èíôû.
Êîä ïî äîáàâëåíèþ íîâîãî çàäàíèÿ:
Dim pjApp As Object
Set pjApp = CreateObject("MSProject.Application")
pjApp.Visible = True
zadanie = ist![Çàêàçû_Ñîäåðæèìîå_Äåòàëüíî.designation] & ":" & ist![Çàêàçû_Ñîäåðæèìîå_Äåòàëüíî.Name] & "(" & ist![ÂåòêàÌàðøðóòàÒåêñò] & ")"
pjApp.ActiveProject.Tasks.Add zadanie
Ðàáîòàåò. Äàëüøå ïî ïðèìåðó Excel âêëþ÷àþ â Project-e çàïèñü ìàêðîñà âñòàâëÿþ êîëîíêó íàïðèìåð, ïåðåíîøó êîä â Access è íèôèãà íå ðàáîòàåò.
Êîíêðåòíî íàäî:
1. Âñòàâèòü íåñêîëüêî òåêñòîâûõ ñòîëáöîâ
2. Çàïîëíèòü ñòðîêè äàííûìè (ïî ñòîëáöàì)
3. Óñòàíîâèòü ñâÿçè è èåðàðõèþ (óðîâåíü ãðóïïèðîâêè, ïëþñèêè :-) )
 ëèòåðàòóðå â îñíîâíîì êàê ðó÷êàìè äåëàòü. Íàó÷èòå ïëèç! Èëè õîòÿ áû íàïðàâüòå.
åøå ìîìåíò:
íà îô. ñàéòå êîä ïî ðàííåìó ñâÿçûâàíèþ:
Sub ModifyProject_Early()
Dim pjApp As MSProject.Application
Set pjApp = New MSProject.Application
pjApp.Visible = True
pjApp.FileOpen "Clocks.mpp"
pjApp.ActiveProject.Tasks.Add "Wind clocks"
pjApp.FileSave
pjApp.FileClose
pjApp.Quit
End Sub
íå êîìïèëèðóåòñÿ õîòÿ áèáëèîòåêè â references âðîäå ïîäêëþ÷èë. Ïîçäíåå ñâÿçûâàíèå ðàáîòàåò.
Ìîæåò êòî-òî óæå ýòî îñâîèë.
Èíôó ÷åðïàë çäåñü
http://msdn.microsoft.com/en-us/library/office/office.vbapj.chm131265(v=office.15)ÍÓÆÅÍ ÏÈÍÎÊ! ÏËÈÇ!
http://www.sql.ru/forum/1112551/interfeys-access-i-ms-project
-
Çàïèñü ïîíðàâèëàñü
-
0
Ïðîöèòèðîâàëè
-
0
Ñîõðàíèëè
-