Boa Noite
Estou tentando criar uma macro para entrar no Forms Office e baixa o arquivo em excel gerada com o preenchimento das perguntas
ja consegui entrar no site mais nao consigo baixa o arquivo segue cod abaixo
Sub Chrome()
Dim GC As Object
Dim WebUrl As String
Dim NavigatorAddress As String
Dim ieApp As Object
Dim Button As HTMLInputElement
Let NavigatorAddress = "C:\Program Files\Google\Chrome\Application\chrome.exe"
Set GC = CreateObject("InternetExplorer.Application")
Let WebUrl = "https://forms.office.com/Pages/DesignPage.aspx?auth_pvr=OrgId&auth_upn=vitor.honorio%40fornodeminas.com.br&origin=OfficeDotCom&lang=pt-BR&route=Start#Analysis=true&FormId=dyKap-XvLkWDTzxV3BL6sqpuFnDJdAtPtRIGg5mvsMpUQzJWNTBMTkVPQzNSNkFENVlQRTBHSExBMy4u"
Shell (NavigatorAddress & " -url " & WebUrl)
For Each Button In ieApp.document.getElementsByTagName("button")
Button.Click
Next
ie.document.forms.Item("form1").Click
End Sub
Este tópico foi modificado 3 anos atrás by
vitorhsh
Postado : 25/06/2021 12:01 am