Views

...

Important:

Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog podem ser tratados como consultoria freelance.

E-mails

Deixe seu e-mail para receber atualizações...

eBook Promo

Mostrando postagens com marcador IE. Mostrar todas as postagens
Mostrando postagens com marcador IE. Mostrar todas as postagens

Usando o VBA para Usar o Internet Explorer


Navegar usando o IE - Internet Explorer - é simples e pode ter diversas aplicabilidade interessantes. O código para fazer isso está abaixo:

 Function InternetExplorerNavigate (nFrase As String)
    Dim IE As Object

     Set IE = CreateObject("InternetExplorer.Application")

     With IE
        Let .Left = 200
        Let .Top = 200
        Let .Height = 140
        Let .Width = 250
        Let .MenuBar = 0
        Let .Toolbar = 0
        Let .StatusBar = 0

         .navigate "https://youtu.be/-k6EQlZpMgA"

         Let .Visible = 1
    End With

     ' Aguarda até o término do carregamento.
    Do While IE.busy
    Loop
End Function
⬛◼◾▪ Social Media ▪◾◼⬛
• FACEBOOK • TWITTER • INSTAGRAM • TUMBLR • GOOGLE+ • LINKEDIN • PINTEREST

⬛◼◾▪ Blogs ▪◾◼⬛ 


⬛◼◾▪ CONTATO ▪◾◼⬛
Tags: , ,

Como Logar-se a sua Medias Sociais através do MS Excel - Login to Facebook, Twitter, Google+ in IE from Excel


Entrar automaticamente em nossas Mídias Sociais, usando o IE, através do MS Excel, pode ser muito útil em nosso dia a dia. Você gostaria de fazer isso, logando-se rapidamente em redes tais como Facebook, Twitter e|ou Google+.

 Às vezes ficamos ​​mentalmente cansados por digitar essas identificações de login e senhas ou por serem demasiadamente longas ou por ser necessário efetuar login e logout muitas vezes. Sim, podemos ignorar esse pequena momento, de re-digitar nossas credenciais de login, automatizando-o com a ajuda do Excel.

 Login nos Formulário e Campos comuns

 Quando digitamos a URL do FB, Twitter ou qualquer tipo de página que tenha um formulário de logon, este conterá os campos:

 ID de login ou ID E-mail ou número de celular

 Senha

 Botão de envio

 Nota: Por vezes haverá um CAPTCHA ou uma caixa de texto pedindo resposta a uma pergunta de segurança. Este é usado filtrar spams. Se houver qualquer forma de login com essa opção de segurança ativada, então não será capaz de usar a técnica explicada neste artigo.
Digitaremos os valores em cada um dos campos manualmente e clicaremos no botão enviar. Uma vez que o submetemos, as credenciais são transferidas para o servidor correspondente para validação.

 Auto Preenchimento de formulário e clique botão Enviar

 Com o código abaixo será capaz de preencher um formulário de login no Facebook. O mesmo código pode ser usado para preencher o Twitter, Google+ ou qualquer forma HTML. Tudo que precisará fazer é analisar o código fonte HTML antes de automatizar o processo de login.
