Pergunte aqui
1

Inputar dados de Caixa de Dialogo em planilha Calc

perguntadas 2018-06-13 17:01:03 +0200

updated 2018-06-14 18:52:10 +0200

Em uma planilha de cadastro, como montar a macro que pegue os dados digitados na Caixa de Dialogo e grave na planilha.

Alguém tem um exemplo básico desta macro?

O Dialogo é do próprio arquivo .

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

2 Respostas

1

respondidas 2018-06-13 20:27:29 +0200

imagem do gravatar de Conrado

updated 2018-06-13 20:58:23 +0200

Veja se te ajuda Gilberto

http://www.matsuura.com.br/2015/03/tr...

Estou aprendendo ainda...mas consegui chegar no resultado. Mais linhas que o Junio informou, mas cheguei :)

C:\fakepath\caixa de dialogo.ods

Até.

editar assinalar como ofensivo Excluir Link mais

Comentários

Ola @Conrado, obrigado pelo exemplo. Estou compartilhando a melhoria feita no seu exemplo. Desta maneira a quantidade de Campos do Dialogo para a Planilha não será problema.

Vide arquivo...

imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2018-06-14 18:51:23 +0200 )editar

Olá @Gilberto Schiavinatto,

Fico contente em ter ajudado.

imagem do gravatar de ConradoConrado ( 2018-06-15 15:15:27 +0200 )editar
imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2018-07-31 16:33:42 +0200 )editar
2

respondidas 2018-06-13 20:27:32 +0200

imagem do gravatar de Júnio Vieira

updated 2018-06-18 12:04:22 +0200

imagem do gravatar de Olivier

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.

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

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2018-06-13 17:01:03 +0200

Lidas: 104 vezes

Última atualização: Jun 18