Guardar Archivo con URL Variable

[Ricardo Hernandez]

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

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

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

[PepeOooSevilla]

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

args1(0).Value = "$K$1"

por esta

Código: Seleccionar todo

args1(0).Value = ConvertToURL(ThisComponent.CurrentController.getActiveSheet().getCellRangeByName("K1").getString())

Saludos cordiales.