Outro Transformar LibreOffice em Excel

[Matheus Costa De Oliveira]

 

Boa tarde ! Bom ?

 

Queria traduzir essa linguagem do Office para o Excel :

 

 

Sub Main()
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 = "ToPoint"
args1(0).Value = "$J$3458"

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

Rem ----------------------------------------------------------------------
Dim args2(0) As New com.sun.star.beans.PropertyValue
args2(0).Name = "By"
args2(0).Value = 1

dispatcher.executeDispatch(document, ".uno:GoRightSel", "", 0, args2())

Rem ----------------------------------------------------------------------
Dim args3(0) As New com.sun.star.beans.PropertyValue
args3(0).Name = "By"
args3(0).Value = 1

dispatcher.executeDispatch(document, ".uno:GoRightSel", "", 0, args3())

Rem ----------------------------------------------------------------------
Dim args4(0) As New com.sun.star.beans.PropertyValue
args4(0).Name = "By"
args4(0).Value = 1

dispatcher.executeDispatch(document, ".uno:GoRightSel", "", 0, args4())

Rem ----------------------------------------------------------------------
Dim args5(0) As New com.sun.star.beans.PropertyValue
args5(0).Name = "By"
args5(0).Value = 1

dispatcher.executeDispatch(document, ".uno:GoRightSel", "", 0, args5())

Rem ----------------------------------------------------------------------
Dim args6(0) As New com.sun.star.beans.PropertyValue
args6(0).Name = "By"
args6(0).Value = 1

dispatcher.executeDispatch(document, ".uno:GoRightSel", "", 0, args6())

Rem ----------------------------------------------------------------------
Dim args7(0) As New com.sun.star.beans.PropertyValue
args7(0).Name = "By"
args7(0).Value = 1

dispatcher.executeDispatch(document, ".uno:GoRightSel", "", 0, args7())

Rem ----------------------------------------------------------------------
Dim args8(0) As New com.sun.star.beans.PropertyValue
args8(0).Name = "By"
args8(0).Value = 1

dispatcher.executeDispatch(document, ".uno:GoRightSel", "", 0, args8())

Rem ----------------------------------------------------------------------
Dim args9(0) As New com.sun.star.beans.PropertyValue
args9(0).Name = "By"
args9(0).Value = 1

dispatcher.executeDispatch(document, ".uno:GoRightSel", "", 0, args9())

Rem ----------------------------------------------------------------------
Dim args10(0) As New com.sun.star.beans.PropertyValue
args10(0).Name = "By"
args10(0).Value = 1

dispatcher.executeDispatch(document, ".uno:GoRightSel", "", 0, args10())

Rem ----------------------------------------------------------------------
Dim args11(0) As New com.sun.star.beans.PropertyValue
args11(0).Name = "By"
args11(0).Value = 1

dispatcher.executeDispatch(document, ".uno:GoRightSel", "", 0, args11())

Rem ----------------------------------------------------------------------
Dim args12(0) As New com.sun.star.beans.PropertyValue
args12(0).Name = "By"
args12(0).Value = 1

dispatcher.executeDispatch(document, ".uno:GoRightSel", "", 0, args12())

Rem ----------------------------------------------------------------------
Dim args13(0) As New com.sun.star.beans.PropertyValue
args13(0).Name = "By"
args13(0).Value = 1

dispatcher.executeDispatch(document, ".uno:GoRightSel", "", 0, args13())

Rem ----------------------------------------------------------------------
Dim args14(0) As New com.sun.star.beans.PropertyValue
args14(0).Name = "By"
args14(0).Value = 1

dispatcher.executeDispatch(document, ".uno:GoRightSel", "", 0, args14())

Rem ----------------------------------------------------------------------
Dim args15(0) As New com.sun.star.beans.PropertyValue
args15(0).Name = "By"
args15(0).Value = 1

dispatcher.executeDispatch(document, ".uno:GoRightSel", "", 0, args15())

Rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())

Rem ----------------------------------------------------------------------
Dim args17(1) As New com.sun.star.beans.PropertyValue
args17(0).Name = "By"
args17(0).Value = 1
args17(1).Name = "Sel"
args17(1).Value = False

dispatcher.executeDispatch(document, ".uno:GoUpToStartOfData", "", 0, args17())

Rem ----------------------------------------------------------------------
Dim args18(1) As New com.sun.star.beans.PropertyValue
args18(0).Name = "By"
args18(0).Value = 1
args18(1).Name = "Sel"
args18(1).Value = False

