[Solved] Excel to OOffice calc

[ironpower]

Hello I have this code in excel that saves the sheet in a PDF file, and put the name of pdf file the value of cell "E2", but in OpenOffice calc I can't put the name of pdf file the value of cell "E2"

VBA:

Code: Select all

Sub macrogravar()
'
' macrogravar Macro
'

'
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\Caixadiario\ " & Range("e2") & ".pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True
    Range("H23").Select
End Sub


On the office calc I have this code:


sub gravarpdf
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(2) as new com.sun.star.beans.PropertyValue
args1(0).Name = "URL"
args1(0).Value = "file:///D:/caixadiario/ . pdf"
args1(1).Name = "FilterName"
args1(1).Value = "calc_pdf_Export"
args1(2).Name = "FilterData"
.......
dispatcher.executeDispatch(document, ".uno:ExportToPDF", "", 0, args1())


end sub

[Villeroy]

If you would spend some 15 minutes with some text about OpenOffice macro programming, reading from and writing to cells would be plain obvious.

[ironpower]

Thanks for the help, it's always easy when people have the knowlodge.

[Villeroy]

We are no human macro recorders. There are many millions of foolish VBA macros.

[Zizi64]

https://wiki.openoffice.org/wiki/Docume ... and_Ranges
viewtopic.php?f=5&t=7915
viewtopic.php?f=20&t=13704

[ironpower]

Thanks for the help, I'm reading the docs, and I'm trying to fix my problem.

[Zizi64]

From the linked pages (it is not a complete code but snippets only:

Code: Select all

Dim oDoc as object
Dim oSheet as object
Dim oCell as object
Dim MyText as string

'Get the active document:
oDoc = Thiscomponent


'Get a sheet by index:
oSheet = ThisComponent.Sheets(0)

'Get a sheet by name:
oSheets = oDoc.Sheets  'get the container of all Sheets
oSheet = oSheets.getByName("Sheet2")   'get the sheet named Sheet2

'Get the active sheet:
oSheet=oDoc.getcurrentcontroller.activesheet


'Get a cell by position:
oCell=oSheet.getCellByPosition(0,0) 'These coordinates means: the cell A1


'Get text from a cell:
MyText = oCell.string


'Put the text into the args1:
args1(0).Value = "file:///D:/caixadiario/" + MyText + ". pdf"

[ironpower]

Thanks a lot for your help, I did same changes, but your code it was perfect.
Thanks