excel - 使用 vba excel 功能填写输入谷歌表格

Question

我想填写谷歌表单输入，但我没有得到，它填写，但不是所有字段

Public Sub ConectaWeb()
On Error Resume Next
Dim endereço As String
Dim mostra As Boolean

Dim i, n, x As Integer
endereço = "https://docs.google.com/forms/d/e/1FAIpQLSc-d6XfqSS_-P2SCRiIJMKU477NPlzFnkjVHe0RqO2DMSc4xA/viewform"
Set IE = CreateObject("InternetExplorer.Application")
IE.navigate (endereço)
While IE.ReadyState <> 4
Wend
IE.Visible = True
IE.document.forms.Item(0).Item(2).Value = "Comentários / Sugestões"
IE.document.forms.Item(0).Item(3).Value = Sheets(1).Range("A1")
IE.document.forms.Item(0).Item(4).Value = Sheets(1).Range("A2")
IE.document.forms.Item(0).Item(5).Value = Sheets(1).Range("A3")
IE.document.forms.Item(0).submit
   
While IE.ReadyState <> 4
Wend
End Sub ```

标签： excelvba

Answer 1

我设法完成了输入

Public Sub ConectaWeb()
On Error Resume Next
Dim endereço As String
Dim mostra As Boolean

Dim i, n, x As Integer
endereço = "https://docs.google.com/forms/d/e/1FAIpQLSc-d6XfqSS_-P2SCRiIJMKU477NPlzFnkjVHe0RqO2DMSc4xA/viewform"
Set IE = CreateObject("InternetExplorer.Application")
IE.navigate (endereço)
While IE.ReadyState <> 4
Wend
IE.Visible = True

'Analista Argus
IE.Document.GetElementsByClassName("quantumWizTextinputPaperinputPlaceholder exportLabel")(0).innerhtml = ""
IE.Document.GetElementsByClassName("quantumWizTextinputPaperinputInput exportInput")(0).Value = "João"


'Detalhe Quantidade de ligações
IE.Document.GetElementsByClassName("quantumWizTextinputPapertextareaPlaceholder exportLabel")(0).innerhtml = ""
IE.Document.GetElementsByClassName("quantumWizTextinputPapertextareaInput exportTextarea")(0).Value = "3"

'Com quem conseguiu contato
IE.Document.GetElementsByClassName("quantumWizTextinputPapertextareaPlaceholder exportLabel")(1).innerhtml = ""
IE.Document.GetElementsByClassName("quantumWizTextinputPapertextareaInput exportTextarea")(1).Value = "joaozinho"

'Qual a tratativa dada pelo cliente
IE.Document.GetElementsByClassName("quantumWizTextinputPapertextareaPlaceholder exportLabel")(2).innerhtml = ""
IE.Document.GetElementsByClassName("quantumWizTextinputPapertextareaInput exportTextarea")(2).Value = "nenhuma"


'Operação
IE.Document.GetElementsByClassName("quantumWizTextinputPaperinputPlaceholder exportLabel")(1).innerhtml = ""
IE.Document.GetElementsByClassName("quantumWizTextinputPaperinputInput exportInput")(1).Value = "ambev"

'Frota
IE.Document.GetElementsByClassName("quantumWizTextinputPaperinputPlaceholder exportLabel")(2).innerhtml = ""
IE.Document.GetElementsByClassName("quantumWizTextinputPaperinputInput exportInput")(2).Value = "fob4343"



'Tipo 1 Evento
IE.Document.GetElementsByClassName("quantumWizTextinputPaperinputPlaceholder exportLabel")(18).innerhtml = ""
IE.Document.GetElementsByClassName("quantumWizTextinputPaperinputInput exportInput")(18).Value = "sonolencia"


'Tipo 2 Evento
IE.Document.GetElementsByClassName("quantumWizTextinputPaperinputPlaceholder exportLabel")(19).innerhtml = ""
IE.Document.GetElementsByClassName("quantumWizTextinputPaperinputInput exportInput")(19).Value = "falso"

'Quantidade Evento tipo1
IE.Document.GetElementsByClassName("quantumWizTextinputPaperinputPlaceholder exportLabel")(20).innerhtml = ""
IE.Document.GetElementsByClassName("quantumWizTextinputPaperinputInput exportInput")(20).Value = "34"

'Quantidade Evento tipo 2
IE.Document.GetElementsByClassName("quantumWizTextinputPaperinputPlaceholder exportLabel")(21).innerhtml = ""
IE.Document.GetElementsByClassName("quantumWizTextinputPaperinputInput exportInput")(21).Value = "1"

'Indicador Intervenção
IE.Document.GetElementsByClassName("quantumWizTextinputPaperinputPlaceholder exportLabel")(22).innerhtml = ""
IE.Document.GetElementsByClassName("quantumWizTextinputPaperinputInput exportInput")(22).Value = "1,5"

   
While IE.ReadyState <> 4
Wend
End Sub