Arquivo da categoria: VBA

Dicas, modelos, exemplos da ferramenta que faz a grande diferença a suíte Microsoft Office

Selenium VBA – Tirando um screenshot da página

Dica rápida, eu juro!

O código está aqui:

Sub teste()
Dim driver As WebDriver
Dim screenShot As Image
Set driver = New ChromeDriver
 
driver.Get "https://www.tomasvasquez.com.br/forum"
Set screenShot = driver.TakeScreenshot(1000)
screenShot.SaveAs ("C:\Temp\selenium\screenShot.jpg")
 
driver.Quit
End Sub

Vídeo – Extraindo tabelas de páginas web com Selenium VBA:
https://www.youtube.com/watch?v=1RPs8NTp9ig

Vídeos relacionados:

Migrando para o Selenium VBA
https://www.youtube.com/watch?v=QZwOcODYFBg

Usando o Selenium VBA para extrair informações da Web
https://www.youtube.com/watch?v=hk-65p2ivvQ&t=47s

Atualizando o ChromeDriver manualmente para o SeleniumBasic
https://www.youtube.com/watch?v=8fFnr-hmTW8

Seleniu Basic já!
https://www.youtube.com/watch?v=WLP7QqgS8CA

Links

SeleniumBasic
https://florentbr.github.io/SeleniumBasic/

Acesse também

BLOG ► https://www.tomasvasquez.com.br/blog/
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 🙂

VBA e VB.NET – Um comparativo (injusto)

E eis o primeiro vídeo da série! Vamos ver o que o .NET tem de bom, principalmente quando se trata de ListView… ou melhor, DataGridView 🙂

Arquivos utilizados no vídeo ► http://www.tomasvasquez.com.br/forum/…

Download do Visual Studio Community ► https://www.visualstudio.com/vs/older…

Entrevista Karen Abecia (RubberDuck) ► https://www.youtube.com/watch?v=7IE9w…

Acesse também

BLOG ► https://www.tomasvasquez.com.br/blog/
FÓRUM ► http://www.tomasvasquez.com.br/forum/
CURSO ONLINE DE C# ► http://www.tomasvasquez.com.br/cursoc…

Aqui também!

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

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

VBA – Verificar se impressora padrão está desligada

Mais uma obra do nosso fórum. Numa discussão pra lá de produtiva, os usuários TARSA e Basole postaram dois blocos de código que permite pelo VBA obter o status da impressora padrão do computador. Tem para todos os gostos, sendo uma UDF e uma macro mais tradicional:

Versão TARSA:

Public Function PrinterOffline(Optional pstrPrinter As String = "Default") As Boolean
	Dim strWhere As String
	Dim objWMI As Object
	Dim objPrinters As Object
	Dim objPrinter As Object
 
	Set objWMI = GetObject("winmgmts:\\.\root\CIMV2")
	If LCase$(pstrPrinter) = "default" Then
		strWhere = "Default = True"
	Else
		strWhere = "Name = '" & pstrPrinter & "'"
	End If
	Set objPrinters = objWMI.ExecQuery("SELECT * FROM Win32_Printer WHERE " & strWhere)
	For Each objPrinter In objPrinters
		PrinterOffline = objPrinter.WorkOffline
		Exit For
	Next
	Set objPrinter = Nothing
	Set objPrinters = Nothing
	Set objWMI = Nothing
End Function

Versão Basole:

Sub Check_Printer_Status()
    Dim strComputer As String
    Dim objWMIService
    Dim colInstalledPrinters
    Dim objPrinter
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
                                  & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set colInstalledPrinters = objWMIService.ExecQuery _
                               ("Select * from Win32_Printer where Default = 'True'")
 
    For Each objPrinter In colInstalledPrinters
        Select Case objPrinter.printerstatus
        Case 3
            MsgBox "A impressora está ociosa"
        Case 4
            MsgBox "Impressora esta imprimindo"
        Case 5
            MsgBox "A impressora está aquecendo"
        Case Else
            MsgBox "A impressora está desativada"
        End Select
    Next
End Sub

Indo mais no detalhe, caso haja interesse, o código está fazendo uso do WMI (Windows Management Instrumentation), utilizado não só gerenciar para impressoras mas também todo o hardware do computador. O mais curioso é que você usa sintaxe SQL para fazer as consultas às informações do hardware. Um prato cheio para quem conhece. 🙂

O link do post: http://www.tomasvasquez.com.br/forum/viewtopic.php?f=20&t=5428

Valeu pessoal! São vocês é que fazem o fórum ser o que ele é!