dispatcher.executeDispatch(document, ".uno:GoUpToStartOfData", "", 0, args18())

Rem ----------------------------------------------------------------------
Dim args19(1) As New com.sun.star.beans.PropertyValue
args19(0).Name = "By"
args19(0).Value = 1
args19(1).Name = "Sel"
args19(1).Value = False

dispatcher.executeDispatch(document, ".uno:GoUpToStartOfData", "", 0, args19())

Rem ----------------------------------------------------------------------
Dim args20(1) As New com.sun.star.beans.PropertyValue
args20(0).Name = "By"
args20(0).Value = 1
args20(1).Name = "Sel"
args20(1).Value = False

dispatcher.executeDispatch(document, ".uno:GoUpToStartOfData", "", 0, args20())

Rem ----------------------------------------------------------------------
Dim args21(1) As New com.sun.star.beans.PropertyValue
args21(0).Name = "By"
args21(0).Value = 1
args21(1).Name = "Sel"
args21(1).Value = False

dispatcher.executeDispatch(document, ".uno:GoUpToStartOfData", "", 0, args21())

Rem ----------------------------------------------------------------------
Dim args22(1) As New com.sun.star.beans.PropertyValue
args22(0).Name = "By"
args22(0).Value = 1
args22(1).Name = "Sel"
args22(1).Value = False

dispatcher.executeDispatch(document, ".uno:GoUpToStartOfData", "", 0, args22())

Rem ----------------------------------------------------------------------
Dim args23(1) As New com.sun.star.beans.PropertyValue
args23(0).Name = "By"
args23(0).Value = 1
args23(1).Name = "Sel"
args23(1).Value = False

dispatcher.executeDispatch(document, ".uno:GoUpToStartOfData", "", 0, args23())

Rem ----------------------------------------------------------------------
Dim args24(1) As New com.sun.star.beans.PropertyValue
args24(0).Name = "By"
args24(0).Value = 1
args24(1).Name = "Sel"
args24(1).Value = False

dispatcher.executeDispatch(document, ".uno:GoUpToStartOfData", "", 0, args24())

Rem ----------------------------------------------------------------------
Dim args25(1) As New com.sun.star.beans.PropertyValue
args25(0).Name = "By"
args25(0).Value = 1
args25(1).Name = "Sel"
args25(1).Value = False

dispatcher.executeDispatch(document, ".uno:GoUpToStartOfData", "", 0, args25())

Rem ----------------------------------------------------------------------
Dim args26(1) As New com.sun.star.beans.PropertyValue
args26(0).Name = "By"
args26(0).Value = 1
args26(1).Name = "Sel"
args26(1).Value = False

dispatcher.executeDispatch(document, ".uno:GoUpToStartOfData", "", 0, args26())

Rem ----------------------------------------------------------------------
Dim args27(1) As New com.sun.star.beans.PropertyValue
args27(0).Name = "By"
args27(0).Value = 1
args27(1).Name = "Sel"
args27(1).Value = False

dispatcher.executeDispatch(document, ".uno:GoUpToStartOfData", "", 0, args27())

Rem ----------------------------------------------------------------------
Dim args28(1) As New com.sun.star.beans.PropertyValue
args28(0).Name = "By"
args28(0).Value = 1
args28(1).Name = "Sel"
args28(1).Value = False

dispatcher.executeDispatch(document, ".uno:GoUpToStartOfData", "", 0, args28())

Rem ----------------------------------------------------------------------
Dim args29(1) As New com.sun.star.beans.PropertyValue
args29(0).Name = "By"
args29(0).Value = 1
args29(1).Name = "Sel"
args29(1).Value = False

dispatcher.executeDispatch(document, ".uno:GoUpToStartOfData", "", 0, args29())

Rem ----------------------------------------------------------------------
Dim args30(1) As New com.sun.star.beans.PropertyValue
args30(0).Name = "By"
args30(0).Value = 1
args30(1).Name = "Sel"
args30(1).Value = False

dispatcher.executeDispatch(document, ".uno:GoUpToStartOfData", "", 0, args30())

Rem ----------------------------------------------------------------------
Dim args31(1) As New com.sun.star.beans.PropertyValue
args31(0).Name = "By"
args31(0).Value = 1
args31(1).Name = "Sel"
args31(1).Value = False

dispatcher.executeDispatch(document, ".uno:GoUpToStartOfData", "", 0, args31())

