Clicar em Botao sem id na internet
Enviado: 19 Dez 2017 às 20:08
Boa Noite, me chamo Lucas e to fazendo um projeto com o uso do VBA e preciso clicar em um botão dentro de uma página.
o código HTML desse botão é:
<a class="js-export-excel" href="#" target="_blank" title="Open downloaded file with Excel">Export Excel</a>
o codigo vba que to usando pra acessar a pagina é:
Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Sub chrome()
Dim GC As Object
Dim WebUrl As String
Dim NavigatorAddress As String
'Dim allelements As HtmlElementCollection
Let NavigatorAddress = "C:\Users\Lucas\AppData\Local\Google\Chrome\Application\chrome.exe"
Set GC = CreateObject("InternetExplorer.Application")
Let WebUrl = "https://trello.com/b/SzwPQqnd/pulo-do-gato-s123"
Shell (NavigatorAddress & " -url " & WebUrl)
'' daqui para baixo nao ta funcionando
GC.document.all("a").Click
End Sub
Agora falta ele clicar nesse botão, que na pagina aparece com "Export Excel", já tentei de tudo que eu sabia e ate agora nada.
Esse botão vem do Trello e para chegar nele tenho que fazer os seguintes passos:
>Show more > more > print and export > export excel
Falta só isso pra eu finalizar meu projeto.
Desde já agradeço se a quem puder ajudar
o código HTML desse botão é:
<a class="js-export-excel" href="#" target="_blank" title="Open downloaded file with Excel">Export Excel</a>
o codigo vba que to usando pra acessar a pagina é:
Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Sub chrome()
Dim GC As Object
Dim WebUrl As String
Dim NavigatorAddress As String
'Dim allelements As HtmlElementCollection
Let NavigatorAddress = "C:\Users\Lucas\AppData\Local\Google\Chrome\Application\chrome.exe"
Set GC = CreateObject("InternetExplorer.Application")
Let WebUrl = "https://trello.com/b/SzwPQqnd/pulo-do-gato-s123"
Shell (NavigatorAddress & " -url " & WebUrl)
'' daqui para baixo nao ta funcionando
GC.document.all("a").Click
End Sub
Agora falta ele clicar nesse botão, que na pagina aparece com "Export Excel", já tentei de tudo que eu sabia e ate agora nada.
Esse botão vem do Trello e para chegar nele tenho que fazer os seguintes passos:
>Show more > more > print and export > export excel
Falta só isso pra eu finalizar meu projeto.
Desde já agradeço se a quem puder ajudar