Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Preencher planilha excel a partir de formulario do Word
Re: Preencher planilha excel a partir de formulario do Word
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.
O loop do Excel para o Excel funciona beleza, mas quando o código é no Word para enviar pro Excel a coisa complica.
Re: Preencher planilha excel a partir de formulario do Word
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?
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?