Automatización del MS Project

Lamentablemente no lo tengo instalado, este software se compra? o se puede
bajar de forma libre de alguna direccion?

Monica

Foxpro26 wrote:

¿Has instalado el software Kidasa Milestone?

"Monica Rodriguez" escribió en el mensaje
news:%
> Amigos.
>
> He tratado de probar el Microsoft Project Code Example #3, de la
> direccion
>

http://www.kidasa.com/information/p...mple3.html

>
> Pero me sale un mensaje que dice que el componente ActiveX no puede crear
> el objeto.
>
> No tengo el visual basic instalado, estoy utilizando el vb 6.3 que viene
> incorporado con el project 2003, me falta completar algo?
>
> Gracias.
>
> Monica.
>
>
> Jorge Martínez wrote:
>
>> Gracias amigo por contestar,
>> Bueno de hecho lo unico que he logrado hacer es:
>
>> Release All Like oProject
>> Public oProject
>> oProject = CreateObject("MS Project.Application")
>> oProject.Visible = .t.
>
>> De acá mas nada...
>
>> He intentado inclusive "abrir" un archivo escrito en MS Project
>> escrbioenfdo
>> el código siguiente:
>
>> Release All Like oProject
>> Public oProject
>> oProject = CreateObject("MSProject.Application")
>> oProject.Visible = .t.
>> Myproject = oleApp.FileOpen ("C:Mis DocumentostPrograma.mpp")
>
>> Pero nada..., logro abrir el MS Project pero no logro abrir el archivo
>> .mpp,
>> en mi caso tPrograma.mpp
>
>> he logrado con esto poder a partir de código VFP el MS Project, pero
>> necesito además lograr desde una base de datos (,dbf), previamente
>> relacionada "pasarle" al MS Project la siguiente data:
>
>> id Actividad
>> Actividad
>> id Tarea
>> Tarea
>> id SubTarea
>> SubTarea
>> Fecha de Inicio Real
>> Fecha de Fin Real
>> Fecha de Inicio Programada
>> Fecha de Fin programada
>> Duración Real
>> Duración programada
>> Unidad
>> Cantidad Estimada
>> Cantidad Real
>> Costo
>> Recursos asociados
>
>> Je,je, bueno disculpen que les coloque la estructura de la tabla, pero la
>> idea es iteractuar data desde VFP 8.00 hacia MS Project 2000 y
>> visceversa...
>
>> Gracias por su tiempo y colaboración y por favor disculpen lo largo del
>> mensaje
>
>> Saludos cordiales,
>
>> Jorge Martínez
>>
>
>
>> "Jorge Martínez" escribió en el mensaje
>> news:
>> > Evidentemente esa es la idea, que nos sirv a todos, he conseguido en
>> > verdad algi de información pero en VBasic, en realidad, - y no me da
>> > pena
>> > decirlo-, no lo domino muy bién, por ello pido la ayuda a ver si es
>> > posible hacerlo con VFoxPro. Pueden ver los ejemplos en:
>> >
>> > http://www.kidasa.com/information/p...mple2.html
>> >
>> > también en:
>> > http://support.microsoft.com/?kbid!0014
>> >
>> > Agradeceria enormemente su ayuda al respecto,
>> >
>> > Gracias totales,
>> >
>> > Jorge Martínez M.
>> >
>> >
>> >
>> > "Foxpro26" escribió en el mensaje
>> > news:
>> >> Si es en VB60 y hace lo que quieres igual "podemos" migrarlo y que sea
>> >> util a la comunidad VFP
>> >>
>> >> "Jorge Martínez" escribió en el mensaje
>> >> news:
>> >>> Saludos foro.!, es posible automatizar el MS Project desde otra
>> >>> aplicación propia de Microsoft?, concretamente MS Visual FoxPro... He
>> >>> vusto un ejemplo (muy bueno por ciero, excelente) elaborado en
>> >>> VBasic,
>> >>> pero necesito por favor que sea desde Visual FoxPro.
>> >>>
>> >>> Agradecería enormemente su ayuda al respecto...
>> >>>
>> >>> Sauludos cordiales,
>> >>> Jorge Martínez
>> >>>
>> >>>
>> >>>
>> >>>
>> >>
>> >>
>> >
>> >
>
>