Private Sub Facebook_Login_Automate()
    'Declare Variables used in Code
    Dim InetApp As Object
    Dim TagsArray As Object
    Dim TagField As Object

    'Create InternetExplorer Object and Launch App
    Set InetApp = CreateObject("InternetExplorer.Application")
    Let InetApp.Visible = True

    'Navigate to Facebook
    InetApp.Navigate "http://www.facebook.com/"

    'Internet Explorer Load Time Wait
    Do While InetApp.Busy
        Let Application.StatusBar = "Carregando Applicação. Por favor aguarde..."
        Application.Wait DateAdd("s", 1, Now)
    Loop
    Let Application.StatusBar = ""
    
    'HTML code is obtained from URL.
    'Search for tag <input> and store it details in a object.
    Set TagsArray = InetApp.document.getElementsByTagName("input")
    idx = 0
    
    'Search Fields Corresponding to 'Login id', 'Password' and 'Submit' button.
    While idx < TagsArray.Length
        If TagsArray(idx).Name = "email" Then
            Let TagsArray(idx).Value = "FB_Login_Mail_ID@mail.com"
        Else
            If TagsArray(idx).Name = "pass" Then
                Let TagsArray(idx).Value = "FB_Login_Password"
            End If
            If TagsArray(idx).Type = "submit" And _
               TagsArray(idx).Name = "" Then
                    Set TagField = TagsArray(idx)
            End If
        End If
        Let idx = idx + 1
    Wend
    
    'Click Submit Button
    TagField.Click
    
    'Login Wait Time
    Do While InetApp.Busy
        Let Application.StatusBar = "Login em Progesso. Por favor aguarde..."
        Application.Wait DateAdd("s", 1, Now)
    Loop
    Let Application.StatusBar = ""
    Let InetApp.Visible = True

    'Clear Object Data
    Set InetApp = Nothing
    Set TagField = Nothing
    Set TagsArray = Nothing

End Sub
⬛◼◾▪ Social Media ▪◾◼⬛
• FACEBOOK • TWITTER • INSTAGRAM • TUMBLR • GOOGLE+ • LINKEDIN • PINTEREST

⬛◼◾▪ Blogs ▪◾◼⬛ 


⬛◼◾▪ CONTATO ▪◾◼⬛
Tags: , , , , , ,

VBA Excel - Automação do Google Tradutor - Google Translate by Internet Explorer Automation



Sim, meus caros, é possível traduzirmos alguns textos com certa velocidade e comodidade usado um código VBA que utiliza o Google Tradutor pela automação do Internet Explorer controlados via Excel.

Mas talvez esteja neste exato momento como que atônito imaginando como isso pode ser útil num Relatório, ou num Dashboard. Talvez pergunte-se: Seria útil na minha aplicação? 

Meus caros, todos nós desenvolvemos soluções por aí. De vez em quando, ou quase sempre no caso de alguns, precisamos desenvolver soluções para a América Latina ou para a Europa. Isso demanda camadas e mais camadas de interfaces para Formulários, Relatórios, Gráficos, Infográficos, Dashboards, Scorecards, etc... 

Com as funcionalidades que veremos mais abaixo no artigo, poderemos resolver tudo isso no início da aplicação, talvez atualizando uma tabela interna que contenha todos os títulos usados nela e Voilá temos a nossa interface traduzida para os mais diversos idiomas!

Este programa grava automaticamente o texto do Excel no Internet Explorer e usa o serviço do Google Tradutor para traduzir o texto na linguagem que desejarmos. Será possível traduzir de e para vários idiomas diferentes, bastando alterar o código deste no programa. 


O que é o Google Tradutor?
O Google Tradutor é um serviço de tradução gratuito que fornece traduções instantâneas em 64 idiomas  diferentes (em Janeiro de 2013). Ele pode traduzir palavras, frases e páginas da web em qualquer combinação dos idiomas aceitos. Com o Google Tradutor, esperamos disponibilizar informações úteis para todos, independentemente do idioma em que estiverem escritas.

Como funciona?
Quando gera uma tradução, o Google Tradutor procura padrões em centenas de milhares de documentos para ajudar a decidir qual é a melhor tradução. Ao detectar padrões em documentos que já foram traduzidos por tradutores humanos, o Google Tradutor pode fazer escolhas inteligentes e determinar qual é a tradução apropriada. Esse processo de procurar padrões em grandes quantidades de texto é chamado de "tradução automática estatística". Como as traduções são geradas por máquinas, nem todas serão perfeitas. Quanto mais documentos traduzidos por humanos o Google Tradutor puder analisar em um idioma específico, melhor será a qualidade da tradução. É por esse motivo que a precisão da tradução às vezes varia de acordo com o idioma.

