Vbs Hoja de Calculo Activo

Desarrollo de Macros y programación en UNO, usar las API, llamar programas externos...
Responder
jenriqueph
Mensajes: 2
Registrado: Jue Abr 20, 2017 2:42 pm

Vbs Hoja de Calculo Activo

Mensaje por jenriqueph »

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
Avatar de Usuario
mauricio
Mensajes: 6092
Registrado: Sab Nov 22, 2008 5:36 am
Ubicación: CDMX
Contactar:

Re: Vbs Hoja de Calculo Activo

Mensaje por mauricio »

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
jenriqueph
Mensajes: 2
Registrado: Jue Abr 20, 2017 2:42 pm

Re: Vbs Hoja de Calculo Activo

Mensaje por jenriqueph »

Salud2

Si correcto a Visual Basic Script, me puedes ayudar.-
OpenOffice 4.0.1 en Windows 8.1
Avatar de Usuario
mauricio
Mensajes: 6092
Registrado: Sab Nov 22, 2008 5:36 am
Ubicación: CDMX
Contactar:

Re: Vbs Hoja de Calculo Activo

Mensaje por mauricio »

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
fornelasa
Mensajes: 3268
Registrado: Jue Feb 17, 2011 8:30 pm
Ubicación: Estado de México, México.

Re: Vbs Hoja de Calculo Activo

Mensaje por fornelasa »

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

Código: Seleccionar todo

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!
Responder