Te puedes bajar una Tryal desde

http://www.kidasa.com/download/Down...ional.html

De hecho estos ejemplos para emplear con este software, no tanto con
MSProjects, es un ejemplo para migrar de MSProject a Milestones

¿Es eso lo que quieres?.

"Monica Rodriguez" escribió en el mensaje
news:%

Lamentablemente no lo tengo instalado, este software se compra? o se puede
bajar de forma libre de alguna direccion?

Monica

Foxpro26 wrote:

¿Has instalado el software Kidasa Milestone?

"Monica Rodriguez" escribió en el mensaje
news:%
> Amigos.
>
> He tratado de probar el Microsoft Project Code Example #3, de la
> direccion
>

http://www.kidasa.com/information/p...mple3.html

>
> Pero me sale un mensaje que dice que el componente ActiveX no puede
> crear
> el objeto.
>
> No tengo el visual basic instalado, estoy utilizando el vb 6.3 que
> viene
> incorporado con el project 2003, me falta completar algo?
>
> Gracias.
>
> Monica.
>
>
> Jorge Martínez wrote:
>
>> Gracias amigo por contestar,
>> Bueno de hecho lo unico que he logrado hacer es:
>
>> Release All Like oProject
>> Public oProject
>> oProject = CreateObject("MS Project.Application")
>> oProject.Visible = .t.
>
>> De acá mas nada...
>
>> He intentado inclusive "abrir" un archivo escrito en MS Project
>> escrbioenfdo
>> el código siguiente:
>
>> Release All Like oProject
>> Public oProject
>> oProject = CreateObject("MSProject.Application")
>> oProject.Visible = .t.
>> Myproject = oleApp.FileOpen ("C:Mis DocumentostPrograma.mpp")
>
>> Pero nada..., logro abrir el MS Project pero no logro abrir el archivo
>> .mpp,
>> en mi caso tPrograma.mpp
>
>> he logrado con esto poder a partir de código VFP el MS Project, pero
>> necesito además lograr desde una base de datos (,dbf), previamente
>> relacionada "pasarle" al MS Project la siguiente data:
>
>> id Actividad
>> Actividad
>> id Tarea
>> Tarea
>> id SubTarea
>> SubTarea
>> Fecha de Inicio Real
>> Fecha de Fin Real
>> Fecha de Inicio Programada
>> Fecha de Fin programada
>> Duración Real
>> Duración programada
>> Unidad
>> Cantidad Estimada
>> Cantidad Real
>> Costo
>> Recursos asociados
>
>> Je,je, bueno disculpen que les coloque la estructura de la tabla, pero
>> la
>> idea es iteractuar data desde VFP 8.00 hacia MS Project 2000 y
>> visceversa...
>
>> Gracias por su tiempo y colaboración y por favor disculpen lo largo
>> del
>> mensaje
>
>> Saludos cordiales,
>
>> Jorge Martínez
>>
>
>
>> "Jorge Martínez" escribió en el mensaje
>> news:
>> > Evidentemente esa es la idea, que nos sirv a todos, he conseguido en
>> > verdad algi de información pero en VBasic, en realidad, - y no me da
>> > pena
>> > decirlo-, no lo domino muy bién, por ello pido la ayuda a ver si es
>> > posible hacerlo con VFoxPro. Pueden ver los ejemplos en:
>> >
>> > http://www.kidasa.com/information/p...mple2.html
>> >
>> > también en:
>> > http://support.microsoft.com/?kbid!0014
>> >
>> > Agradeceria enormemente su ayuda al respecto,
>> >
>> > Gracias totales,
>> >
>> > Jorge Martínez M.
>> >
>> >
>> >
>> > "Foxpro26" escribió en el mensaje
>> > news:
>> >> Si es en VB60 y hace lo que quieres igual "podemos" migrarlo y que
>> >> sea
>> >> util a la comunidad VFP
>> >>
>> >> "Jorge Martínez" escribió en el
>> >> mensaje
>> >> news:
>> >>> Saludos foro.!, es posible automatizar el MS Project desde otra
>> >>> aplicación propia de Microsoft?, concretamente MS Visual FoxPro...
>> >>> He
>> >>> vusto un ejemplo (muy bueno por ciero, excelente) elaborado en
>> >>> VBasic,
>> >>> pero necesito por favor que sea desde Visual FoxPro.
>> >>>
>> >>> Agradecería enormemente su ayuda al respecto...
>> >>>
>> >>> Sauludos cordiales,
>> >>> Jorge Martínez
>> >>>
>> >>>
>> >>>
>> >>>
>> >>
>> >>
>> >
>> >
>
>

