Vbs Hoja de Calculo Activo

Desarrollo de Macros y programación en UNO, usar las API, llamar programas externos...

Vbs Hoja de Calculo Activo

Notapor jenriqueph » Jue Abr 20, 2017 2:49 pm

Salu2

Necesito tomar datos de una hoja de calculo con Vbs, me explico mejor al ejecutar el código vbs necesito validar si openoffice esta ejecutándose, luego de validar esto tomar la hoja de calculo activa validar el nombre de su archivo y hoja activa para tomar datos de unas celdas.-

Agradezco su valiosa ayuda.-
OpenOffice 4.0.1 en Windows 8.1
jenriqueph
 
Mensajes: 2
Registrado: Jue Abr 20, 2017 2:42 pm

Re: Vbs Hoja de Calculo Activo

Notapor mauricio » Jue Abr 20, 2017 2:54 pm

Hola...

¿Te refieres a Visual Basic Script?... si es si, por curiosidad, ¿se sigue usando?

Saludos
______________________________________________
"Todo cuanto no podemos dar nos posee". - André Gide
LibreOffice 6.2 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
Avatar de Usuario
mauricio
 
Mensajes: 5878
Registrado: Sab Nov 22, 2008 5:36 am
Ubicación: CDMX

Re: Vbs Hoja de Calculo Activo

Notapor jenriqueph » Jue Abr 20, 2017 10:22 pm

Salud2

Si correcto a Visual Basic Script, me puedes ayudar.-
OpenOffice 4.0.1 en Windows 8.1
jenriqueph
 
Mensajes: 2
Registrado: Jue Abr 20, 2017 2:42 pm

Re: Vbs Hoja de Calculo Activo

Notapor mauricio » Jue Abr 20, 2017 10:36 pm

Tengo entendido que se puede usar CreateObject como en VB: https://ss64.com/vb/createobject.html
si es así, puede aplicar todo lo que se ha publicado en este foro con VB... mira si te sirve...

Saludos
______________________________________________
"Todo cuanto no podemos dar nos posee". - André Gide
LibreOffice 6.2 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
Avatar de Usuario
mauricio
 
Mensajes: 5878
Registrado: Sab Nov 22, 2008 5:36 am
Ubicación: CDMX

Re: Vbs Hoja de Calculo Activo

Notapor fornelasa » Vie Abr 21, 2017 9:25 pm

Intenta con este código, debería de funcionar.

Código: Seleccionar todo   Expandir vistaContraer vista
Set objServiceManager = WScript.CreateObject("com.sun.star.ServiceManager")
      Set StarDesktop = objServiceManager.createInstance("com.sun.star.frame.Desktop")

      Set oComponents = StarDesktop.getComponents()
            Set oEnum = oComponents.createEnumeration

Do While oEnum.hasMoreElements
    Set ThisComponent = oEnum.nextElement
              nombre = ThisComponent.Title
Exit Do
Loop

      largo = Len(nombre)
        If largo = 0 Then
         MsgBox("Calc no está ejecutandose")
         WScript.Quit
        End If

       Set HojaActiva = ThisComponent.CurrentController.ActiveSheet
       hoja = HojaActiva.Name

     msgbox("El archivo se llama " + ThisComponent.Title)
   msgbox("La hoja activa es " + hoja)

msgbox("El dato de la celda A1 es " + HojaActiva.getCellRangeByName("A1").String)  'O Value dependiendo de lo que haya en celda A1



Saludos, Federico.
lo 6.2.0 | aoo 4.1.6 | win 7/10
¡Un aplauso para todos los que luchan por proteger y promover la Web abierta!
Avatar de Usuario
fornelasa
 
Mensajes: 3223
Registrado: Jue Feb 17, 2011 8:30 pm
Ubicación: Estado de México, México.


Volver a Macros y API UNO

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 7 invitados