EXCEL PROJECT

16/03/2007 - 23:14 por Orfao | Informe spam
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
Me alimento del conocimiento de todos
 

Leer las respuestas

#1 Héctor Miguel
18/03/2007 - 02:00 | Informe spam
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

Preguntas similares