Marco Caresia ha scritto:
yahoo-pier_andreit wrote:
esiste in calc la possibilita' di salvare in html o pdf solo la
tabella selezionata???
Mi pare che non ci sia un'opzione specifica per l'esportazione.
Se vai da File -> Esporta in formato PDF hai la possibilità di scegliere
di esportare solo la selezione (dopo aver selezionato anche l'intera
tabella).
Per l'HTML non credo che ci siano alternative al Copia/Incolla (magari
in una macro).
Ad esempio una cosa così (dopo aver selezionato le celle):
mi sa che e' la soluzione migliore, grazie, tra la tua e il manuale
starbasic e il registra macro di ooo e' uscita na cosa cosi' che
funziona :-))))))))
ma ancora non ho capito come chiudere il file, ho visto cose del tipo
Dim FileNo As Integer
FileNo = Freefile
Close #FileNo
ma non mi funge
sub sa
rem -------definisce le variabili-------------
dim document as object
dim doc2 as object
dim dispatcher as object
Dim Doc As Object
Dim Url As String
Dim Dummy()
rem ************definisce le variabili**************
rem ----------accede al documento----------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem **************accede al documento*******************
rem -------------seleziona le cell per copiarle-------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$A$1:$A$2"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
rem ****************seleziona le celle per copiarle*************
rem ---------------------copia le celle-------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())
rem *******************copia le celle*********************
rem ---------------apre il documento D0c2 dove incollare le celle-----------
Url = "file:///home/pla/Documents/sa2.ods"
Doc = StarDesktop.loadComponentFromURL(Url, "_blank", 0, Dummy())
doc2 = ThisComponent.CurrentController.Frame
rem ************apre il documento dove incollare le celle*************
rem ----------seleziona le celle per incollare--------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "ToPoint"
args3(0).Value = "$B$1"
dispatcher.executeDispatch(Doc2, ".uno:GoToCell", "", 0, args3())
rem ***********seleziona le celle per incollare******************
rem ------------incollla le celle-------------------
dispatcher.executeDispatch(Doc2, ".uno:Paste", "", 0, Array())
rem **************incollla le celle***************
rem ---salva come html----------
dim args4(2) as new com.sun.star.beans.PropertyValue
args4(0).Name = "URL"
args4(0).Value = "file:///home/pla/Documents/sa2.html"
args4(1).Name = "FilterName"
args4(1).Value = "HTML (StarCalc)"
args4(2).Name = "SelectionOnly"
args4(2).Value = true
dispatcher.executeDispatch(Doc2, ".uno:SaveAs", "", 0, args4())
Sub IncollaSuWeb
Dim NoArgs() as new com.sun.star.beans.PropertyValue
Dim oDocument as Object
oDocumentModel = ThisComponent
oDocumentView = oDocumentModel.getCurrentController()
oDocumentFrame = oDocumentView.Frame
' the dispatcher service is used to send commands from the
' document frame to the underlaying office application
oDispatcher = CreateUnoService("com.sun.star.frame.DispatchHelper")
oDispatcher.executeDispatch(oDocumentFrame, ".uno:Copy" ,"" ,0
,Array())
oDocument =
StarDesktop.LoadComponentFromURL("private:factory/swriter/web","_default",0,
NoArgs())
CreateNewDocument = oDocument
oDocumentModel = ThisComponent
oDocumentView = oDocumentModel.getCurrentController()
oDocumentFrame = oDocumentView.Frame
oDispatcher.executeDispatch(oDocumentFrame, ".uno:Paste" ,"" ,0
,Array())
End Sub
Ciao,
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
