Arquivo da tag: VBA

Excel, Microsoft Office, VBA

Manipulando e organizando gráficos em VBA

Segue um link muito bom sobre manipulação de gráficos no Excel com VBA.

http://processtrends.com/pg_chart_vba.htm

Atendeu a uma necessidade de um amigo num fórum de discussão sobre Excel que era de reorganizar os gráficos em um planilha. O link possui uma planilha de exemplo que faz exatamente isso.

Além disso, o site também possui uma área bem recheada de exemplos para download, tudo focado em manipulação e criação de gráficos

Bom proveito!

Tomás Vásquez

Microsoft Office, VBA

VBA – Abrindo uma página do IE

Uma necessidade um pouco antiga, é sempre bom lembrar. Uma forma fácil de abrir uma página da Web pelo VBA é chamar uma instância do Internet Explorer. Um código de exemplo pode ser visto abaixo:

Private Sub OpenPage()
    Dim browser As Variant
    Set browser = CreateObject(“InternetExplorer.Application”)
    browser.Navigate (“www.google.com”)
    browser.Visible = True
End Sub

O bacana é que dá para trabalhar com algumas propriedade do browser, permitindo controlar um pouco mais a navegação. O exemplo abaixo mostra como abrir uma página bloqueando recursos de navegação e redimensionamento da página:

Private Sub DrawingIn_Click()
    Dim browser As Variant
    Set browser = CreateObject(“InternetExplorer.Application”)
    browser.Navigate (“www.google.com”)
    browser.StatusBar = False
    browser.Toolbar = False
    browser.Visible = True
    browser.Resizable = False
    browser.AddressBar = False
End Sub

Um coisa interessante a colocar, é que o maior aproveitamento que se pode fazer disse, é estabelecer navegação com critérios de QueryString por exemplo.

Tomás Vásquez

Excel, Microsoft Office, VBA

Excel: O famoso (mas nem tanto) SAMPLES.XLS

Tenho que admitir. Nos fóruns de Excel VBA que frequento, muitas perguntas só pude responder por conta da existência deste arquivo.

O arquivo SAMPLES.XLS é copiado para a pasta SAMPLES que fica dentro da pasta onde o Microsoft Office foi instalado (exceto para o Office 2003). O arquivo contém alguns dos mais utilizados exemplos dos recursos do Microsoft Excel, desde funções até códigos em VBA. O grande destaque é que o arquivo é montado pela esquipe da Microsoft em um padrão muito bem formatado e auto-explicativo. A versão em português não deixa a desejar. Segue uma figura com a cara do arquivo:

Para quem não conseguir encontrar o dito em sua máquina, disponibilizo aqui o link para download. A cópia do arquivo é da própria Microsoft e assinada digitalmente por ela:

SAMPLES.XLS

Bom proveito!

Tomás Vásquez

Desenvolvimento, Excel, Microsoft Office, VBA

Importando dados do SQL Server para o Excel com VBA e ADO

Essa é uma pergunta que aparece quase sempre nos fóruns de Excel que frequento. O bom é que a própria Microsoft dá a resposta:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40

Sub RetrieveSQLServerData()
' Cria a conexão.
    Dim cnPubs As ADODB.Connection
    Set cnPubs = New ADODB.Connection    ' Variável para armazenar a String de Conexão.
    Dim strConn As String
 
    'Informa o SQL Server OLE DB Provider.
    strConn = "PROVIDER=SQLOLEDB;"
 
    'Conecta à base de dados Pubs no servidor local.
    strConn = strConn & "DATA SOURCE=(local);INITIAL CATALOG=pubs;"
 
    'Usa autenticação integrada.
    strConn = strConn & " INTEGRATED SECURITY=sspi;"
 
    'Abre a conexão.
    cnPubs.Open strConn
 
    ' Cria o objeto Recordset.
    Dim rsPubs As ADODB.Recordset
    Set rsPubs = New ADODB.Recordset
 
    With rsPubs
        ' Associa a conexão.
        .ActiveConnection = cnPubs
        ' Extrai os dados.
        .Open "SELECT * FROM Authors"
        ' Coloca os dados na planilha.
        Plan1.Range("A1").CopyFromRecordset rsPubs
 
        ' Fecha a transação
        .Close
    End With
 
    ' Fecha conexão
    cnPubs.Close
    Set rsPubs = Nothing
    Set cnPubs = Nothing
 
End Sub

Como importar dados de Microsoft SQL Server em Microsoft Excel

Apenas para constar, segue o código fonte pronto para usar:Bom proveito!

Tomás Vásquez