1. AyudaExcel utiliza cookies. Si continuas utilizando AyudaExcel, estás aceptando la utilización de nuestras cookies. Más información.
  2. ¡Bienvenid@ a AyudaExcel! El foro más visitado sobre Excel en habla hispana.

    Si esta es tu primera visita, asegúrate de revisar los temas de la sección Utilización y Funcionamiento para familiarizarte con las funciones del foro. Si deseas publicar mensajes, será necesario que te Registres para que puedas dejar respuestas y crear tus propios mensajes, recuerda que es gratuito.

[SOLUCIONADO] Saber qué versión de Excel tengo instalado en cada ordenador de mi red

Tema publicado en 'Macros y programación VBA' iniciado por josemaria, 13 Oct 2010.

Estado del tema:
Cerrado para nuevas respuestas
  1. josemaria

    josemaria Usuario

    Registrado:
    24 Sep 2008
    Mensajes:
    738
    Me Gusta recibidos:
    5
    Hola;

    no se si esto es posible o no, pero mediante una macro, se puede saber que versión de excel se tiene instalado en varios ordenadores.


    Un Saludo.
    Jose Maria.
  2. josemaria

    josemaria Usuario

    Registrado:
    24 Sep 2008
    Mensajes:
    738
    Me Gusta recibidos:
    5
    con este codigo puedo ver la version que tengo en un equipo:


    -------------------------------------------------------------------------
    Obtener versión de Word y Excel desde vb
    -------------------------------------------------------------------------
    # Option Explicit
    #
    # Enum Aplicacion
    # EXCEL = 0
    # WORD = 1
    # End Enum
    #
    # ' Función
    # ''''''''''''''
    # Private Function ver(Ap As Aplicacion) As Variant
    #
    # Dim Obj As Object
    # Dim TempVer As Variant
    #
    # On Error Resume Next
    # Select Case Ap
    # Case 0
    # ' Para el Excel
    # Set Obj = CreateObject("Excel.Application")
    # Case 1
    # ' para el Microsoft Word
    # Set Obj = CreateObject("Word.Application")
    # End Select
    #
    # TempVer = Obj.version
    #
    # ' si no hubo error ..
    # If Err = 0 Then
    # ver = TempVer ' retorna el valor a la función
    # Else
    # MsgBox "No se pudo acceder a la aplicación", vbCritical
    # End If
    #
    # ' cierra y elimina la referencia creada
    # Obj.quit
    # Set Obj = Nothing
    #
    # ' limpia el error
    # Err.Clear
    #
    # End Function
    #
    # Private Sub Form_Load()
    # 'Muestra un mensaje con las versiones
    # MsgBox "Versión del Excel: " & ver(EXCEL), vbInformation
    # MsgBox "Versión del Word: " & ver(WORD), vbInformation
    # End Sub



    ------------------------------------------------------

    pero para obtener la versión de cada uno de los equipos?




    Edito: esto a mi no me funciona: Get all Machines on the Local Area network using System.DirectoryServices NameSpace .net 2.0. - .Net Articles & Samples

    y aqui hay cientos de cosas que no he visto en mi vida

    esto podria funcionar?
    Enum the Users of an NT Domain or the Local Users...


    Un Saludo.
    Jose Maria.
    Última edición: 13 Oct 2010
  3. avalencia

    avalencia Usuario

    Registrado:
    21 Ago 2008
    Mensajes:
    565
    Me Gusta recibidos:
    5
    Hola. Intenta con:

    Application.Version

    Saludos

    Abraham
  4. luigi

    luigi Invitado

  5. josemaria

    josemaria Usuario

    Registrado:
    24 Sep 2008
    Mensajes:
    738
    Me Gusta recibidos:
    5
    Hola a todos;

    Lo primero de todo, disculpar por el retraso en responder,

    muchas gracias a ambos, he encontrado la manera de que me diga la versión que tengo de excel en el equipo donde lo ejecuto, procedo a ver si consigo a que estando yo en mi equipo, me diga la versión que tiene cada uno de los equipos de mi red, del dominio. (un trabajo arduo, pero bueno).


    os adjunto, por si quereis verlo un archivo de mi baúl, te muestra todos los ordenadores que tengas en tu grupo de trabajo, o en el dominio,

    de vez en cuando salta un error, no se a que puede ser debido, o que estoy haciendo algo mal.
    Por cierto, no se quien es el autor.

    EventosV2.zip - Windows Live


    Un Saludo.
    Jose Maria.
Estado del tema:
Cerrado para nuevas respuestas

Compartir esta página