MsgBox "There is already a MSProject oppened (" & & ")" Set projApp = GetObject(, "MSProject.Application") Range(Cells(5, 1), Cells(lastrow, lastcol)).Select Msb = MsgBox("The gantt chart was updated, do you want to visit the web version?", vbYesNo, "Gantt webb")
, FileFormat:=xlUnicodeText, CreateBackup:=False If getHex(s1.Cells(i, 2)) = "ffffff" Then If ch(tempValue) * 1 = s1.Cells(tempValue1, 1) Then ' Worksheet we want to put the report into Este paso puede ser redundante si usted ya agregó la referencia como se mostró en el paso anterior, sin embargo es una validación útil.ĭim pid, pid_1, lPid(), ch, lProj() As Longĭim lev, lev_1, consec, consec_1, nlevel, pGrup, pParent, pParent_1, tempValue, tempValue1 As Integer La siguiente función permite integrar la referencia de MS Project al código. A partir de su editor VBA es necesario agregar la referencia Microsoft Project 14.0 Object Library (ver imagen)Įsto permite crear objetos de tipo MSProject.Application y sus componentes. Para conectar Excel con Project es necesario tener instalados ambos programas en su ordenador (versión 2010 = 14.0). Los archivos pueden ser descargados en el siguiente vinculo.Ī continuación describiremos en detalle los dos métodos : 1) MS Project Finalmente, es necesario tener JSGantt que es un desarrollo en javascript que permite crear diagramas Gantt en web.
Nota técnica: Para que la solución funcione correctamente, es necesario tener instalado MS Excel y Project (opcional) 2010, asi como un servidor local, yo particularmente utilizo XAMPP pero está en cada usuario como desea aplicarlo. En ocasiones debemos crear diagramas Gantt para el control de proyectos y resulta mas sencillo manipular los datos desde Excel que desde Project. En otras ocasiones, simplemente no se dispone de una licencia de Project para el contro del projecto.Įste post es sobre una herramienta en Excel que he diseñado en la que se puede crear un proyecto en blanco y a partir de la cual se pueden exportar los datos bien sea hacia un servidor para visualizar el proyecto en formato Gantt, o simplemente hacia MS Project.