La verdad, pense que se podia ejecutar los codigos del ejemplo desde el
Visual basic que trae el ms project.

De todos modos gracias.

Monica.

Foxpro26 wrote:

Te puedes bajar una Tryal desde

http://www.kidasa.com/download/Down...ional.html

De hecho estos ejemplos para emplear con este software, no tanto con
MSProjects, es un ejemplo para migrar de MSProject a Milestones

¿Es eso lo que quieres?.

"Monica Rodriguez" escribió en el mensaje
news:%
> Lamentablemente no lo tengo instalado, este software se compra? o se puede
> bajar de forma libre de alguna direccion?
>
> Monica
>
> Foxpro26 wrote:
>
>> ¿Has instalado el software Kidasa Milestone?
>
>> "Monica Rodriguez" escribió en el mensaje
>> news:%
>> > Amigos.
>> >
>> > He tratado de probar el Microsoft Project Code Example #3, de la
>> > direccion
>> >
>

http://www.kidasa.com/information/p...mple3.html

>> >
>> > Pero me sale un mensaje que dice que el componente ActiveX no puede
>> > crear
>> > el objeto.
>> >
>> > No tengo el visual basic instalado, estoy utilizando el vb 6.3 que
>> > viene
>> > incorporado con el project 2003, me falta completar algo?
>> >
>> > Gracias.
>> >
>> > Monica.
>> >
>> >
>> > Jorge Martínez wrote:
>> >
>> >> Gracias amigo por contestar,
>> >> Bueno de hecho lo unico que he logrado hacer es:
>> >
>> >> Release All Like oProject
>> >> Public oProject
>> >> oProject = CreateObject("MS Project.Application")
>> >> oProject.Visible = .t.
>> >
>> >> De acá mas nada...
>> >
>> >> He intentado inclusive "abrir" un archivo escrito en MS Project
>> >> escrbioenfdo
>> >> el código siguiente:
>> >
>> >> Release All Like oProject
>> >> Public oProject
>> >> oProject = CreateObject("MSProject.Application")
>> >> oProject.Visible = .t.
>> >> Myproject = oleApp.FileOpen ("C:Mis DocumentostPrograma.mpp")
>> >
>> >> Pero nada..., logro abrir el MS Project pero no logro abrir el archivo
>> >> .mpp,
>> >> en mi caso tPrograma.mpp
>> >
>> >> he logrado con esto poder a partir de código VFP el MS Project, pero
>> >> necesito además lograr desde una base de datos (,dbf), previamente
>> >> relacionada "pasarle" al MS Project la siguiente data:
>> >
>> >> id Actividad
>> >> Actividad
>> >> id Tarea
>> >> Tarea
>> >> id SubTarea
>> >> SubTarea
>> >> Fecha de Inicio Real
>> >> Fecha de Fin Real
>> >> Fecha de Inicio Programada
>> >> Fecha de Fin programada
>> >> Duración Real
>> >> Duración programada
>> >> Unidad
>> >> Cantidad Estimada
>> >> Cantidad Real
>> >> Costo
>> >> Recursos asociados
>> >
>> >> Je,je, bueno disculpen que les coloque la estructura de la tabla, pero
>> >> la
>> >> idea es iteractuar data desde VFP 8.00 hacia MS Project 2000 y
>> >> visceversa...
>> >
>> >> Gracias por su tiempo y colaboración y por favor disculpen lo largo
>> >> del
>> >> mensaje
>> >
>> >> Saludos cordiales,
>> >
>> >> Jorge Martínez
>> >>
>> >
>> >
>> >> "Jorge Martínez" escribió en el mensaje
>> >> news:
>> >> > Evidentemente esa es la idea, que nos sirv a todos, he conseguido en
>> >> > verdad algi de información pero en VBasic, en realidad, - y no me da
>> >> > pena
>> >> > decirlo-, no lo domino muy bién, por ello pido la ayuda a ver si es
>> >> > posible hacerlo con VFoxPro. Pueden ver los ejemplos en:
>> >> >
>> >> > http://www.kidasa.com/information/p...mple2.html
>> >> >
>> >> > también en:
>> >> > http://support.microsoft.com/?kbid!0014
>> >> >
>> >> > Agradeceria enormemente su ayuda al respecto,
>> >> >
>> >> > Gracias totales,
>> >> >
>> >> > Jorge Martínez M.
>> >> >
>> >> >
>> >> >
>> >> > "Foxpro26" escribió en el mensaje
>> >> > news:
>> >> >> Si es en VB60 y hace lo que quieres igual "podemos" migrarlo y que
>> >> >> sea
>> >> >> util a la comunidad VFP
>> >> >>
>> >> >> "Jorge Martínez" escribió en el
>> >> >> mensaje
>> >> >> news:
>> >> >>> Saludos foro.!, es posible automatizar el MS Project desde otra
>> >> >>> aplicación propia de Microsoft?, concretamente MS Visual FoxPro...
>> >> >>> He
>> >> >>> vusto un ejemplo (muy bueno por ciero, excelente) elaborado en
>> >> >>> VBasic,
>> >> >>> pero necesito por favor que sea desde Visual FoxPro.
>> >> >>>
>> >> >>> Agradecería enormemente su ayuda al respecto...
>> >> >>>
>> >> >>> Sauludos cordiales,
>> >> >>> Jorge Martínez
>> >> >>>
>> >> >>>
>> >> >>>
>> >> >>>
>> >> >>
>> >> >>
>> >> >
>> >> >
>> >
>> >
>
>

