EXCEL PROJECT

hola, moises !

Como puedo copiar los valores de una columna de excel a una de project
y como puedo copiar una columna de project a excel,
en ambos casos a travez de codigo estando en un libro de excel

1) establece una referencia en el proyecto de macros en excel, a la biblioteca de objetos de MSProject
2) los ejemplos a continuacion 'asumen'... [+/- lo que se puede desprender del mismo codigo] :))

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Dim miMPP As MSProject.Application
Sub Copiar_a_Project()
Dim Fila As Integer
Set miMPP = New MSProject.Application
miMPP.Projects.Add
For Fila = 2 To 21
miMPP.ActiveProject.Tasks.Add Worksheets("hoja1").Range("a" & Fila).Value
Next
miMPP.Visible = True
Set miMPP = Nothing
End Sub
Sub Copiar_de_Project()
Dim miTarea As MSProject.Task, Fila As Integer
Set miMPP = New MSProject.Application
miMPP.FileOpen Name:="c:uta y sub\carpetas donde esta\el proyecto.mpp"
Fila = 2
For Each miTarea In miMPP.ActiveProject.Tasks
Worksheets("hoja1").Range("b" & Fila) = miTarea.Name
Fila = Fila + 1
Next
miMPP.Visible = True
Set miMPP = Nothing
End Sub

Hola Hector.
copie tu codigo y lo probe pero me genera un error:
Office esta esperando que otra aplicacion complete una accion OLE
cuando leo de project a excel
Por que?

Me alimento del conocimiento de todos


"Héctor Miguel" wrote:

hola, moises !

> Como puedo copiar los valores de una columna de excel a una de project
> y como puedo copiar una columna de project a excel,
> en ambos casos a travez de codigo estando en un libro de excel

1) establece una referencia en el proyecto de macros en excel, a la biblioteca de objetos de MSProject
2) los ejemplos a continuacion 'asumen'... [+/- lo que se puede desprender del mismo codigo] :))

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Dim miMPP As MSProject.Application
Sub Copiar_a_Project()
Dim Fila As Integer
Set miMPP = New MSProject.Application
miMPP.Projects.Add
For Fila = 2 To 21
miMPP.ActiveProject.Tasks.Add Worksheets("hoja1").Range("a" & Fila).Value
Next
miMPP.Visible = True
Set miMPP = Nothing
End Sub
Sub Copiar_de_Project()
Dim miTarea As MSProject.Task, Fila As Integer
Set miMPP = New MSProject.Application
miMPP.FileOpen Name:="c:uta y sub\carpetas donde esta\el proyecto.mpp"
Fila = 2
For Each miTarea In miMPP.ActiveProject.Tasks
Worksheets("hoja1").Range("b" & Fila) = miTarea.Name
Fila = Fila + 1
Next
miMPP.Visible = True
Set miMPP = Nothing
End Sub

hola, moises !

copie tu codigo y lo probe pero me genera un error:
Office esta esperando que otra aplicacion complete una accion OLE
cuando leo de project a excel
Por que?

ni idea... :-(( [probablemente son 'vinculos' que tiene en espera de actualizacion el projecto .MPP] -?-

prueba manteniendo abierta la sesion del ms-project y activo "el proyecto.mpp" 'en cuestion'...
y modifica la obtencion/asignacion/... de la variable de:-> 'New' por una instruccion 'GetObject' +/- como sigue:

Sub Copiar_de_Project()
Dim miTarea As MSProject.Task, Fila As Integer
Set miMPP = GetObject(, "MSProject.Application")
' Set miMPP = New MSProject.Application
' miMPP.FileOpen Name:="c:uta y sub\carpetas donde esta\el proyecto.mpp"
Fila = 2
For Each miTarea In miMPP.ActiveProject.Tasks
Worksheets("hoja1").Range("b" & Fila) = miTarea.Name
Fila = Fila + 1
Next
' miMPP.Visible = True
Set miMPP = Nothing
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Si no requeris hacerlo mediante macros, podes copiar las celdas del excel en
el project con la opción de pegado especial como si fuera un vinculo de texto.

El mismo procedimiento aplica para pegar las celdas del project al excel, se
copian las celdas y se pegan como un vinculo de texto.

Suerte

germán