- 19 Dez 2017 às 20:08
#28947
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
Espero ter ajudado.
Caso seu problema tenha sido resolvido, por favor marcar o tópico como Resolvido.
Se fui útil, seu like também é muito bem vindo
Caso seu problema tenha sido resolvido, por favor marcar o tópico como Resolvido.
Se fui útil, seu like também é muito bem vindo
