Guardar Archivo con URL Variable

Discute sobre la aplicación de hojas de cálculo

Guardar Archivo con URL Variable

Notapor Ricardo Hernandez » Jue Ene 31, 2019 4:32 pm

Buenos días,

Soy nuevo usando Calc de OpenOffice, necesito hacer un archivo que guarde el archivo como una copia de Excel 97 (.xls), pero la URL y el nombre del archivo son variables establecidas en una celda $K$1, pero me marca un error en el guardado.

La formula de la celda ya incluye que cambie los espacios por "%20" nos da un resultado del tipo: file:///C:/Users/rmern/Documents/Referidos cajeros/Cajero/614.xls

No se mucho del lenguaje que utiliza Calc, así que la macro la hice con el boton de grabar macro, si funciona si la URL es estatica, pero necesito que sea variable ya que el archivo lo van a utilizar diferentes usuarios en equipos y direcciones diferentes.

Adjunto el código donde me aparece el error:

Código: Seleccionar todo   Expandir vistaContraer vista
sub GuardarComoxls
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object

rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = "URL"
args1(0).Value = "$K$1"
args1(1).Name = "FilterName"
args1(1).Value = "MS Excel 97"

dispatcher.executeDispatch(document, ".uno:SaveAs", "", 0, args1())


end sub


Este es el codigo que corre bien con la URL estatica:
Código: Seleccionar todo   Expandir vistaContraer vista
sub GuardarComoxls3
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = "URL"
args1(0).Value = "file:///C:/Users/rmern/Documents/Referidos%20cajeros/Cajero/614.xls"
args1(1).Name = "FilterName"
args1(1).Value = "MS Excel 97"

dispatcher.executeDispatch(document, ".uno:SaveAs", "", 0, args1())


end sub
OpenOffice 4.1.6 en Windows 7
Ricardo Hernandez
 
Mensajes: 1
Registrado: Jue Ene 31, 2019 1:23 am

Re: Guardar Archivo con URL Variable

Notapor PepeOooSevilla » Vie Feb 01, 2019 8:12 am

Hola.

Te damos la bienvenida al Foro de OpenOffice/LibreOffice y, por favor, no dejes de leer la Guía de supervivencia.

Cambia la línea
Código: Seleccionar todo   Expandir vistaContraer vista
args1(0).Value = "$K$1"

por esta
Código: Seleccionar todo   Expandir vistaContraer vista
args1(0).Value = ConvertToURL(ThisComponent.CurrentController.getActiveSheet().getCellRangeByName("K1").getString())

Saludos cordiales.
LibreOffice 6.1.5 en Windows 7 / 10
Por favor, utiliza el Foro para tus consultas, no los mensajes privados
Avatar de Usuario
PepeOooSevilla
 
Mensajes: 1066
Registrado: Sab Abr 04, 2009 6:10 pm
Ubicación: Sevilla (España)


Volver a Calc

¿Quién está conectado?

Usuarios navegando por este Foro: Google [Bot] y 14 invitados