Abrir un archivo de formato mpp mediante VBA

Resuelto
blalaa Mensajes publicados 171 Estado Miembro -  
blalaa Mensajes publicados 171 Estado Miembro -
Bonjour

Quiero abrir un archivo de tipo "Documento de Microsoft Office Project (.mpp)" (a partir de un libro de EXCEL) para poder recuperar datos, pero no puedo.
He probado con este código, pero el formato no es adecuado.

Sub ElegirArchivo()

Dim Archivo As Variant
Archivo = Application.GetOpenFilename("Todos los archivos (*.*),*.*")

If Archivo = False Then Exit Sub

Workbooks.Open Filename:=Archivo
End Sub


Otra pregunta

Cuando abro el archivo, ¿puedo recuperar datos como en Excel o no?

Gracias de antemano por sus respuestas.

1 respuesta

  1. jordane45 Mensajes publicados 30427 Fecha de registro   Estado Moderador Última intervención   4 832
     
    Hola,

    Una simple búsqueda en la red:
     '~~> Código para abrir un archivo MPP en Excel Sub Sample() Dim appProj As MSProject.Application Dim aProg As MSProject.Project Dim wb As Workbook Dim ws As Worksheet Set wb = ActiveWorkbook '~~> Esta es la hoja donde quieres que se copien los datos Set ws = wb.Sheets("Sheet1") Set appProj = CreateObject("Msproject.Application") '~~> Este es un archivo de MS Project. Cambia la ruta según sea necesario. appProj.FileOpen "C:\MS Project.mpp" Set aProg = appProj.ActiveProject appProj.Visible = True '~~> Ahora tienes el archivo MPP abierto, el resto del código va aquí End Sub 


    --
    Atentamente,
    Jordane
    1
    1. blalaa Mensajes publicados 171 Estado Miembro
       
      ¡Muchas gracias!
      Voy a probarlo

      Para mi segunda pregunta: ¿cuando abro el archivo, puedo recuperar datos como en Excel o no?

      Gracias de nuevo.
      0
      1. jordane45 Mensajes publicados 30427 Fecha de registro   Estado Moderador Última intervención   4 832 > blalaa Mensajes publicados 171 Estado Miembro
         
        No "como" excel... pero sí es posible recuperar información...
        por ejemplo, hacer un bucle sobre las diferentes tareas... algo así
         For Each Tsk In aProg.Tasks MsgBox Tsk.Name Next 


        Al final... hay que buscar...
        La información que te doy... la encuentro en unos segundos en los foros...
        No tengo MsProject a mano para probarlas.
        0
    2. blalaa Mensajes publicados 171 Estado Miembro
       
      Re
      He intentado, pero hay un error de compilación: tipo definido por el usuario no definido

      Dim appProj As MSProject.Application


      No sé dónde está el problema

      Gracias de nuevo.
      0
    3. blalaa Mensajes publicados 171 Estado Miembro
       
      Tenía que añadir la Microsoft Project 12.0 Object Library en la referencia de VBA
      está bien, funciona muy bien

      muchas gracias

      buena noche
      0