Este es el código de Microsoft traducido a VFP

http://support.microsoft.com/?kbid!0014

El otro no tiene mucho sentido traducirlo, pues es código para hacer uso del
producto Milestone no de MS Projects.

&&Option Compare Database
&&Option Explicit

&&Function fncProjectOLE()

&& Dim prjApp As MSProject.Application

&& Dim prjProject As MSProject.Project

&& Dim intTask As Integer

&& Set prjApp = CreateObject("Msproject.Application")

prjApp = CreateObject("Msproject.Application")

&& prjApp.FileOpen "C:\Project1.mpp", ReadOnly:=True

prjApp.FileOpen("C:\Project1.mpp",.t.)

&& prjApp.Visible = True

prjApp.Visible = .T.

&&Run a macro.

&&prjApp.Macro "Toggle_Read_Only" 'Toggle file back to read-write.

prjApp.Macro("Toggle_Read_Only") &&Toggle file back to read-write.

&& Set prjProject = prjApp.ActiveProject

prjProject = prjApp.ActiveProject

&& 'Add tasks to the project.

&& For intTask = 1 To 10

&& prjProject.Tasks.Add Name:="Task" & intTask

&& Next intTask

For intTask = 1 To 10

prjProject.Tasks.Add("Task"+intTask)

Next

*!* prjApp.SelectColumn

*!* prjApp.FontItalic True 'Change font properties.

*!* prjApp.EditGoTo 5, Date 'Go to a specific cell in the column.

*!* prjApp.FilePrintPreview 'Print preview the file.

*!* 'prjApp.FilePrint 'Use this line to print the file.

