
Macro - Traer datos de un Project desde un Excel
Publicado por Kevin (1 intervención) el 23/02/2023 19:29:14
Necesito ayuda,
no logro configurar una macro para que desde un Excel base me traiga información desde un MS Project sin la necesidad de abrir el archivo. La idea es desde un Excel poder traer el Nombre, % Completado, Fechas y una columna de texto de muchos MS Project sin la necesidad de abrir ninguno de los archivos.
¿Alguna idea?
desde este foro logre extraer la siguiente macro, pero esta solo funciona desde el Project a Excel y yo necesito desde el Excel traer el project:
Sub Copiar_Project_a_Excel()
' Macro grabada el 15/12/18 por Ignacio Martín MVP Microsoft.
Dim Mixl As Object
Set Mixl = CreateObject("Excel.Application")
Dim MixlLibro As Excel.Workbook
Dim MixlHoja As Excel.Worksheet
Set MixlLibro = Workbooks.Add
Mixl.Visible = True
Set MixlHoja = Worksheets("Hoja1")
MixlHoja.Activate
SelectTaskColumn Column:="Nombre"
EditCopy
'Cambiar aquí la celda destino
Range("A1").Select
MixlHoja.Paste
SelectTaskColumn Column:="% completado"
EditCopy
'Cambiar aquí la celda destino
Range("B1").Select
MixlHoja.Paste
End Sub
no logro configurar una macro para que desde un Excel base me traiga información desde un MS Project sin la necesidad de abrir el archivo. La idea es desde un Excel poder traer el Nombre, % Completado, Fechas y una columna de texto de muchos MS Project sin la necesidad de abrir ninguno de los archivos.
¿Alguna idea?
desde este foro logre extraer la siguiente macro, pero esta solo funciona desde el Project a Excel y yo necesito desde el Excel traer el project:
Sub Copiar_Project_a_Excel()
' Macro grabada el 15/12/18 por Ignacio Martín MVP Microsoft.
Dim Mixl As Object
Set Mixl = CreateObject("Excel.Application")
Dim MixlLibro As Excel.Workbook
Dim MixlHoja As Excel.Worksheet
Set MixlLibro = Workbooks.Add
Mixl.Visible = True
Set MixlHoja = Worksheets("Hoja1")
MixlHoja.Activate
SelectTaskColumn Column:="Nombre"
EditCopy
'Cambiar aquí la celda destino
Range("A1").Select
MixlHoja.Paste
SelectTaskColumn Column:="% completado"
EditCopy
'Cambiar aquí la celda destino
Range("B1").Select
MixlHoja.Paste
End Sub
Valora esta pregunta


0