Pergunte aqui
1

Salvar ComboBox1

perguntadas 2018-07-17 04:13:38 +0200

imagem do gravatar de joaorochaj

updated 2019-03-01 19:16:45 +0200

Gostaria de pegar a ComboBox1 que fica no Dialog1(FORMULARIO) e salvar ela na celula A2 da Planilha "Planilha2".

>

Exemplo : TEM PLANILHA1 e PLANILHA2 no mesmo arquivo.

o codigo que eu estava usando.

Dim oDialog1 As Object

Sub DIGITAR1()
'oDialogo = CreateUnoDialog( DialogLibraries.Standard.getByName("Dialog1") )
    Dim cell_val
    dim document   as object
    dim dispatcher as object
    oT1 = oDialog1.GetControl("ComboBox1")
    'cell_val = ThisComponent.Sheets(2).getCellByPosition(0,2)

   ' msgbox cell_val.String & chr(13) & "Value from controls: "  & oT1.Text
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(2).Name = "ToPoint"
args1(2).Value = "$A$2"

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

rem ----------------------------------------------------------------------
dim args2(2) as new com.sun.star.beans.PropertyValue
args2(2).Name = "StringName"
args2(2).Value = oT1.Text

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

End Sub
editar alterar tag assinalar como ofensivo fechar mesclar Excluir

2 Respostas

1

respondidas 2018-07-18 00:28:12 +0200

imagem do gravatar de Grafeno

updated 2018-07-18 00:29:11 +0200

Boa noite,

Esta operação é o inverso da que está nesta sua pergunta.

O código ficaria:

Sub DIGITAR1()
Dim oDoc as Object, oPlan as Object
Dim oCel as Object, oT1 as Object

   oDoc = ThisComponent
   oPlan = oDoc.Sheets.getByName("Planilha2")
   oCel = oPlan.getCellRangeByName("A2")   

   oT1 = oDialog1.GetControl("ComboBox1")

   oCel.String = oT1.Text
End Sub

Atte,

editar assinalar como ofensivo Excluir Link mais

Comentários

Obrigado ajudou, antes eu tinha colocado esse codigo mas tava dando erro, eu estava tentando carregar a combobox que puxava de um B1 ate B10 e tava tendando salvar ele no A2 ,mas nao conseguir ai refis o de abrir o dialog1 e usei seu Codigo.

imagem do gravatar de joaorochajjoaorochaj ( 2018-07-21 03:48:56 +0200 )editar
0

respondidas 2018-07-17 16:03:24 +0200

editar assinalar como ofensivo Excluir Link mais
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2018-07-17 04:13:38 +0200

Lidas: 67 vezes

Última atualização: Jul 18 '18