Rem ----------------------------------------------------------------------
Dim args32(1) As New com.sun.star.beans.PropertyValue
args32(0).Name = "By"
args32(0).Value = 1
args32(1).Name = "Sel"
args32(1).Value = False

dispatcher.executeDispatch(document, ".uno:GoUpToStartOfData", "", 0, args32())

Rem ----------------------------------------------------------------------
Dim args33(1) As New com.sun.star.beans.PropertyValue
args33(0).Name = "By"
args33(0).Value = 1
args33(1).Name = "Sel"
args33(1).Value = False

dispatcher.executeDispatch(document, ".uno:GoUpToStartOfData", "", 0, args33())

Rem ----------------------------------------------------------------------
Dim args34(1) As New com.sun.star.beans.PropertyValue
args34(0).Name = "By"
args34(0).Value = 1
args34(1).Name = "Sel"
args34(1).Value = False

dispatcher.executeDispatch(document, ".uno:GoUpToStartOfData", "", 0, args34())

Rem ----------------------------------------------------------------------
Dim args35(1) As New com.sun.star.beans.PropertyValue
args35(0).Name = "By"
args35(0).Value = 1
args35(1).Name = "Sel"
args35(1).Value = False

dispatcher.executeDispatch(document, ".uno:GoUpToStartOfData", "", 0, args35())

Rem ----------------------------------------------------------------------
Dim args36(5) As New com.sun.star.beans.PropertyValue
args36(0).Name = "Flags"
args36(0).Value = "SVD"
args36(1).Name = "FormulaCommand"
args36(1).Value = 0
args36(2).Name = "SkipEmptyCells"
args36(2).Value = False
args36(3).Name = "Transpose"
args36(3).Value = False
args36(4).Name = "AsLink"
args36(4).Value = False
args36(5).Name = "MoveMode"
args36(5).Value = 4

dispatcher.executeDispatch(document, ".uno:InsertContents", "", 0, args36())

Rem ----------------------------------------------------------------------
Dim args37(1) As New com.sun.star.beans.PropertyValue
args37(0).Name = "By"
args37(0).Value = 1
args37(1).Name = "Sel"
args37(1).Value = False

dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, args37())

Rem ----------------------------------------------------------------------
Dim args38(1) As New com.sun.star.beans.PropertyValue
args38(0).Name = "By"
args38(0).Value = 1
args38(1).Name = "Sel"
args38(1).Value = False

dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, args38())

Rem ----------------------------------------------------------------------
Dim args39(1) As New com.sun.star.beans.PropertyValue
args39(0).Name = "By"
args39(0).Value = 1
args39(1).Name = "Sel"
args39(1).Value = False

dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, args39())

Rem ----------------------------------------------------------------------
Dim args40(1) As New com.sun.star.beans.PropertyValue
args40(0).Name = "By"
args40(0).Value = 1
args40(1).Name = "Sel"
args40(1).Value = False

dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, args40())

Rem ----------------------------------------------------------------------
Dim args41(1) As New com.sun.star.beans.PropertyValue
args41(0).Name = "By"
args41(0).Value = 1
args41(1).Name = "Sel"
args41(1).Value = False

dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, args41())

Rem ----------------------------------------------------------------------
Dim args42(0) As New com.sun.star.beans.PropertyValue
args42(0).Name = "StringName"
args42(0).Value = "1"

dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args42())

Rem ----------------------------------------------------------------------
Dim args43(1) As New com.sun.star.beans.PropertyValue
args43(0).Name = "By"
args43(0).Value = 1
args43(1).Name = "Sel"
args43(1).Value = False

dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, args43())

Rem ----------------------------------------------------------------------
Dim args44(1) As New com.sun.star.beans.PropertyValue
args44(0).Name = "By"
args44(0).Value = 1
args44(1).Name = "Sel"
args44(1).Value = False

dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args44())

Rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:clearContents(com.sun.star.sheet.CellFlags.VALUE + com.sun.star.sheet.CellFlags.STRING + com.sun.star.sheet.CellFlags.DATETIME)", "", 0, Array())

End Sub
 

[Patropi]

Boa tarde, @Matheus Costa De Oliveira

 

Seja bem-vindo ao fórum!

 

Se você anexar um arquivo Excel com detalhes do que você deseja fica mais fácil obter ajuda, do que traduzir o teu código, pois a maioria dos colaboradores entende só de VBA de Excel.;

 

[]s