*!* 'prjApp.FileSave 'Use this line to save the file.

*!* prjApp.FileClose pjDoNotSave

*!* prjApp.Quit

prjApp.SelectColumn

prjApp.FontItalic(.T.) && Change font properties.

prjApp.EditGoTo( 5, DATE()) && Go to a specific cell in the column.

prjApp.FilePrintPreview 'Print preview the file.

&& prjApp.FilePrint && Use this line to print the file.

&& prjApp.FileSave && Use this line to save the file.

prjApp.FileClose(pjDoNotSave)

prjApp.Quit

*-- Set prjProject = Nothing

*-- Set prjApp = Nothing

prjProject = .null.

prjApp = .null.

*--End Function



"Jorge Martínez" escribió en el mensaje
news:

Evidentemente esa es la idea, que nos sirv a todos, he conseguido en
verdad algi de información pero en VBasic, en realidad, - y no me da pena
decirlo-, no lo domino muy bién, por ello pido la ayuda a ver si es
posible hacerlo con VFoxPro. Pueden ver los ejemplos en:

http://www.kidasa.com/information/p...mple2.html

también en:
http://support.microsoft.com/?kbid!0014

Agradeceria enormemente su ayuda al respecto,

Gracias totales,

Jorge Martínez M.



"Foxpro26" escribió en el mensaje
news:

Si es en VB60 y hace lo que quieres igual "podemos" migrarlo y que sea
util a la comunidad VFP

"Jorge Martínez" escribió en el mensaje
news:

Saludos foro.!, es posible automatizar el MS Project desde otra
aplicación propia de Microsoft?, concretamente MS Visual FoxPro... He
vusto un ejemplo (muy bueno por ciero, excelente) elaborado en VBasic,
pero necesito por favor que sea desde Visual FoxPro.

Agradecería enormemente su ayuda al respecto...

Sauludos cordiales,
Jorge Martínez

Yo empleo dos técnicas cuando quiero automatizar alguna aplicación desde
OLE.

1) Macros.
Todas las aplicaciones Office (como MS Projects) puedes programar las
acciones que quieres realizar en Macros, simplemente haciendolas en la
aplicación y grabando una macro con ellas.
Tras la grabación solo tienes que mirar el código con el editor que te
viene, y trasladarlo a VFP, que como puedes comprobar no es muy complicado.
VB emplea una síntaxis de comandos, y tiene propiedades por defecto, y VFP
emplea una síntaxis más funcional, no tiene propiedades por defecto, y
alguna cosilla más.

2) Ejecutar las acciones antes en la línea de comandos de VFP.
Si creas un objeto OLE en la línea de comandos, el objeto te ayuda dandote
información sobre los métodos que tiene y los parametros que acepta. Así
poco a poco puedes hacer lo que quieras con un poco de idea.

Saludos.
José Luis


"Jorge Martínez" escribió en el mensaje
news:

Evidentemente esa es la idea, que nos sirv a todos, he conseguido en
verdad algi de información pero en VBasic, en realidad, - y no me da pena
decirlo-, no lo domino muy bién, por ello pido la ayuda a ver si es
posible hacerlo con VFoxPro. Pueden ver los ejemplos en:

http://www.kidasa.com/information/p...mple2.html

también en:
http://support.microsoft.com/?kbid!0014

Agradeceria enormemente su ayuda al respecto,

Gracias totales,

Jorge Martínez M.



"Foxpro26" escribió en el mensaje
news:

Si es en VB60 y hace lo que quieres igual "podemos" migrarlo y que sea
util a la comunidad VFP

"Jorge Martínez" escribió en el mensaje
news:

Saludos foro.!, es posible automatizar el MS Project desde otra
aplicación propia de Microsoft?, concretamente MS Visual FoxPro... He
vusto un ejemplo (muy bueno por ciero, excelente) elaborado en VBasic,
pero necesito por favor que sea desde Visual FoxPro.

Agradecería enormemente su ayuda al respecto...

Sauludos cordiales,
Jorge Martínez