Macro pra Baixa pla...
 
Notifications
Clear all

Macro pra Baixa planilha no forms Office


vitorhsh
Posts: 95
Registered
Topic starter
(@vitorhsh)
Trusted Member
Entrou: 4 anos atrás

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
Responder