Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Preencher planilha excel a partir de formulario do Word

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Preencher planilha excel a partir de formulario do Word

Mensagem por webmaster »

O modelo de cadastro também faz isso :)


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Adonias
Manda bem
Manda bem
Mensagens: 167
Registrado em: Sáb Jun 02, 2012 12:55 pm

Re: Preencher planilha excel a partir de formulario do Word

Mensagem por Adonias »

Tomás, muito boa a solução do seu modelo, só que quando o código é feito no Word o VBA não reconhece "UsedRange" entre outro comando. Por isso não consegui fazer o loop. Eu consigo abrir a planilha, enviar os dados do form do Word para a planilha, salvo e fecho, mas quando faço novamente o código sobrescrever na mesma linha.
O loop do Excel para o Excel funciona beleza, mas quando o código é no Word para enviar pro Excel a coisa complica.


Adonias
Manda bem
Manda bem
Mensagens: 167
Registrado em: Sáb Jun 02, 2012 12:55 pm

Re: Preencher planilha excel a partir de formulario do Word

Mensagem por Adonias »

tentei o código abaixo no commandbuton do form no word, quase funciona, mas apenas abre e só está considerando a primeira linha definida como 2 e depois insere o novo dado na linha 3 e quando repito o procedimento cobre a linha 3 , depois salva e fecha

Não estou conseguindo fazer o loop corretamente.

Dim WApp As Object
Dim r As Long

Set WApp = CreateObject("Excel.Application")
WApp.Workbooks.Open "C:\temp\Base.xlsm" 'endereço"
WApp.Visible = True
WApp.Sheets("Control").Select

r = 2

While WApp.Sheets("Control").Range("A" & r).Value <> ""
WApp.Sheets("Control").Cells(r, 1).Value = TextBox1.Value
WApp.Sheets("Control").Cells(r, 2).Value = TextBox2.Value
r = r + 1
Wend

WApp.ActiveWorkbook.Close SaveChanges:=True
End Sub

Alguém poderia dizer onde estou errando que o codigo nao preenche na linha seguinte?


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder