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.-
Vbs Hoja de Calculo Activo
-
- Mensajes: 2
- Registrado: Jue Abr 20, 2017 2:42 pm
Vbs Hoja de Calculo Activo
OpenOffice 4.0.1 en Windows 8.1
Re: Vbs Hoja de Calculo Activo
Hola...
¿Te refieres a Visual Basic Script?... si es si, por curiosidad, ¿se sigue usando?
Saludos
¿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
"Todo cuanto no podemos dar nos posee". - André Gide
LibreOffice 6.2 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
-
- Mensajes: 2
- Registrado: Jue Abr 20, 2017 2:42 pm
Re: Vbs Hoja de Calculo Activo
Salud2
Si correcto a Visual Basic Script, me puedes ayudar.-
Si correcto a Visual Basic Script, me puedes ayudar.-
OpenOffice 4.0.1 en Windows 8.1
Re: Vbs Hoja de Calculo Activo
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
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
"Todo cuanto no podemos dar nos posee". - André Gide
LibreOffice 6.2 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
Re: Vbs Hoja de Calculo Activo
Intenta con este código, debería de funcionar.
Saludos, Federico.
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
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!
¡Un aplauso para todos los que luchan por proteger y promover la Web abierta!