Fai la tua domanda
0

Come salvare con nome file utilizzando una macro

chiesto il 2019-07-18 19:25:22 +0100

Immagine gravatar per Ordegno

updated 2019-07-18 23:52:48 +0100

Devo salvare con nome utilizzando una macro in modo che nel nome del file compaia un dato presente in una cella del file.

sub SALVAMODULO2
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(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Nr"
args1(0).Value = 1

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

rem ----------------------------------------------------------------------
dim args2(1) as new com.sun.star.beans.PropertyValue
args2(0).Name = "Name"
args2(0).Value = "Foglio6"
args2(1).Name = "Index"
args2(1).Value = 1

dispatcher.executeDispatch(document, ".uno:Insert", "", 0, Args2())

rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "Name"
args3(0).Value = "CLIENTE ZZZZ"  ****QUI DEVE INSERIRE IL DATO PRESENTE NELLA CELLA C7 +CELLA I7****

dispatcher.executeDispatch(document, ".uno:RenameTable", "", 0, args3())
modifica retag flag offensive close merge delete

1 Answer

1

risposto il 2019-07-18 20:02:12 +0100

updated 2019-07-18 20:15:55 +0100

Hai usato il registratore di macro che va benissimo per capire che eventi stai utilizzando, ti consiglio tuttavia di imparare a scriverti il codice a mano. Per fare quello che chiedi tu potresti fare così:

sub salva

dim doc  as object
dim document as object
dim dispatcher as object

doc = ThisComponent
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

Sheet = doc.Sheets.getByName("NOME FOGLIO")
Cell = Sheet.getCellRangeByName("RIFERMINETO CELLA, ES. A1")
NomeFile = Cell.String

Path = "file:///PERCORSO/"
File = Path+NomeFile

dim args1(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = "URL"
args1(0).Value = File
args1(1).Name = "FilterName"
args1(1).Value = "calc8"

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

end sub

TI consiglio di studiarti questo manualone http://www.pitonyak.org/oo.php

modifica flag offensive delete link more
Login/Signup to Answer

Question Tools

1 follower

Stats

Chieste: 2019-07-18 19:25:22 +0100

Seen: 30 times

Last updated: Jul 18 '19