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