VBA – Iniciando com Macros Úteis (pode clicar, não tenha medo)

Sim, já passou da hora de você, usuário de Excel descobrir o que a macros podem lhe entregar, desde automação até ser uma poderosa extensão dos seus trabalhos.

Confira um exemplo bacana construído no vídeo abaixo:

Ativem as legendas!

Arquivo utilizado no vídeo:
http://www.tomasvasquez.com.br/forum/download/file.php?id=3894

Vídeo: Excel – Filtrando dados Profissionalmente (Filtro Avançado)
https://www.youtube.com/watch?v=xsy_H4x6wHo

Vídeo: Usando o MsgBox no VBA – Parte 1
https://www.youtube.com/edit?o=U&video_id=yj6Pojujmb8

FÓRUM ► http://www.tomasvasquez.com.br/forum/
CURSO ONLINE DE C# ► http://www.tomasvasquez.com.br/cursocsharp

Aqui também!

FACEBOOK ► https://www.facebook.com/tomasvaquezsites
TWITTER ► https://twitter.com/tomamais
GOOGLE+ ► https://plus.google.com/+TomasvasquezBr/

Roteiro, apresentação, edição, etc, etc ► eu mesmo 🙂

Excel – Filtrando dados Profissionalmente (Filtro Avançado)

Geralmente costumo colocar aqui os vídeos que publico no YouTube como mais uma forma de divulgação, mas desta vez o conteúdo ficou tão legal que a referência é mais do que válida!

No vídeo tutorial demonstro num exemplo prático uma técnica avançada de aplicação de filtros . Ficou um pouco longo, eu sei, mas está bem legal!

Bom proveito!

Extraindo tabelas de páginas Web com o Selenium Basic

E lá vai mais um vídeo tutorial de Selenium Basic, esse que parece ser o mais querido assunto desta comunidade de VBA, e o meu também. 🙂

Em complemento ao vídeo anterior e atendendo a alguns pedidos, aqui mostro como extrair um elemento de tabela de dentro de uma página web, algo que deve cobrir 90% do uso que se faz do Selenium.

Mais detalhes no vídeo:

E claro, o código:

Dim driver As WebDriver
 
Sub ExtrairTabelaDaPagina()
    Set driver = New ChromeDriver
    Dim destino As Range
    Set destino = Range("A1")
 
    driver.Get "https://github.com/florentbr/SeleniumBasic"
 
    Dim tabela As WebElement
 
    Set tabela = driver.FindElementByXPath("//div[@id='js-repo-pjax-container']/div[2]/div/div[6]/table")
 
    If tabela Is Nothing Then
        MsgBox "Elemento não encontrado"
    Else
        tabela.AsTable.ToExcel destino
    End If
 
    driver.Quit
End Sub

Bom proveito!

Technology, Education and whatever else

css.php