Imputar dados de Caixa de Dialogo em planilha Calc

editar

Boa tarde,

Gilberto, segue exemplo de macro:

Sub Inserir()

ThisComponent.Sheets.GetByName("Plan1").GetCellRangeByName("A1").String = frmCadastro.GetControl("textfield1").Text.

End Sub

Onde: 1. ThisComponent.Sheets.GetByName("Plan1").GetCellRangeByName("A1").String = Célula que vai receber o texto da caixa de texto 2. frmCadastro = nome do formulário onde contém a caixa de texto 3. "textfield1" = nome do controle caixa de texto

Obs caso trabalhe com valores utilize o controle "campo numerico" ao invés de "textfield".

Importante ressaltar que para a macro funcionar o formulário deve estar previamente carregado.

ola boa noite veja se pode me ajudar eu vi a planilha com modelo DIALOG igual que eu preciso mas eu nao consigo anexar as colunas com as caixa de txtfield em cada coluna eles só vai até a coluna C eu queria que fosse até F G etc... segue meu codigos retirado de vocês .Obrigado pelo ajuda

REM  *****  BASIC  *****

Dim oDialog1 As Object

Sub Dialog1Show
DialogLibraries.LoadLibrary( "Standard" )
oDialog1 = CreateUnoDialog( DialogLibraries.Standard.Dialog1 )
oDialog1.Execute()
End Sub

Sub readDialog1()
    Call DialogoParaPlanilha  "TextField1"
    Call DialogoParaPlanilha  "TextField2"
    Call DialogoParaPlanilha  "TextField3"
    Call DialogoParaPlanilha  "TextField4"
    Call DialogoParaPlanilha  "TextField5"
    Call DialogoParaPlanilha  "TextField6"
    Call DialogoParaPlanilha  "TextField7"
End Sub


''====================================================
Sub DialogoParaPlanilha (x As String )
''  ATENÇÃO ==========================================
'''''' Para esta SubMacro funcionar
'''''' o Campo do Dialogo e a Célula que vai receber
'''''' a informação tem que estar com o mesmo nome.
'' ====================================================
dim document   as object
dim dispatcher as object
''oT1 = oDialog1.GetControl("TextField1")
oT1 = oDialog1.GetControl(x)
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 = "$Planilha1.$A$1"
args1(0).Value = x
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "StringName"
args2(0).Value = oT1.Text
dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args2())
rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "StringName"
args3(0).Value = oT1.Text
dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args3())
rem ----------------------------------------------------------------------
dim args4(0) as new com.sun.star.beans.PropertyValue
args4(0).Name = "StringName"
args4(0).Value = oT1.Text
dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args4())
rem ----------------------------------------------------------------------
dim args5(0) as new com.sun.star.beans.PropertyValue
args5(0).Name = "StringName"
args5(0).Value = oT1.Text
dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args5())
rem ----------------------------------------------------------------------
dim args6(0) as new com.sun.star.beans.PropertyValue
args6(0).Name = "StringName"
args6(0).Value = oT1.Text
dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args6())
rem ----------------------------------------------------------------------
dim args7(0) as new com.sun.star.beans.PropertyValue
args7(0).Name = "StringName"
args7(0).Value = oT1.Text
dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args7())

End Sub

O meu programa está dando o erro "Sub ou procedimento Fuction não definido"