Hoje, todos os principais idiomas estão disponíveis no Google Translate. É um dos poucos serviços que permite a tradução de frases inteiras não apenas palavras. O serviço é gratuito e pode ser executado através de API. 

Divirta-se!


Public Sub Google_Translate()

Dim Google_Translate_Internet_Explorer_Automation As Object

Set Google_Translate_Internet_Explorer_Automation = CreateObject("InternetExplorer.Application")

Google_Translate_Internet_Explorer_Automation.Navigate "http://translate.google.com/translate_t#"
Google_Translate_Internet_Explorer_Automation.Visible = True
Wait_Between_Google_Translate_Cycles = Range("G1").Value

Let Column = 0

While Range("f9").Offset(0, Column).Value <> tom

    Do While Google_Translate_Internet_Explorer_Automation.busy
        Call WaitSeconds(Wait_Between_Google_Translate_Cycles)
    Loop
    
    Let to_language_code = Range("f9").Offset(0, Column).Value

    Do While Google_Translate_Internet_Explorer_Automation.busy
        Call WaitSeconds (Wait_Between_Google_Translate_Cycles)
    Loop

    Let Google_Translate_Internet_Explorer_Automation.document.forms("text_form").elements(5).Value = to_language_code

    Do While Google_Translate_Internet_Explorer_Automation.busy
        Call WaitSeconds (Wait_Between_Google_Translate_Cycles)
    Loop

    Let rad = 0

    While Range("c10").Offset(rad, 0).Value <> tom

        If Range("f10").Offset(rad, Column).Value = tom Then

            Let from_language_code = Range("a10").Offset(rad, 0).Value
            Let Google_Translate_Internet_Explorer_Automation.document.forms("text_form").elements(4).Value = from_language_code

            Do While Google_Translate_Internet_Explorer_Automation.busy
                Call WaitSeconds (Wait_Between_Google_Translate_Cycles)
            Loop

            Let Google_Translate_Text = Range("c10").Offset(rad, 0).Value
            While Google_Translate_Internet_Explorer_Automation.busy
                Call WaitSeconds (Wait_Between_Google_Translate_Cycles)
            Wend

            Let Google_Translate_Internet_Explorer_Automation.document.forms("text_form").elements("source").Value = Google_Translate_Text

            While Google_Translate_Internet_Explorer_Automation.busy
                Call WaitSeconds (Wait_Between_Google_Translate_Cycles)
            Wend

            Google_Translate_Internet_Explorer_Automation.document.getElementById("text_form").submit

            While Google_Translate_Internet_Explorer_Automation.busy
                Call WaitSeconds (Wait_Between_Google_Translate_Cycles)
            Wend

            Let dd2 = Google_Translate_Internet_Explorer_Automation.document.forms(1).elements(4).Value

            While Google_Translate_Internet_Explorer_Automation.busy
                Call WaitSeconds (Wait_Between_Google_Translate_Cycles)
            Wend

            Let Google_Translate_Variable1 = Replace(dd2, Chr(13), "")
            Let Range("f10").Offset(rad, Column).Value = Google_Translate_Variable1

        End If

        Let rad = rad + 1
    Wend

    Let Column = Column + 1
Wend

Google_Translate_Internet_Explorer_Automation.Quit

Set Google_Translate_Internet_Explorer_Automation = Nothing

End Sub

Public Sub WaitSeconds(sek)


Let newHour = Hour(Now())

Let newMinute = Minute(Now())

Let newSecond = Second(Now()) + sek

Let waitTime = TimeSerial(newHour, newMinute, newSecond)



Application.Wait waitTime


End Sub

Tags: VBA, Excel, Google, Google Translate, IE, Internet Explorer, Automation, API


Tags: , , , , , , ,
Assinar: Postagens (Atom)

eBooks VBA na AMAZOM.com.br

LinkWithinBrazilVBAExcelSpecialist

Related Posts Plugin for WordPress, Blogger...

Vitrine