Notifications
Clear all

Macro pra Baixa planilha no forms Office

1 Posts
1 Usuários
0 Reactions
1,179 Visualizações
(@vitorhsh)
Posts: 0
Trusted Member
Topic starter
 

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