Blog do Kazu - Dicas rápidas de Excel e afins

Criar um compromisso no Outlook

2012-01-22T23:56:00.000-03:00


Public Function CreateAppointment(SubjectStr As String, BodyStr As String, AllDay As Boolean)
 
     Dim OlApp                  As Outlook.Application
     Dim Appt                   As Outlook.AppointmentItem
    
     Set OlApp = CreateObject("Outlook.Application")
     Set Appt = OlApp.CreateItem(olAppointmentItem)
    
     Appt.Subject = SubjectStr
     'Formato da data = mes/dia/ano
     Appt.Start = #10/20/2011 1:00:00 PM#
     Appt.End = #10/20/2011 2:00:00 PM#
     'Appt.AllDayEvent = AllDay
     Appt.Body = BodyStr
     Appt.ReminderMinutesBeforeStart = 5
     Appt.Save
    
     Set Appt = Nothing
     Set OlApp = Nothing
    
End Function
 
 
Private Sub testsub()
     CreateAppointment "Teste", "Texto", False
End SubCri

Código de barras no Office

2012-01-21T18:01:00.003-03:00

A forma mais rápida de se gerar um código de barras é simplesmente trocar a fonte do seu número para uma fonte de barras.
Neste link, tem a fonte para o código 3 de 9, um dos mais populares e utilizados: http://www.idautomation.com/fonts/free/

Lembrando que, o caracter de abertura e fechamento de leitura é o asterisco (*), ou seja, se o se código é 123456, utilize "*123456*" (sem as aspas) e troque a fonte para IDAutomationHC39M.ttf.

A maioria dos leitores já vem habilitado para leitura desse código de barras, mas eventualmente se não vier, basta dar uma olhada no manual que lá tem as instruções para configurar o seu leitor.

Não custa lembrar que...
- Quem faz a leitura do código de barras é o leitor e não o programa, portanto, não existe código ou programa para leitura de código de barras neste caso;
- Para maior segurança, é interessante acrescentar um dígito verificador. O algoritmo mais utilizado é o famoso módulo 11, facilmente encontrado na internet.

;-)

Outlook VBA - Desanexando todos arquivos

2011-12-25T14:40:00.003-03:00

Outro dia me deparei com uma situação diferente: ter de desanexar aproximadamente 150 arquivos/e-mails.

Adaptando um código que peguei na internet, resolvi a parada movendo todos os e-mails para uma pasta temporária, criada apenas para esta finalidade e resolvi o problema na boa.

Abaixo o código.


Option Explicit
 
Public Sub salvar_anexos()
On Error GoTo erro
 
    Dim objApp          As Outlook.Application
    Dim pasta_outlook   As Outlook.MAPIFolder
    Dim objItem         As Object
    Dim arq_anexo       As Outlook.Attachment
    Dim pasta           As String
 
    'Pasta onde serão gravados os arquivos anexos dos emails:
    pasta = "C:\Teste"
   
    Set objApp = Outlook.Application
    Set pasta_outlook = objApp.ActiveExplorer.CurrentFolder
   
    If MsgBox("Deseja desanexar todos os arquivos da pasta " & pasta_outlook.Name, vbYesNo) = vbNo Then Exit Sub
   
    For Each objItem In pasta_outlook.Items
        DoEvents
        'Se o objeto é do tipo email, começa a desanexar os arquivos
        If objItem.Class = olMail Then
            For Each arq_anexo In objItem.Attachments
                DoEvents
                arq_anexo.SaveAsFile pasta & "\" & arq_anexo.FileName
            Next arq_anexo
        End If
    Next objItem
 
    MsgBox "Processo finalizado!", vbOKOnly
   
    Exit Sub
 
erro:
    MsgBox Err.Number & " - " & Err.Description, vbOKOnly
    Exit Sub
   
End Sub

Office nas nuvens

2011-11-26T01:22:00.001-03:00

Ainda não estou na nuvem, mas creio que se tornará inevitável...

Link do Office365 para quem quiser conhecer:

http://www.microsoft.com/pt-br/office365/what-is-office365.aspx

;-)

Coletando dados de pesquisas com o Outlook e Access

2011-11-26T01:18:00.003-03:00

Outro dia estava procurando uma forma de fazer uma pesquisa de satisfação por e-mail e a primeira dificuldade foi justamente criar um texto que o usuário não pudesse modificar.

Apesar de não chegar no modelo que queria, acabei descobrindo um recurso do Access que facilitou muito.

O formulário final não é lá dos melhores em termos de estética, mas cumpre sua função.

Segue o link para quem quiser experimentar:

http://office.microsoft.com/pt-br/access-help/coleta-de-dados-por-meio-de-mensagens-de-email-HA010015427.aspx

;-)

Mais um site legal sobre Outlook

2011-10-21T23:38:00.001-03:00

http://www.outlookcode.com/default.aspx

O foco é programação, coisa meio rara em se tratando de Outlook.

;-)

Site de VB com dicas interessantes

2011-10-12T23:24:00.001-03:00

Tenho a impressão de que o site não é atualizado, mas as dicas que estão lá são bem interessantes.
Espero que não saia do ar...
http://www.codelines.com/

Indicado pelo grande amigo Gib@.

;-)

Conectando o SQL Server 2008 Express via VBA

2011-10-08T21:10:00.001-03:00

Bem simples a conexão por ADO ao SQL Server Express 2008.
Uma vez conectado, nada muda no resto da programação.

Option Compare Database
Option Explicit

Sub teste_sql()

    Dim cnn As New ADODB.Connection

    cnn.Open "Provider=SQLNCLI10.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=base_teste;Data Source=pkazu\sql_express_2008"

    cnn.Execute "DELETE FROM TABELA1"

cnn.Close

End Sub

Estupidez humana

2011-09-04T01:13:00.000-03:00

Este espaço não era para este tipo de comentário, mas me revolta ver certas notícias pela internet.
Mais de 100 toneladas de tomate gastos em folia enquanto milhares morrem de fome é algo que não pode passar em branco.
Ok, ninguém sobrevive só comendo tomates, mas para quem não tem absolutamente nada, um tomate é o equivalente a esperança de viver um pouco mais.

Copiando texto de arquivos PDF

2011-08-22T23:19:00.009-03:00

Esta é para tirar poeira do blog, pois faz um bom tempo que não colocado dicas aqui...
Aliás, o blog que inicialmente era focado no Excel, agora praticamente virou blog de VBA.
Bem, pelo menos espero que mesmo assim continue sendo útil.

Vamos ao código de hoje.
O problema:
Precisava abrir muitos documentos PDF e selecionar apenas alguns campos para poder trabalhar com eles numa tabela do Access.
Após uma pesquisa pela internet, verifiquei que existe pouca coisa sobre automação do Adobe via VBA que pudesse me ajudar.
Automação com o Internet Explorer seria o óbvio, porém não existe "Select All" nem "Copy".
Parti para a solução que não considero a melhor, porém foi o que me quebrou o galho e espero que ajude aqueles que visitarem este blog.
Detalhe importante: os dados são copiados para um arquivo TXT e a parte de tratamento depende do documento que está sendo aberto e copiado, por isso não vou detalhar para não complicar.
Outro detalhe importante: marcar a referência Microsoft Forms 2.0 Object Library.
Se não estiver na lista das referências, procurar pelo arquivo FM20.dll que geralmente está em C:\Windows\System32\.

;-)

Option Compare Database

Option Explicit

Dim ie As Object

Dim temp_area As New DataObject

Dim arquivo As String

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Public Sub Pausa(ByVal segundos As Single)

Call Sleep(Int(segundos * 1000#))

End Sub

'Código teste para copia de texto de arquivo PDF

Sub IExplorer()

Open CurrentProject.Path & "\dados.txt" For Output As #1

Set ie = CreateObject("internetexplorer.application")

ie.Visible = True

arquivo = Dir(CurrentProject.Path & "\*.pdf")

Do While arquivo <> ""

ie.navigate CurrentProject.Path & "\" & arquivo

Do While ie.busy

DoEvents

Loop

Pausa 2

SendKeys "%E", True

SendKeys "{down}", True

Pausa 0.5

SendKeys "{ENTER}", True 'Selecionar tudo

SendKeys "%E", True

SendKeys "{down}", True

Pausa 0.5

SendKeys "{ENTER}", True 'Copiar

temp_area.GetFromClipboard

Print #1, temp_area.GetText

Print #1, "---------------------"

Debug.Print arquivo

arquivo = Dir

Loop

Close #1

ie.Quit

Set ie = Nothing

End Sub

Carro personalizado

2011-07-05T02:22:00.002-03:00

Este não podia ficar de fora do blog!!!

Sobre o Custo Efetivo Total

2011-07-02T10:11:00.002-03:00

Procurando a fórmula para o cálculo do C.E.T., achei no site do Banco Central do Brasil, a forma mais fácil de se chegar no valor.
O exemplo é extremamente simples, com a HP12C cheguei nos percentuais sem problemas.

http://www.bcb.gov.br/pre/bc_atende/port/custo.asp#3

;-)

Um lembrete quando utilizar late binding

2011-04-14T00:45:00.002-03:00

Cuidado com algumas constantes...
Por exemplo, no Outlook VBA, o formato do texto do e-mail pode ser definido como olFormatHTML desde que a referência à versão corrente do Outlook esteja marcada!
No caso de late binding, lembre-se de que não há referência, portanto, neste exemplo o código retornará um erro.
Basta trocar o "olFormatHTML" por 2 que é a constante correspondente.
Ficaria assim:
email.BodyFormat = 2 (late binding) e
email.Bodyformat = olFormatHTML (early binding).
No Help dos VBA's do Office, pode encontrar todas as constantes necessárias para o dia a dia do programador.

;-)

Compactando via VBA

2011-04-09T17:18:00.003-03:00

Onde pretendo aplicar esta solução, o prompt do comando é bloqueado, portanto, o Shell não funciona.
De qualquer forma, fica aqui o código para quem quiser compactar usando o 7Zip ou WinRAR.
Para compactar um por um, basta fazer um loop e vir trocando o nome dos arquivos, idem para as senhas.
;-)


Sub teste()
 Dim ret As Long
 ret = Shell("C:\Arquivos de programas\WinRAR\rar a -pteste c:\base.rar c:\base.mdb")
End Sub

Sub teste7z()
 Dim ret
 ret = Shell("C:\Arquivos de programas\7-Zip\7z a -pteste c:\base.7z c:\base.mdb")
End Sub

Protegendo com senha os arquivos compactados pelo Windows

2011-04-09T17:11:00.010-03:00

Poderia ser mais intuitivo, mas existe a possibilidade de proteger com senha quando se compacta um arquivo pelo próprio Windows, sem utilizar um compactador de terceiros.

Clique com o botão direito sobre o arquivo a ser compactado, selecione Enviar para > Pasta compactada (zipada).

No arquivo zipado que se criou, clique com o botão direito do mouse e clique em Explorar.

No menu arquivo, aparece então a opção de adicionar senha.

;-)

Compactando com senha todos os arquivos de uma pasta

2011-04-09T16:28:00.003-03:00

Estou tentando fazer essa tarefa via VBA, mas enquanto não encontro solução... segue a dica de um compactador que faz esse trabalho, o PeaZip.
Trabalha com vários formatos (*.7Z, *.rar, *.zip e outros), e tem versão "Portable" que funciona a partir do pendrive.
Ainda não testei, mas aparentemente muito bom e simples de usar.

Já ia esquecendo... os arquivos são individuais, ou seja, trata-se de criar um zip para cada cada arquivo e não um zip contendo todos os arquivos!

http://www.peazip.org

;-)

Mais um código para obter via VBA o IP do seu computador

2011-03-29T23:58:00.001-03:00

Com os devidos créditos nos comentários.


Option Explicit
 
Global num_ip As String
 
' VBA MODULE: Get all IP Addresses of your machine
' (c) 2005 Wayne Phillips (http://www.everythingaccess.com)
' Written 18/05/2005
'
' REQUIREMENTS: Windows 98 or above, Access 97 and above
'
' Please read the full tutorial here:
' http://www.everythingaccess.com/tutorials.asp?ID=Get-all-IP-Addresses-of-your-machine
'
' Please leave the copyright notices in place.
' Thank you.
'
'Option Compare Database
 
'A couple of API functions we need in order to query the IP addresses in this machine
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Public Declare Function GetIpAddrTable Lib "Iphlpapi" (pIPAdrTable As Byte, pdwSize As Long, ByVal Sort As Long) As Long
 
'The structures returned by the API call GetIpAddrTable...
Type IPINFO
    dwAddr As Long         ' IP address
    dwIndex As Long         ' interface index
    dwMask As Long         ' subnet mask
    dwBCastAddr As Long     ' broadcast address
    dwReasmSize As Long    ' assembly size
    Reserved1 As Integer
    Reserved2 As Integer
End Type
 
Public Function ConvertIPAddressToString(longAddr As Long) As String
   
    Dim IPBytes(3) As Byte
    Dim lngCount As Long
   
    'Converts a long IP Address to a string formatted 255.255.255.255
    'Note: Could use inet_ntoa instead
   
    CopyMemory IPBytes(0), longAddr, 4 ' IP Address is stored in four bytes (255.255.255.255)
   
    'Convert the 4 byte values to a formatted string
    While lngCount < 4
   
        ConvertIPAddressToString = ConvertIPAddressToString + _
                                    CStr(IPBytes(lngCount)) + _
                                    IIf(lngCount < 3, ".", "")
 
        lngCount = lngCount + 1
       
    Wend
   
End Function
 
Public Sub GetIPAddresses(Optional blnFilterLocalhost As Boolean = False)
 
    Dim Ret As Long, Tel As Long
    Dim bytBuffer() As Byte
    Dim IPTableRow As IPINFO
    Dim lngCount As Long
    Dim lngBufferRequired As Long
    Dim lngStructSize As Long
    Dim lngNumIPAddresses As Long
    Dim strIPAddress As String
 
On Error GoTo ErrorHandler:
   
    Call GetIpAddrTable(ByVal 0&, lngBufferRequired, 1)
 
    If lngBufferRequired > 0 Then
    
        ReDim bytBuffer(0 To lngBufferRequired - 1) As Byte
    
        If GetIpAddrTable(bytBuffer(0), lngBufferRequired, 1) = 0 Then
    
            'We've successfully obtained the IP Address details...
    
            'How big is each structure row?...
            lngStructSize = LenB(IPTableRow)
   
            'First 4 bytes is a long indicating the number of entries in the table
            CopyMemory lngNumIPAddresses, bytBuffer(0), 4
    
            While lngCount < lngNumIPAddresses
         
                'bytBuffer contains the IPINFO structures (after initial 4 byte long)
                CopyMemory IPTableRow, _
                            bytBuffer(4 + (lngCount * lngStructSize)), _
                            lngStructSize
                 
                strIPAddress = ConvertIPAddressToString(IPTableRow.dwAddr)
                
                If Not ((strIPAddress = "127.0.0.1") _
                        And blnFilterLocalhost) Then
                       
                    'Replace this with whatever you want to do with the IP Address...
                    num_ip = strIPAddress
               
                End If
            
                lngCount = lngCount + 1
            
            Wend
        
        End If
       
    End If
 
Exit Sub
 
ErrorHandler:
    MsgBox "An error has occured in GetIPAddresses():" & vbCrLf & vbCrLf & _
            Err.Description & " (" & CStr(Err.Number) & ")"
 
End Sub

Criando arquivos MDE no Access 2007 - Parte III

2011-03-29T23:50:00.002-03:00

Apesar de ter escrito em outros lugares que não ia baixar o hotfix (achei uma falta de respeito com o consumidor não corrigir esse erro banal até o SP2), mudei de idéia e fui buscar o arquivo.
Para minha surpresa, foi necessário cadastrar meu e-mail para receber as instruções!
Bem, feito isso, olha só o que veio no e-mail demonstrando o pouco caso com o problema.

:-(

INFORMAÇÕES IMPORTANTES

Para sua conveniência, colocamos o hotfix solicitado em um site HTTP. Você pode baixar o hotfix desse site e com isso evitamos ocupar a sua caixa de entrada de emails.

AVISO Esse hotfix não foi submetido a um teste completo. Portanto, destina-se somente a sistemas ou computadores enfrentando o mesmo problema descrito em um ou mais artigos da Base de Dados de Conhecimento Microsoft listados no campo "Números do artigo da base de dados" da tabela que se encontra no final desta mensagem de email. Se você não tiver certeza de que algum problema específico de compatibilidade ou instalação esteja associado a esse hotfix, será recomendável aguardar pela próxima versão do service pack. O service pack incluirá uma versão totalmente testada dessa correção. Sabemos que pode ser difícil determinar se algum problema de compatibilidade ou instalação está associado a um hotfix. Assim, se desejar confirmar se o hotfix corrige o seu problema específico, ou se algum problema de compatibilidade ou instalação está a ele associado, os analistas de suporte dos Serviços de Atendimento ao Cliente poderão ajudá-lo. Para obter mais informações sobre como contatar o suporte, copie o link a seguir e cole-o no seu navegador da Web:

http://support.microsoft.com/contactus/

Para obter opções adicionais de suporte, copie o link a seguir e cole-o no seu navegador da Web:

http://support.microsoft.com/

Antes de instalar o hotfix
------------------------------

Se você decidir instalar esse hotfix, observe os itens a seguir:

Não implante um hotfix em um ambiente de produção sem antes testá-lo.

Faça backup do sistema ou computador que receberá o hotfix antes de instalá-lo.

Criando arquivos MDE no Access 2007 - Parte II

2011-03-29T20:48:00.002-03:00

Achei muito bom a opção de criar um arquivo MDE em vez do ACCDE no Access 2007, porém encontrei problemas...
Um MDE criado no 2007 simplesmente não abre em outro computador!
Gastando meu precioso tempo numa pesquisa na net, descobri que o problema é de conhecimento da Microsoft e até disponibilizou um hotfix para sanar o inconveniente.
Inadmissível um problema tão tosco e básico, lamentável mesmo.

link para o hotfix:
http://support.microsoft.com/kb/943249

;-)

Cadê os comandos do Office 2010?

2011-03-22T04:08:00.002-03:00

Segue link com o "de -> para" dos comandos do Office 2010 em relação ao 2003.
Não sei quanto tempo o link estará no ar.
É necessário ter o Silverlight instalado.
Estranhamente o tutorial não roda no Chrome.

http://office2010.microsoft.com/en-us/word-help/learn-where-menu-and-toolbar-commands-are-in-office-2010-HA101794130.aspx#_Toc268688374

Se não estiver enganado, acho que já vi algo parecido para o Office 2007...

;-)

Criando arquivos MDE no Access 2007

2011-03-22T03:50:00.002-03:00

Estava preocupado em trabalhar com o Access 2007, pois sempre criava MDE's para proteger meus códigos VBA e nesta versão, vi somente a opção de criação de ACCDE's, o equivalente do primeiro caso.
Questionando no fórum ExpertAccess, nosso colega JPaulo indicou um texto interessante que reproduzo parte dele mais abaixo, onde descreve-se a funcionalidade de criar MDE a partir de banco de dados MDB da versão 2003 no Access 2007.
Façam um teste.
Criem um mdb no formato 2003 e na faixa de opções "Ferramentas de banco de dados" aparecerá o botão "criar MDE".
Usando o formato ACCDB, na faixa de opções aparece "Criar ACCDE".
Muito bom, tomara que na versão 2010, o recurso seja mantido.

;-)

Obs.: costumo colocar o link + o texto, pois frequentemente os sites são atualizados e por vezes, o link torna-se inválido. Procuro dessa forma, preservar o texto original para futuras consultas aqui.

link do texto:
http://office.microsoft.com/en-us/access-help/6-key-considerations-when-creating-access-2007-databases-HA010219005.aspx

trecho do texto:
TIP In previous versions of Access this was called a Microsoft Database Executable (MDE) file. The functionality and creation process are the same. If you open an older (Access 2002 or Access 2003) MDB file in Access 2007, a Make MDE command appears in the Database Tools group on the Database Tools tab in place of the Make ACCDE command that appears when you're working in an Access 2007 database.

Mais um site sobre Outlook...

2011-03-10T00:25:00.001-03:00

... com muitas informações!!!
http://www.outlookcode.com/

;-)

Agenda no Office

2011-03-07T08:18:00.003-03:00

Tenho visto muita gente desenvolvendo uma agenda no Accesss, mas creio que "reinventar a roda" é perda de tempo.
Segue minha opinião:
A maioria dos computadores (para não dizer todos) que têm o Access instalado, invariavelmente têm o MS Outlook também.
Então para que criar uma agenda no Access, se você tem no MS Outlook uma excelente agenda, totalmente funcional e completa?
Via VBA é possível fazer os dois aplicativos interagirem entre si, obtendo assim a produtividade esperada do pacote Office.
Falar em produtividade aqui no blog já é "chover no molhado", mas insisto no assunto para que os colegas programadores gastem menos tempo com soluções mirabolantes em VBA e entendam que a integração entre os aplicativos Office é o caminho para a produtividade.
Quem já vem acompanhando o blog, sabe que tenho a mesma opinião quanto a criação de controle de estoque em Excel: funciona quando a quantidade de itens é pequena (eu diria que até uns 50 itens no estoque e com pouca movimentação de entradas e saídas).
É o aplicativo inadequado para a tarefa.
Dúvidas? Vejam o famoso Northwind que é o banco de dados exemplo que vem no Office (não sei se na versão 2010 ainda vem).
Onde encontrar muita coisa de programação VBA no Outlook: http://www.rsoutlook.com

;-)

Zipando via VBA com o 7Zip

2011-03-07T08:13:00.003-03:00

Segue uma adaptação de um código que eu peguei na internet.
Não é de minha autoria, mas vou deixar aqui para futuras consultas.
É bom ressaltar que o 7Zip é um compactador free e até o último comparativo que fiz, tinha uma taxa de compressão melhor que a do WinRAR.


Option Explicit
 
Dim nome_zip        As Variant
Dim pasta_a_zipar   As Variant
Dim strDate         As String
Dim Pasta_destino   As String
Dim oApp            As Object
 
 
Sub Zipar_tudo_com_7Zip()
   
    'Pasta onde estará o arquivo zipado
    Pasta_destino = "C:\Users\todorok\Desktop\"
 
    'Pasta que contém os arquivos a serem zipados
    pasta_a_zipar = "C:\Users\todorok\Desktop\Kaizen\"
 
    'Arquivo zip que contém os arquivos compactados
    nome_zip = Pasta_destino & "backup" & ".zip"
 
    'Criar um arquivo zip vazio
    Call Novo_zip_vazio(nome_zip)
 
    Set oApp = CreateObject("Shell.Application")
    'Copiar os arquivos para dentro do arquivo zip vazio
    oApp.NameSpace(nome_zip).CopyHere oApp.NameSpace(pasta_a_zipar).Items
 
    'Aguardar o término da compactação
    On Error Resume Next
    Do Until oApp.NameSpace(nome_zip).Items.Count = oApp.NameSpace(pasta_a_zipar).Items.Count
        Application.Wait (Now + TimeValue("0:00:01"))
    Loop
    On Error GoTo 0
 
    MsgBox "Fim!"
End Sub
 
Sub Novo_zip_vazio(sPath)
    'Se já existir um arquivo zip, apagá-lo e criar um novo
    If Len(Dir(sPath)) > 0 Then Kill sPath
    Open sPath For Output As #1
    Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0)
    Close #1
End Sub

Linguagem de programação dirigida a iniciantes

2011-01-23T14:22:00.004-03:00

Chegou o Small Basic, uma linguagem de programação que, segundo a Microsoft, destina-se a crianças ou pessoas que desejam aprender a programar de forma simples e intuitiva.
Ainda não instalei, mas logo farei um teste.
Para pessoas que já têm alguma experiência, em princípio não vejo muita coisa interessante, mas o que me chamou a atenção é que o Small Basic é orientado à objetos e imagino eu que, pela sua simplicidade, deve ajudar a quem vive no mundo da orientação à eventos, aprender os novos conceitos.

Links:
Download do Small Basic:
http://blogs.msdn.com/b/smallbasic/archive/2010/06/11/small-basic-v0-9-is-here.aspx

FAQ:
http://msdn.microsoft.com/en-us/beginner/ff384239.aspx

Manuais:
http://msdn.microsoft.com/en-us/ff423682
Obs.: infelizmente o português BR não estava disponível no momento em que escrevia este post, mas o link para o português PT está ativo.

Home do Small Basic:
http://msdn.microsoft.com/en-us/beginner/ff384126.aspx

;-)

Verificando a versão do Excel via VBA

2011-01-23T00:06:00.003-03:00

Esta questão foi postada num dos grupos de discussões que participo.
A resposta é bem simples, basta usar o Application.Version que será mostrada a versão do Excel que está sendo executada.
Abra o VBA (ALT + F11), tecle CTRL + G para abrir a janela de verificação imediata e digite Debug.Print Application.Version

O resultado será:
Versão 8 para o Excel 97
Versão 9 para o Excel 2000
Versão 10 para o Excel 2002
Versão 11 para o Excel 2003
Versão 12 para o Excel 2007
Versão 14 para o Excel 2010

A pergunta mais óbvia: cadê a versão 13?
Se alguém souber, me mande por e-mail, apenas por curiosidade.
Certamente, a necessidade de verificar a versão deve-se a alguma incompatibilidade de comandos entre a versão onde foi desenvolvido e a versão onde será executado o programa.
Nestes casos, minha recomendação também é simples:
Se você sabe que tem mais de uma versão do Excel instalado na sua empresa, desenvolva sempre para a versão mais antiga e use sempre que possível, late binding para evitar problemas com referências aos outros aplicativos do MS Office.
A pequena perda de performance no late binding é praticamente imperceptível, visto que os PC's atuais são bem rápidos e raramente aplicações desenvolvidas no Excel têm a performance como foco principal.

;-)

Mais uma opção ao Microsoft Office

2010-12-19T18:55:00.002-03:00

Tirando o BrOffice, acho que a falta de sucesso de outras suítes vem justamente de seus maiores objetivos: tentarem se parecer com o Microsoft Office.
Talvez algum desenvolvedor ainda tenha uma super idéia, faça algo realmente diferente e quem sabe, chame mais a atenção dos usuários em geral.

Link para quem quiser experimentar:
http://product.thinkfree.com/office

A propósito, +/- U$ 50.

;-)

Uma "outra" opção em suíte Office livre - LIBRE OFFICE

2010-12-09T21:56:00.002-03:00

Outra entre aspas porque me parece ser o BrOffice, "largado" pela Sun e continuado pelos fundadores do antigo projeto.
Ainda não testei, fica para outra ocasião e depois eu coloco aqui as impressões.
No time que toca o projeto, um brazuca, Claudio Filho que dentre outras coisas, co-fundou a comunidade BROffice.org.

Link:
http://www.documentfoundation.org/

;-)

Conectando o Excel 2007 via ADO

2010-12-06T22:46:00.001-03:00


Sub ado_2007()
   Dim cnn As New ADODB.Connection

   cnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\teste_ado.xlsx;" & _
       "Extended Properties=" & Chr(34) & "Excel 12.0;HDR=Yes" & Chr(34)

   cnn.Open
   cnn.Close
End Sub

Separar planilhas

2010-11-13T13:07:00.003-03:00

Esta é uma tarefa que sempre aparece nos grupos de discussão: dividir uma planilha a partir de um campo como critério.
Por exemplo, a partir de planilha de vendas onde estão os dados de todos os vendedores, criar uma nova planilha para cada vendedor.
Muitas soluções criativas já foram propostas e eu vou deixar a minha aqui.
Fiz em Access pela facilidades que o aplicativo oferece.

Baixem o aplicativo no link, na pasta "Exemplos Excel" (apesar de ser em Access...).
O código está aberto para quem quiser melhorar ou personalizar, basta abrir segurando a tecla shift.

http://www.4shared.com/dir/jufLzdx2/Compartilhado.html

;-)

MariaDB

2010-11-07T22:36:00.002-03:00

Um nome incomum e curioso, mas acreditem, é um banco de dados.
Criado pelos desenvolvedores do MySQL que não se deram bem com a Sun Microsystems, parece ser algo promissor, exatamente na contramão do MySQL, que neste momento aparenta estar com o futuro obscuro e incerto.

http://www.maria.org

;-)

Verificando o tamanho das pastas e listando no Excel

2010-11-04T00:34:00.002-03:00



Option Explicit
 
Dim objFSO      As Object
Dim pasta       As Object
Dim subpasta    As Object
Dim linha       As Integer
 
Dim diretorio   As String
Dim UserFile    As String
 
Private Sub cmd_verifica_Click()
   
    UserFile = GetDirectory("Selecione a pasta")
    If UserFile = "" Then
        Exit Sub
    Else
        Me.MousePointer = fmMousePointerHourGlass
        Call subpastas(UserFile)
        Me.MousePointer = fmMousePointerDefault
        Unload Me
    End If
   
End Sub
 
Sub subpastas(diretorio As String)
 
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set pasta = objFSO.GetFolder(diretorio)
    Set subpasta = pasta.SubFolders
   
    ActiveSheet.Range("A1").CurrentRegion.Clear
    linha = 2
   
    ActiveSheet.Cells(1, 1) = "Nome da pasta"
    ActiveSheet.Cells(1, 2) = "Tamanho"
   
    For Each pasta In subpasta
        DoEvents
        ActiveSheet.Cells(linha, 1) = Mid(diretorio, 3, 99) & "\" & pasta.Name
        ActiveSheet.Cells(linha, 2) = pasta.Size
        linha = linha + 1
    Next
   
    ActiveSheet.Columns("A:B").AutoFit
    ActiveSheet.Range("B:B").NumberFormat = "#,##0"
    Call classifica
    ActiveSheet.Cells(1, 1).Select
       
End Sub
 
Sub classifica()
 
    Columns("A:B").Select
    ActiveSheet.Sort.SortFields.Clear
    ActiveSheet.Sort.SortFields.Add Key:=Range("B2:B100"), _
        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveSheet.Sort
        .SetRange Range("A1:B100")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
   
End Sub

Preço de software

2010-10-31T19:29:00.004-03:00

Sempre fui um crítico dos preços de software no Brasil.

Continuo achando caríssimo um Windows ou um Office com Access para pessoa física.

Se o Windows é o sistema operacional mais vendido no mundo inteiro, por que é o mais caro?

Vejam na imagem por exemplo, a versão de desenvolvedor do SQL Server, um super banco de dados corporativo. Coloquei a imagem para que ninguém pense que eu errei na digitação...

Lembro-me quando eu comprei o Windows 95 Update (para atualizar a partir do Win 3.11) e paguei algo em torno do que seria hoje uns R$ 70,00.

Isso sim era um preço justo, ainda mais considerando que naquela época, os PC's eram extremamente caros e com preços em dólar!

Será que o Windows e Office precisam ser tão caros assim?

;-)

Contrato de desenvolvimento de software

2010-10-10T13:40:00.004-03:00

Esta é uma dúvida frequente na comunidade, principalmente para quem está começando ou está deixando de desenvolver para a empresa onde trabalha ou ainda está fazendo um "extra" paralelamente ao seu emprego.

Seguem links interessantes, onde o colega Avelino Sampaio do fórum ExpertAccess nos indica links muito interessantes, vale a pena dar uma olhada:

http://www.expertaccess.com.br/forumnew/forum_posts.asp?TID=23055&PID=115031#115031

http://www.usandoaccess.com.br/blog/blog6.asp?id=1#inicio

http://www.usandoaccess.com.br/tutoriais/tuto26.asp?id=1#inicio

;-)

Utilitários para o Excel

2010-10-05T01:00:00.003-03:00

Título estranho, mas é isso mesmo: utilitários para o Excel.

Várias ferramentas para quem não quer ser aventurar em macros/VBA e precisa de coisas simples do tipo "clica no botão e pronto".

Obviamente precisa pagar, mas os preços não são tão altos.

O que eu achei mais interessante pela descrição é o Excel Tool SQL Query por U$ 28.

Vale a pena dar uma olhada, apenas a título de curiosidade.

http://www.excel-tool.com/

;-)

O que há de novo no Excel 2010

2010-10-01T23:35:00.003-03:00

Sinceramente ainda não vi nada que merecesse algum comentário mais detalhado, exemplos ou demonstrações.

O Office 2010 acrescentou vários recursos que, apesar de interessantes, vão atender apenas a minoria dos usuários.

Continuo com a opinião de que, para grande parte das pessoas, o Excel 97 ainda é mais que suficiente. A migração para versões mais recentes ocorreram por uma questão de compatibilidade de arquivos ou por curiosidade pela novidade.

Eu mesmo sou usuário do Office 2007 no trabalho e em casa uso o 2003.

Para contornar a questão da compatibilidade, instalei o suplemento oferecido pela Microsoft no seu site de downloads.

Enfim, futuramente devo comentar alguma coisa sobre o Excel 2010.

O único comentário direto é o preço: em torno dos R$ 1.500,00 (versão Professional, outubro/2010), ainda é extremamente caro para o usuário doméstico.

Conectando o Access 2007 via VBA

2010-10-01T23:17:00.003-03:00

Vou deixar um código aqui que postei em outro fórum, onde um colega queria saber como conectar o ADO numa base Access 2007.

Basta trocar o Provider, que até o 2003 era o Jet.

;-)

Option Compare Database
Option Explicit

Dim rst As ADODB.Recordset
Dim cnn As ADODB.Connection

Sub teste()
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\banco.accdb"

rst.Open "Select * FROM TABELA1", cnn, adOpenKeyset, adLockOptimistic

MsgBox rst(0)

rst.Close
cnn.Close

End Sub

"Fernando (Alonso) é mais rápido que você, confirme que você entendeu a mensagem!

2010-07-25T23:06:00.005-03:00

Mensagem do engenheiro de Felipe Massa, Rob Smedley, no GP da Alemanha neste domingo, 25/07/2010.

O Massa entendeu, nós entendemos, o mundo inteiro entendeu.

Infelizmente.

Blog de vagas e oportunidades

2010-07-10T17:54:00.002-03:00

Blog do grande amigo Gian Carlos, sempre disposto a ajudar as pessoas.

Recomendo!

http://goanca.wordpress.com/

;-)

Criar email via VBA no Outlook - late binding

2010-07-09T22:01:00.004-03:00

Mais óbvio e simples impossível.
Não esquecer:
- Que na hora do "Send", o Outlook vai dar um aviso de que outro programa está tentando enviar mensagens;
- O Outlook deve estar aberto na hora da execução do código.

;-)



Sub email()

Set olapp = CreateObject("Outlook.Application")
olapp.Session.Logon

Set mensagem = olapp.CreateItem(0)
With mensagem
  .To = ""
  .CC = ""
  .BCC = ""
  .Subject = ""
  .Body = ""
  .display
  .Send
End With

End Sub

Sobre o limite de 2Gb no Access

2010-06-14T00:49:00.003-03:00

Muita gente se apavora quando o seu mdb chega perto dos 2Gb e logo vai pensando em migrar para outro banco de dados.
Meu recado para os colegas:
O limite de 2Gb é para 1(um) mdb. Nada impede que se coloque tabelas em outros mdb's e se trabalhe com as mesmas vinculadas.
Utilizando-se esse recurso do Access, o limite praticamente deixa de existir, pois basta distribuir as tabelas de forma que cada mdb fique dentro dos 2Gb.
Importante lembrar que os 2Gb são para os dados e os objetos de sistema.
Na prática, o que se tem de espaço para dados são 2Gb menos os objetos de sistema.
Recomendo nunca ultrapassar 1,5Gb de mdb. Pode parecer conservador demais, mas já tive mdb's que quando chegaram a 1,9Gb começaram a dar problemas, desde então, passei a trabalhar tranquilamente dentro dos 1,5Gb.
Ainda penso que SQL Server Express + Access é uma dupla imbatível para desenvolver aplicações com bancos de dados.
O Access é uma ferramenta de desenvolvimento praticamente completa, só faltava gerar executáveis. Além disso, não tem outro aplicativo no mercado com um gerador de relatórios tão completo como o do Access.
VBA então nem se fala, muito fácil de usar.
Front End feito no Access e banco de dados no já sabidamente estável, confiável e robusto SQL Server atendem muito bem as aplicações corriqueiras de pequeno/médio porte.

;-)

p.s. Nem pensem em fazer banco de dados em Excel, ele não foi criado para essa finalidade!!!

Office 2010

2010-06-14T00:42:00.002-03:00

Creio que até o momento desta postagem, o Office 2010 ainda não foi lançado aqui no Brasil, mas dando uma olhada geral pela internet, notei que o botão "Office" (aquele redondo no canto superior esquerdo da tela do Office 2007) ... sumiu!
No lugar dele, agora temos de volta o item de menu "Arquivo" ou "File".
Após o lançamento oficial, eu volto a comentar sobre o assunto, pois pelo que sei, as versões que estão por aí, são beta's e portanto passíveis de mudanças.
Você já devem ter visto um comentário que postei aqui no blog, falando sobre a complicação que é a nova "faixa de opções", que até agora não vejo lógica nenhuma no agrupamento de comandos.
Quem sabe o "sumiço" do botão Office não seja uma volta às origens, afinal o que há de mal em voltar atrás numa idéia infeliz???

;-))))

Comentários no código VBA

2010-06-14T00:27:00.002-03:00

Comentar o código é sempre uma boa prática para auxiliar em futuras manutenções, sejam elas feitas por você mesmo ou por terceiros.
O usual é usar um apóstrofe antes da linha do comentário, mas relembrando do bom e velho Visual Basic do meu TK 83, vi que o comando REM ("remarks") funciona também!
Único porém é que ele só serve quando está no início da linha (o apóstrofe funciona em comnetários na mesma linha após o código).
Exemplo:

'Este é um comentário
REM segunda linha do comentário

;-)

CASE no SQL do Access

2010-06-05T21:53:00.003-03:00

Estranho escrever "sql do Access", pois SQL deveria ser uma linguagem comum aos banco de dados...
Enfim, outro dia eu precisei usar um CASE no Access e depois de algumas tentativas vi que não funcionava.
Após uma pesquisa pela net, descobri que não funciona mesmo e que é preciso usar um "Switch".
Dá mais trabalho para escrever, mas funciona.
Alguns dirão "é óbvio, você não sabia disso?".
Pois é, eu não sabia e agora estou sabendo!
;-)


SELECT
    SWITCH
    (
        PRODUTO = 1, 'PRIMEIRO',
        PRODUTO = 2, 'SEGUNDO'
                ) AS PRODUTO,
FROM TABELA

Manipulando a área de transferência do Windows (ClipBoard)

2010-05-20T23:08:00.009-03:00

Requisito:
Marcar a referência "Microsoft Forms Object Library".
Se tiver um form no VBA, a referência estará automaticamente marcada.

;-)




Dim area As DataObject
Dim texto As String

Sub colar_da_area_de_transferencia()
  
   Dim temp_area As New DataObject
   temp_area.GetFromClipboard
   MsgBox temp_area.GetText
  
End Sub

Sub limpa_area_transferencia()

   Dim temp_area As New DataObject
   temp_area.SetText ""
   temp_area.PutInClipboard

End Sub

Sub copiar_para_area_de_transferencia()

   Dim temp_area As New DataObject
   temp_area.SetText "Texto"
   temp_area.PutInClipboard

End Sub

Desvio padrão em VBA

2010-05-17T23:05:00.003-03:00

Escrito no Excel, mas facilmente adaptável aos outros aplicativos do Office.

;-)


Option Explicit
 
' variáveis para cálculo do desvio padrão
'========================================
Dim valores()      As Double
Dim desvio_padrao  As Double
Dim qtd_valores    As Integer
Dim soma           As Double
Dim soma_1         As Double
Dim i              As Integer
Dim media          As Double
'========================================

'Cálculo de desvio padrão
'Exemplo para valores na coluna A a partir de A1
'Os valores devem estar em células contíguas
'Resultado em B1
 
 
Sub calcular()
 
     qtd_valores = Range("A1").CurrentRegion.Rows.Count
     ReDim valores(qtd_valores)
 
     For i = 1 To qtd_valores
          valores(i) = Sheets("plan1").Cells(i, 1)
     Next i
    
     desvio_padrao = f_desvio_padrao(qtd_valores, valores)
     Sheets("plan1").Cells(1, 4) = "Desvio Padrão = " & desvio_padrao
 
End Sub
 
Function f_media(ByVal x As Long, valores() As Double)
    
     soma = 0
     For i = 1 To x
         soma = soma + valores(i)
     Next i
 
     f_media = soma / x
 
End Function
 
Function f_desvio_padrao(ByVal qtd_valores As Integer, valores() As Double)
 
     soma_1 = 0
     media = f_media(qtd_valores, valores)
     For i = 1 To qtd_valores
          soma_1 = soma_1 + (valores(i) - media) ^ 2
     Next i
 
     f_desvio_padrao = Sqr(soma_1 / (qtd_valores - 1))
 
End Function

Selecionar arquivo via caixa de diálogo - WORD VBA

2010-05-16T23:03:00.002-03:00

É... de vez em quando eu faço alguma coisa no VBA do Word...


Dim fd          As FileDialog
dim arquivo  As String

Private Sub Abrir()
    
  Set fd = Application.FileDialog(msoFileDialogFilePicker)
  If fd.Show = -1 Then
      arquivo = fd.SelectedItems(1)
      MsgBox "O arquivo selecionado é " & arquivo
  Else
      arquivo = ""
      Exit Sub
  End If
  Set fd = Nothing

End Sub

;-)

Inserindo assinatura no Outlook - VBA

2010-05-13T22:17:00.003-03:00

Ultimamente o Outlook tem sido o "alvo" das minhas necessidades de automatização...
Segue código para inserir assinatura numa mensagem criada via VBA.
Detalhe importante: o formato do e-mail deve ser HTML.

;-)


Option Explicit
Dim assinatura As Variant
 
Public Function pega_assinatura(ByVal sFile As String) As String
'Dick Kusleika
    Dim fso As Object
    Dim ts As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)
    pega_assinatura = ts.readall
    ts.Close
End Function
 
Sub Cria_mensagem_HTML()
'Creates a new e-mail item and modifies its properties.
 
    Dim olapp As Outlook.Application
    Dim objMail As MailItem
    Set olapp = Outlook.Application
    'Create mail item
    Set objMail = olapp.CreateItem(olMailItem)
   
    assinatura = pega_assinatura("C:\Documents and Settings\" & _
  Environ("username") & "\AppData\Roaming\Microsoft\Assinaturas\Paulo.htm")
 
    With objMail
       'Set body format to HTML
       'a tag 
 quebra linha
       'a tag  formata o texto para negrito
       .BodyFormat = olFormatHTML
       .HTMLBody = "Texto " & assinatura
       .Display
    End With
 
End Sub

Navegando num formulário contínuo do Access...

2010-05-08T18:10:00.003-03:00

... com a mesma facilidade do Excel.
Este código é de autoria do Jaques Zetune da ForumAccess.
Estou deixando aqui mais para consultas, pois as vezes eu preciso e não tenho à mão.
Não esquecer de colocar um checkbox com o nome chkNavegLoop, valor padrão 1.

;-)



Option Explicit

Const cDataSheet = 2, cContinuous = 1

Private Sub Form_Load()
    Me.KeyPreview = True
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    DoKeys Me, KeyCode, Shift
End Sub

Public Sub DoKeys(wForm As Form, KeyCode As Integer, Shift As Integer)
    Dim wCtl As Control, wIgnore As Integer
    'a tecla Shift está pressionada ?
    If Shift <> 0 Then Exit Sub
    'o formulário está sendo visualizado em modo contínuo?
    If wForm.CurrentView <> cDataSheet And wForm.DefaultView <> cContinuous Then Exit Sub

On Error Resume Next

    Set wCtl = Screen.ActiveControl
    'testa o comportamento da tecla Enter no controle
    wIgnore = (wCtl.EnterKeyBehavior <> 0)
    'verifica se a barra de rolagem está ativada If Not wIgnore Then wIgnore = (wCtl.ScrollBars <> 0)
    'verifica se o controle em questão está com o texto “Ignore Setas” na propriedade Tag
    'indicando que a intercepção de teclas deve ser ignorada no mesmo
    If Not wIgnore Then wIgnore = (InStr(wCtl.Tag, "Ignore Setas") > 0)
    If wIgnore Then Exit Sub
    'sincroniza o registro corrente do formulário com o seu RecordsetClone
    Me.RecordsetClone.Bookmark = Me.Bookmark
    
    Select Case KeyCode
        Case vbKeyDown
            If Me.RecordsetClone.AbsolutePosition + 1 = Me.RecordsetClone.RecordCount And Me!chkNavegLoop Then
            'tentou ir além do topo e a navegação em loop está ativa
                DoCmd.GoToRecord , , acFirst
            Else
                DoCmd.GoToRecord , , acNext
            End If
            KeyCode = 0
        Case vbKeyUp
            If Me.RecordsetClone.AbsolutePosition = 0 And Me!chkNavegLoop Then
            'tentou ir além do final e a navegação em loop está ativa
                DoCmd.GoToRecord , , acLast
            Else
                DoCmd.GoToRecord , , acPrevious
            End If
            KeyCode = 0
    End Select
End Sub

Ajustar um UserForm para o tamanho da tela

2010-05-08T11:56:00.004-03:00

E também não deixar o usuário clicar no "X" para fechar o UserForm.
Muito bom para quem gosta de mexer na interface do Excel via VBA, assim é possível voltar todas as configurações colocando o código no botão SAIR.

;-)


Private Sub CommandButton2_Click()
     Application.WindowState = xlMaximized
     Me.Height = Application.Height
     Me.Width = Application.Width
     Me.Left = Application.Left
     Me.Top = Application.Top
End Sub
 
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Cancel = True
    MsgBox "clicar no botão sair!!!"
End Sub

Executar um processo quando o e-mail chegar

2010-05-08T11:51:00.002-03:00

Esta é bem interessante: toda vez que chegar um e-mail com um determinado título, executar um processo.
Vamos usar como título, "executa_processo".
Assim, caso eu queira disparar um processo, basta que o meu computador esteja ligado e o Outlook aberto. Quando chegar uma mensagem com o título acima, o processo "minha_rotina" é executado.

;-)


Evento new_mail:
 
Private Sub Application_NewMail()   
   Call Procura   
End Sub
 
 
Sub Procura()
    'Procura mensagem na caixa de entrada
    'Critério: Assunto da mensagem
   
    Dim mySearch        As Search
    Dim myResults       As Results
    Dim intCounter      As Integer
    Dim strMessages     As String
 
    Set mySearch = AdvancedSearch(Scope:="Inbox", Filter:="urn:schemas:mailheader:subject = 'executa_processo'")
    Set myResults = mySearch.Results
    If myResults.Count > 0 Then
        Call minha_rotina
    Else
        Exit Sub
    End If
       
  
End Sub

Copiar informações de um e-mail no Outlook - VBA

2010-05-08T11:45:00.003-03:00

Vou deixar registrado aqui vários trechos de códigos em VBA, para facilitar a consulta. Afinal, basta ter uma conexão com a internet, certo?
Segue abaixo, um exemplo para copiar dados de um e-mail selecionado no Outlook para qualquer outro aplicativo Office.
Detalhes:
- Referenciar o Outlook no projeto VBA;
- O e-mail precisa estar selecionado na caixa de entrada (para este exemplo).

;-)


 
Option Explicit
 
Dim oApp As Outlook.Application
Dim oNS As Outlook.NameSpace
Dim oWindow As Object
Dim omail As Outlook.MailItem
 
Private Sub Comando12_Click()
 
    Set oApp = New Outlook.Application
    Set oNS = oApp.GetNamespace("MAPI")
    Set oWindow = oApp.ActiveWindow
    Set omail = oApp.ActiveExplorer.Selection.Item(1)
   
    txt_remetente = omail.SenderName  'Remetente
    txt_cc = omail.CC         'Com cópia
    txt_assunto = omail.Subject    'Assunto
    txt_mensagem = omail.Body        'Mensagem
    txt_para = omail.To          'Destinatário
    txt_data = omail.ReceivedTime
   
End Sub

Achando o último dia do mês

2010-04-22T22:13:00.003-03:00

Em algumas aplicações, principalmente as financeiras, às vezes é necessário obter o último dia de cada mês.

Seguem duas formas, uma com fórmula do Excel e outra em VBA.

Detalhe interessante: dia zero é o último dia do mês anterior.

;-)


Private Sub teste()
    Dim ultimo_dia_mes As Date
    ultimo_dia_mes = CDate(1 & "/" & Month(Now()) + 1 & "/" & Year(Now())) - 1
    If ultimo_dia_mes = Format(Now, "dd/mm/yyyy") Then
        MsgBox "ultimo dia"
    End If
End Sub

Acrescentando intervalos à data corrente

2010-04-22T01:57:00.003-03:00

Uma dica simples para "fechar a loja" por hoje, afinal o dia começa cedo e agora (01:58 hrs) é bem cedo...
Supondo que numa célula, haja a fórmula com a data de hoje: =AGORA( ).
Se eu quiser saber a data daqui a 5 dias, basta fazer isto: = agora() + 5.
Para acrescentar 1 hora e 15 minutos: =agora() + tempo(1;15;0).

É isso aí.
Pelo menos não fecho o dia com um assunto "não Excel".

;-)))

Onde vamos parar ???

2010-04-22T01:43:00.003-03:00

Não acredito no que acabo de ver.
Uma grande revista de informática escrevendo "tuíte" no seu site...
Daqui a pouco vai aparecer o "aipéd" e coisas do gênero!
Para mim só tem uma explicação: preguiça de escrever certo.

Arghhh....

p.s.: Apesar do assunto não ter nada a ver com o "Equicél" (perceberam como ficou ridículo?), fica a dica para não fazerem isso em seus textos no Office e espero que o Word continue indicando essas aberrações como palavras incorretas.

Video aulas no YouTube

2010-04-17T21:06:00.002-03:00

Para quem gosta de vídeo-aulas, o YouTube está "recheado" de tutoriais de Excel e também de muitos outros softwares.

http://www.youtube.com/results?search_query=excel&aq=f

Sempre gostei de cursos multimídia, mas dando uma olhada nos tutoriais de Excel do YouTube, notei que a qualidade ainda deixa muito a desejar.

O vídeo é só razoável e o áudio muito pobre, provavelmente gravado com esses microfones caseiros (se não estiver enganado, são de eletreto).

Até hoje não vi nenhum curso multimídia que se comparasse em qualidade de aúdio e vídeo com os cursos da antiga Editora Terra, estes com vídeo muito bem trabalhado e áudio gravado em um estúdio de verdade.

Boa sorte para quem quiser tentar.

;-)

A pessoa que inventou deve ter achado o máximo!

2010-04-17T19:41:00.003-03:00

Costumo dizer que a maioria dos inventores não usa o que inventa, pois certas "invenções" simplesmente não são funcionais, causam mais problemas do que ajudam ou é totalmente inútil.
Exemplo "simples" é a faixa de opções do Office 2007 que até hoje, não vi alguém que soubesse explicar qual é a lógica do agrupamento dos comandos.
Veio para atrapalhar a vida de quem já estava habituado com o funcional, intuitivo e tradicional menu.
Pior de tudo é que, outros desenvolvedores de software acharam linda a invenção e estão adotando o mesmo visual e agrupamento...
Vou deixar aqui a imagem de uma invenção que ilustra bem a situação. Pensaram na segurança para evitar spammer's e o recurso ficou tão seguro que nem o próprio dono da conta consegue mandar um simples e-mail!

Aliás, acho que nem mesmo o inventor dessa ... (deixa pra lá...) consegue acertar na primeira tentativa as letras.

;-)

Relógio numa célula

2010-04-14T00:22:00.002-03:00

Bem simples:

;-)



Dim hora_atual As Date

Sub hora()

    ThisWorkbook.Sheets("Plan1").Range("A1").Value = Format(Time, "hh:mm:ss")
    Call acerta_hora

End Sub

Sub acerta_hora()

    hora_atual = Now + TimeValue("00:00:01")
    Application.OnTime hora_atual, "hora"
End Sub

Sub parar()
    Application.OnTime EarliestTime:=hora_atual, Procedure:="hora", Schedule:=False
End Sub

Listando emails do Outlook numa tabela do Access

2010-04-13T23:13:00.002-03:00

Esta demanda partiu de um colega que precisou listar os emails pelos títulos em ordem cronológica.
Abaixo o código para consulta ou para quem precisar.
Rodamos no Office 2007.
Não esquecer de marcar a referência "Microsoft ActiveX Data Objects", qualquer versão.

;-)


Sub Listar_emails_Access()

   Dim rst                 As New ADODB.Recordset
   Dim cnn                 As New ADODB.Connection

   Dim contador_itens      As Integer
   Dim nms                 As Outlook.NameSpace
   Dim fld                 As Outlook.MAPIFolder
   Dim itm                 As Object

   Set nms = Application.GetNamespace("MAPI")
   Set fld = nms.PickFolder

   cnn.Open "Provider=Microsoft.JET.OLEDB.4.0;" & "Data Source=" & "C:\banco.mdb"

   rst.Open "Tabela1", cnn, adOpenKeyset, adLockOptimistic
   
   contador_itens = fld.Items.Count

   For Each itm In fld.Items
       If itm.Class = olMail Then
           rst.AddNew
           rst!titulo = itm.Subject
           rst!Data = itm.ReceivedTime
           rst.Update
       End If
   Next itm

   rst.Close
   cnn.Close

   MsgBox "Fim"

End Sub

Código para importação de arquivo texto delimitado

2010-04-06T22:56:00.004-03:00

Vou deixar aqui só para eventual consulta.
O delimitador é o ponto-e-vírgula.
Arquivo texto sem cabeçalho.

;-)


Sub importa_delimitado()
   
    Dim entrada         As String       'linha do txt
    Dim i               As Single       'número de caracteres
    Dim linha           As Integer
    Dim coluna          As Integer
    Dim texto           As String       'texto a ser gravado na célula
    Dim ultimo          As Boolean      'controle do último caracter da linha
   
    Open "C:\teste.txt" For Input As #1
   
    Line Input #1, entrada
   
    linha = 1
    coluna = 1
    Do While Not EOF(1)
        For i = 1 To Len(entrada)
            If Mid(entrada, i, 1) = ";" Then
                Cells(linha, coluna).Value = texto
                coluna = coluna + 1
                texto = ""
            Else
                'Se for o último caracter, grava na célula
                If i = Len(entrada) Then
                    texto = texto & Mid(entrada, i, 1)
                    Cells(linha, coluna).Value = texto
                    coluna = coluna + 1
                    texto = ""
                    ultimo = True
                End If
                If Not ultimo Then texto = texto & Mid(entrada, i, 1)
            End If
            ultimo = False
        Next
        linha = linha + 1
        coluna = 1
        Line Input #1, entrada
    Loop
 
    Close #1
 
End Sub

Inserindo células copiadas em outro intervalo

2010-04-04T15:57:00.005-03:00

Boas!

Para inserir um grupo de células em outro intervalo, muita gente costuma primeiro inserir novas células para depois colar o conteúdo copiado.
O meio mais fácil de fazer isso, é clicar com o botão direito, selecionar "Inserir células copiadas..." e depois optar por deslocar as células à direita ou abaixo.
No exemplo bem simples, eu inseri os números 4, 5 e 6 na primeira coluna em seus respectivos lugares.

;-)

Obtendo o reembolso pelo Windows OEM

2010-04-04T15:47:00.002-03:00

Apenas vou deixar o link aqui.
Parabéns ao Otto Teixeira que conseguiu essa façanha e que muitos outros tenham sucesso contra a prepotência das empresas.

http://ottoteixeira.com/2010/03/21/como-conseguir-o-reembolso-pelo-windows-oem/

Espero que o link da Info não saia do ar tão rapidamente:
http://info.abril.com.br/noticias/tecnologia-pessoal/ele-rejeitou-o-windows-e-foi-reembolsado-24032010-34.shl

;-)

Transferindo contas do Outlook 2003 - parte 2

2010-03-07T21:52:00.002-03:00

Pesquisando um pouco mais, encontrei um aplicativo interessante que resolveu o meu problema anterior.
Explicando, apesar de conseguir transferir a conta do Outlook 2003 para outro HD, ao baixar as mensagens do Yahoo!, estavam vindo todas e-mails desde a abertura da conta!
Ao executar o aplicativo Easy Transfer, o problema foi resolvido.
Abaixo o link para quem não quer ter dor de cabeça como eu tive...
http://www.microsoft.com/downloads/details.aspx?FamilyId=2B6F1631-973A-45C7-A4EC-4928FA173266&displaylang=en

;-)

Colar > Especial > Valores (texto em html)

2010-03-07T00:01:00.002-03:00

Às vezes eu preciso copiar texto e/ou valores de sites que geralmente vêm no formato html para colar no Excel, para tanto eu uso Colar > Especial > Valores.
Um jeito mais prático, é colar diretamente na barra de fórmulas, que acaba tendo o mesmo efeito, porém com menos click's.
Experimentem!

;-)

Exportar conta de e-mail no Outlook 2003

2010-03-06T23:55:00.002-03:00

Ao transferir meus arquivos para um novo HD, com o XP recém-instalado, deparei com um problema inesperado: exportar a conta de e-mail no Outlook origem para depois importá-la no novo WinXP.
Aparentemente uma tarefa simples, mas... não existe a opção de exportar a conta!
O Outlook Express que é a versão simplificada do leitor de e-mail tem esse recurso, não entendo porque a Microsoft não incluiu no "irmão mais velho".
Bem, pesquisando pela internet, encontrei a solução através de uma chave no registro.
Segue o caminho das pedras.
Depois de localizar a chave, basta exportá-la e importar no outro PC.
Artigo original em http://www.infonegocio.com/luzylar/cuentasoutlook2003.htm

A "maledeta":

HKEY_CURRENT_USER\
Software\
Microsoft\
Windows NT\
CurrentVersion\
Windows Messaging Subsystem\
\Profiles\
Outlook\
9375CFF0413111d3B88A00104B2A6676

;-)

Alinhar texto dentro de uma string

2010-02-15T10:28:00.002-03:00

Olá!

Segue uma dica para alinhar um texto dentro de uma variável do tipo string.
Não vejo muita utilidade, pois quando temos possíveis espaços dentro de uma string e queremos trabalhar somente com o valor, faz mais sentido usar um TRIM(variável).
Bem, se a função existe, em alguma situação ela deve ter sua utilidade.

;-)


Option Explicit
Dim texto As String

Sub teste()
   
    texto = "     azul   "
    Debug.Print texto
    
    'Texto alinhado à esquerda dentro da variável
    LSet texto = "azul"
    Debug.Print texto
        
    'Texto alinhado à direita dentro da variável
    RSet texto = "azul"
    Debug.Print texto
End Sub

Acessando dados do SQL Server Express 2005

2010-02-14T21:09:00.003-03:00

ADO é um recurso muito versátil, permite ao Excel acessar base de dados como o Access, arquivos texto e também do SQL Server.
Vou mostrar aqui um exemplo bem simples de como acessar a tabela de clientes ("Customers") do Northwind.
Para quem quiser utilizar o recurso, não esqueça de marcar o "Microsoft Active Data Objects" nas referências do projeto VBA, pode ser qualquer versão. Aqui eu utilizei a 2.8.

;-)


Option Explicit

Sub SQL_Express()
    Dim rst As New ADODB.Recordset
    Dim cnn As New ADODB.Connection
    Dim i As Integer
    
    cnn.Open "Provider=SQLNCLI;Data Source=(local)\SQLEXPRESS;uid=sa;pwd=123;database=northwind"
    
    rst.CursorLocation = adUseClient
    rst.Open "SELECT CompanyName FROM customers", cnn, adOpenKeyset, adLockOptimistic
    
    i = 1
    Do While Not rst.EOF
        Cells(i, 1).Value = rst!CompanyName
        i = i + 1
        rst.MoveNext
    Loop

    rst.Close
    cnn.Close
    
    Set rst = Nothing
    Set cnn = Nothing

End Sub

Várias versões do Office no mesmo computador

2010-02-13T10:02:00.002-03:00

Ter várias versões do Office sempre gera algum tipo de problema.
Lembro que tive a versão 97 com 2000, 97 com XP e recentemente 2003 com 2007.
Cansei de tantos pequenos problemas que resolvi ficar somente com o 2003 instalado, mais do que suficiente para as minhas necessidades.
Para quem quiser se aventurar... segue um link com dicas muito interessantes:

http://pubs.logicalexpressions.com/Pub0009/LPMArticle.asp?ID=762

;-)

Usando a barra de status do Excel

2010-01-27T22:24:00.002-03:00

Muitas vezes durante a execução de uma macro, queremos acompanhar o andamento do processo.

Para isso, basta usar o recurso da barra de status do próprio Excel.

Abaixo um exemplo bem simples com um looping preenchendo um conjunto de células.

Ao lado, o resultado.

;-)

Option Explicit
Dim i As Integer

Sub status_bar()
 For i = 1 To 5000
     DoEvents
     Cells(i, 1).Value = "Teste"
     Application.StatusBar = "Preenchendo célula " & i & " de 5.000"
 Next
 Application.StatusBar = False

End Sub

Office 2008 no Mac não tem VBA!

2009-12-27T23:09:00.005-03:00

Muito estranho...

Bem, não sou usuário dos Mac's, talvez alguém que o seja possa contribuir com sua opinião.

Segue o link (tomara que não sumam com o artigo).

Vou guardar uma cópia em pdf no meu e-mail, caso o link esteja quebrado.

;-)

http://www.macworld.com/article/54320/2006/12/microsoft.html

Verificar se uma planilha existe numa pasta fechada via VBA

2009-12-27T22:45:00.003-03:00

Às vezes me deparo com pedidos estranhos em grupos de discussões e fóruns da vida.

Acabei de ver agora, um colega que precisa ver se uma planilha existe numa pasta que está fechada.
Tempos atrás eu precisei usar a linguagem SQL no VBA para inserir dados numa outra planilha, cuja pasta poderia ou não estar aberta. Para contornar isso, usei o ADO.
Importante: não esquecer de marcar a referência "Microsoft Active Data Objects" (versão de 2.6 para cima).
Aproveitando para relembrar conceitos... uma "pasta" do Excel contém planilhas (é muito comum as pessoas chamarem pastas de planilhas e confundirem pasta do Excel com pasta do Windows que são coisas bem diferentes!).

;-)


Sub ver()
   Dim arquivo As String
   arquivo = "c:\teste.xls"
   Dim cnn As New ADODB.Connection
   cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;data source = " _
       & arquivo & ";Extended Properties=Excel 8.0;"
  
   On Error Resume Next
   cnn.Execute "SELECT top 1 * from [planilha1$]"
   If Err.Number = 0 Then
       MsgBox "Planilha existe"
   Else
       MsgBox "Planilha não existe"
   End If
  
   cnn.Close
   Set cnn = Nothing

End Sub

Corretor da nova ortografia no Word 2007

2009-12-25T10:35:00.002-03:00

Demorou mas saiu:

http://www.microsoft.com/downloads/details.aspx?FamilyId=DF0AF8D5-A8DA-4938-8A44-E8BE7C8EEAEF&displaylang=pt-br

Ou na minha pasta compartilhada do 4shared, link mais acima da página.

;-)

ListView no Access

2009-12-20T23:45:00.004-03:00

Esta vou deixar aqui para futuras consultas.
Utilizo-o porque num ListBox não tem como alinhar números à direita.
Estranhamente num dos códigos, às vezes a primeira coluna é a zero (0) e em outras é 1.
Bem, se alguém souber como resolver os dois problemas (alinhar números à direita no ListBox e a questão da primeira coluna no ListView), me manda um e-mail.



Sub carrega_listview2()
    With Me.Listview2
        .View = lvwReport
        .GridLines = True
        .FullRowSelect = True
        .ListItems.Clear
        .ColumnHeaders.Clear
    End With
    
    'Cabeçalho do ListView
    With Me.Listview2.ColumnHeaders
        .Add , , "N/Número", 1500, lvwcolumright
        .Add , , "Cartório", 1300, lvwColumnLeft
        .Add , , "Protocolo", 1300, lvwcolumright
        .Add , , "Vencimento", 1300, lvwColumnLeft
        .Add , , "Valor", 1000, lvwcolumright
    End With
    
    'Adicionar itens
    rst.MoveFirst
    Do Until rst.EOF
        Set lstItem = Me.Listview2.ListItems.Add()
        lstItem.Text = Format(rst!Nosso_Numero, "000000000000000")
        lstItem.SubItems(1) = Format(rst!numero_tabe_protesto, "00")
        lstItem.SubItems(2) = Format(rst!numero_protocolo, "0000000000")
        lstItem.SubItems(3) = rst!data_venc
        lstItem.SubItems(4) = Format(rst!vl_titulo / 100, "#0.00")
        
        rst.MoveNext
    Loop
    rst.Close
End Sub

Excel 2010

2009-11-25T20:54:00.001-03:00

Está chegando a hora...
Para quem quiser se aventurar, já está disponível a versão beta para download:
http://www.microsoft.com/office/2010/en/download-office-professional-plus/default.aspx

;-)

Input box do Excel

2009-10-18T16:34:00.002-03:00

Após um "longo e tenebroso inverno...", novamente as postagens de dicas de Excel.
Continuando no VBA, um InputBox muito mais prático do que o tradicional do VB/VBA.
Segue um exemplo e a imagem correspondente.


Option Explicit

Sub teste_box()
    Dim variavel As Range
    Set variavel = Application.InputBox(prompt:="Região a ser apagada:", _
        Title:="Box do Excel", Type:=8)
    variavel.ClearContents
End Sub

:-)

Descobrindo qual o nome da tabela vinculada no Access

2009-08-29T13:08:00.003-03:00

Esta dica devo ao meu colega Cleiton que descobriu em 5 minutos o que eu gastei umas 2 horas pesquisando na internet...
A situação:
Se você vincula uma tabela de outro mdb e altera o nome do vínculo, a princípio parece que não se sabe qual o nome original da tabela, visto que o Access mostra o novo nome e apenas uma seta indicando que trata-se de uma tabela vinculada.
Abrindo as propriedades da tabela na janela do banco de dados, não aparece nenhuma informação, porém se abrirmos a estrutura da tabela e a partir daí, as propriedades, enfim o nome original da tabela é exibido.
Só mostrando a imagem para entender!

:-)

E-mail pelo Excel - II

2009-05-10T08:00:00.002-03:00

Continuo achando que é mais fácil fazer o código no próprio Outlook, mas muitos usuários ainda querem enviar e-mails através de outros aplicativos.
Possível é, mas são tantos os problemas de automação que não vejo o porque de tanta insistência em fazer o código no Excel e/ou outros aplicativos, haja vista que, quem usa o Office, quase sempre está com o Outlook aberto.
É a velha história do InputBox com máscara de senha: basta criar a tela com caixa de texto e alterar a máscara para "*****". Para que inventar códigos mirabolantes para fazer o InputBox receber senha? Ele não foi projetado para isso!
Bem, num dos grupos de Excel que participo recebi esta interessante mensagem sobre como mandar e-mails pelo Excel.
O problema que gerou a discussão, é a mensagem de confirmação que o Outlook exibe quando outro aplicativo tenta enviar e-mails através ele: "confirma (s/n)?".
Não testei o código e nem vou testar, apenas vou deixar registrado aqui para quem quiser se aventurar.
Ah, lembrando também que existe um programa chamado "ClickYes" para quem ainda tem o problema da mensagem de confirmação do Outlook.

abs!

original em: http://www.rondebruin.nl/cdo.htm

Sending mail from Excel with CDO
Ron de Bruin (last update 31-Oct-2007)
Go back to the mail tips page

What is CDO doing

The example code is using CDOSYS (CDO for Windows 2000).
It does not depend on MAPI or CDO and hence is dialog free
and does not use your mail program to send email.

Briefly to explain, this code builds the message and drops it
in the pickup directory, and SMTP service running on the machine
picks it up and send it out to the internet.

Why using CDO code instead of Outlook automation or SendMail in VBA.

1: It doesn't matter what Mail program you are using (It only use the SMTP server).
2: It doesn't matter what Office version you are using (97…2007)
3: You can send a range/sheet in the body of the mail (some mail programs can’t do this)
4: You can send any file you like (Word, PDF, PowerPoint, TXT files,….)
5: No Security warnings anymore, really great if you are sending a lot of mail in a loop.

Read this!!!

This code will not work in Win 98 and ME.
You must be connected to the internet when you run a example.

It is possible that you get a Send error when you use one of the examples.
AFAIK : This will happen if you haven't setup an account in Outlook Express or Windows Mail.
In that case the system doesn't know the name of your SMTP server.
If this happens you can use the commented green lines in each example.
Don't forget to fill in the SMTP server name in each code sample where
it says "Fill in your SMTP server here"

When you also get the Authentication Required Error you can add this three lines.
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "username"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"

Don't remove the TextBody line in the code. If you do you can't open the attachment (bug in CDO).
If you don't want to have text in the body use this then .TextBody = ""

Note: It is always possible that your firewall block the code (Check your firewall settings)

Can you use CDO on your machine?

Let's try a basic example first.

The code below will send four text lines in the body of the mail to the person in this line
.To = "ron@debruin.nl"

Change ron@debruin.nl to your own mail address before you test the code.
If you read the information above you know that if you have a account in Outlook Express or
Windows Mail you can Run the code below after changing the mail address.
But if you not have a account in Outlook Express or Windows Mail you also need the commented
green lines in the code. Remove every ' before every green line and fill in the name of your SMTP server
where it says "Fill in your SMTP server here"

1) Open a new workbook
2) Alt F11 (to open the VBA editor)
3) Insert>Module
4) Paste the code in this module
5) Make your changes
6) Alt q to go back to Excel

When you use Alt F8 you can select the macro and press Run.
Now wait a moment and see if you receive the mail in your inbox.

Sub CDO_Mail_Small_Text()
Dim iMsg As Object
Dim iConf As Object
Dim strbody As String
' Dim Flds As Variant

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

' iConf.Load -1 ' CDO Source Defaults
' Set Flds = iConf.Fields
' With Flds
' .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
' .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
' = "Fill in your SMTP server here"
' .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
' .Update
' End With

strbody = "Hi there" & vbNewLine & vbNewLine & _
"This is line 1" & vbNewLine & _
"This is line 2" & vbNewLine & _
"This is line 3" & vbNewLine & _
"This is line 4"

With iMsg
Set .Configuration = iConf
.To = "ron@debruin.nl"
.CC = ""
.BCC = ""
.From = """Ron"" "
.Subject = "Important message"
.TextBody = strbody
.Send
End With

End Sub

Use the GMail SMTP server from Google.
http://gmail.google.com

You can find the code in the workbook with examples that you can download below.
There is more information about the code in the workbook.
Note: You must have a Gmail account to try this example.

Download workbook with more examples

You can download a example workbook with eighth examples.
Download Example workbook with all the code

Attachment examples:
Module file1 = Workbook
Module file2 = One worksheet or more
Module file3 = Every sheet with a mail address in cell A1

Body examples:
Module body1 = Selection/Range or whole worksheet
Module body2 = Personalized Mail
Module body3 = Every sheet with a mail address in cell A1
Module body4 = Small text and text from a txt file

Note: the body examples in the workbook are using the function RangetoHTML in
the "bodyfunction" module of the workbook.

Gmail example:
Module gmail = Use the smtp.gmail.com server from Gmail to send mail

Tips and links

CDO sheet template

Check out this sheet template if you want to send every sheet to a different person.
Or want to send one or more sheets to one or more recipient.
http://www.rondebruin.nl/mail/templates.htm

Set importance/priority and request read receipt

For importance/priority and read receipt you can add this in the With iMsg part of the macro before .Send

' Set importance or Priority to high
.Fields("urn:schemas:httpmail:importance") = 2
.Fields("urn:schemas:mailheader:X-Priority") = 1

' Request read receipt
.Fields("urn:schemas:mailheader:return-receipt-to") = "ron@debruin.nl"
.Fields("urn:schemas:mailheader:disposition-notification-to") = "ron@debruin.nl"

' Update fields
.Fields.Update

Changing the To line

If you want to mail to all E-mail addresses in a range then use this code
instead of .To = "ron@debruin.nl"

The example below will use the cells from sheets("Sheet1") in ThisWorkbook (workbook with the code)
It is possible that you must use ActiveWorkbook or something else in your code to use it.

Dim cell As Range
Dim strto As String
On Error Resume Next
For Each cell In ThisWorkbook.Sheets("Sheet1") _
.Range("A1:A10").Cells.SpecialCells(xlCellTypeConstants)
If cell.Value Like "?*@?*.?*" Then
strto = strto & cell.Value & ";"
End If
Next cell
On Error GoTo 0
If Len(strto) > 0 Then strto = Left(strto, Len(strto) - 1)

Change the To line to .To = strto

Or to more people
.To = "Jon@something.com;ron@something.com"

Or you can use a address in a cell like this
.To = Sheets("Sheet1").Range("C1").Value

Change the Body line

Plain text :

Note: see also the example in the workbook to send all text from a txt file (Module body4)

If you want to add more text to the body then you can use the code below.
Instead of .TextBody = "This is the body text" use .TextBody = strbody then.

Dim strbody As String
strbody = "Hi there" & vbNewLine & vbNewLine & _
"This is line 1" & vbNewLine & _
"This is line 2" & vbNewLine & _
"This is line 3" & vbNewLine & _
"This is line 4"

Or use this if you want to use cell values

Dim cell As Range
Dim strbody As String
For Each cell In Sheets("Sheet1").Range("C1:C20")
strbody = strbody & cell.Value & vbNewLine
Next

Or this one

Dim strbody As String
With Sheets("Sheet1")
strbody = "Hi there" & vbNewLine & vbNewLine & _
.Range("A1") & vbNewLine & _
.Range("A2") & vbNewLine & _
.Range("A3") & vbNewLine & _
.Range("A4")
End With

Links

.TextBody = "file://Yourcomputer/YourFolder/Week2.xls"

'If there are spaces use %20
.TextBody = "file://Yourcomputer/YourFolder/Week%202.xls"

'Example for a file on a website
.TextBody = "http://www.rondebruin.nl/files/EasyFilter.zip"

HTML text :

If you want to create emails that are formatted you can use HTMLBody (Office 2000 and up) instead of TextBody. You can find a lot of WebPages on the internet with more HTML tags examples.

.HTMLBody = "

Dear Ron de Bruin

" & _
"Please visit this website to download an update.
" & _
"Ron's Excel Page"

Tip: Or send a complete webpage, instead of HTMLBody or TextBody use

.CreateMHTMLBody "http://www.rondebruin.nl/copy1.htm"

Or file on your computer
.CreateMHTMLBody "file://C:/test.htm"

Copy the cells as values

If you want to paste as values the sheet must be unprotected!!!!!
Or Unprotect and Protect the sheet in the Sub also.

See this page for example code that you can use
http://www.rondebruin.nl/values.htm

Test if you are online

You can use code like this in your subroutine to avoid errors if you run the code
when you are not online (example below is for a dial up connection)

For checking other connections check out this great website.
http://vbnet.mvps.org/

Public Declare Function InternetGetConnectedState _
Lib "wininet.dll" (lpdwFlags As Long, _
ByVal dwReserved As Long) As Boolean

Function IsConnected() As Boolean
Dim Stat As Long
IsConnected = (InternetGetConnectedState(Stat, 0&) <> 0)
End Function

Sub Test()
' Randy Birch
If IsConnected = True Then
MsgBox "Copy your mail code here"
Else
MsgBox "You can't use this subroutine because you are not online"
End If
End Sub

Links to more information about CDO for windows 2000

MSDN
Search for "CDO for Windows 2000" on MSDN

Paul R. Sadowski
http://www.paulsadowski.com/WSH/cdo.htm

www.aspfaq.com
http://www.aspfaq.com/show.asp?id=2026

Capturar o nome do usuário via VBA

2009-04-16T22:30:00.002-03:00

Muito simples e útil, principalmente quando se precisa de algum tipo diferenciado de acesso conforme o usuário:

Dim usuario As String
usuario = VBA.Environ("username")
MsgBox usuario

;-)

Minha opinião sobre o Office 2007

2009-04-10T00:13:00.003-03:00

Depois de 3 meses trabalhando de segunda a sexta com a dupla "Windows Vista + Office 2007", cheguei as seguintes conclusões:
- É tempo suficiente para formar uma opinião sobre os produtos;
- O Windows Vista é um "comilão" de recursos do hardware sem nada dar em troca do que consome, ou seja, é preciso uma máquina de ponta para ter o Vista e tudo o que você vai ter em troca são apenas alguns recursos visuais "mais bonitinhos". Nada mais;
- O Office 2007 também tem um visual muito mais atraente que a versão anterior, mas para usuários comuns, leia-se "no máximo intermediários", oferece muito pouco pelo que consome;
- A mudança do tradicional menu + barra de ferramentas para a faixa de opções, foi uma mudança infeliz que só dificulta a vida do usuário. E não digam que eu não tentei: personalizei a faixa de opções ao máximo para me adaptar e mesmo assim, depois de 3 meses de uso direto, ainda preciso procurar determinados comandos/recursos;
- Já comentei em algum post no passado que, para a maior parte dos usuários, ainda hoje o Office 97 seria mais que suficiente para o dia a dia e continuo com a mesma opinião. Para que migrar da versão em uso, seja ela 2002 (XP), 2003 ou 2000, para a versão 2007 se você não precisa dos recursos que a nova versão lhe oferece? Por exemplo, é muito bom ter 1 milhão de linhas no Excel, mas quem usa tudo isso?
- Sinceramente, esperava mais do Access 2007 em termos de capacidade e confiabilidade. Meus bancos de dados atuais corrompem com uma frequencia maior do que os criados com o Access 2003 e continuo limitado a 2 Gb;

Resumindo:
A melhor combinação para TRABALHO ainda é o Windows XP + Office 2003.
Palavra de quem usa Vista + Office 2007 todos os dias e não de quem usou algumas vezes para formar a opinião.

Abs!

Criando uma pausa na execução do código

2009-03-07T12:36:00.001-03:00

Código muito simples, dispensa maiores explicações.
Já vi gente fazendo um "For - Next" sem nada dentro do looping (até funciona...) mas esta é uma solução mais "elegante"!


Public Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)

Public Sub Pausa(ByVal segundos As Single)
     Call Sleep(Int(segundos * 1000#))
End Sub

Fechando um processo no TaskManager

2009-03-07T12:27:00.003-03:00

A automação no Office nos permite controlar outros aplicativos, mas existe um pequeno "problema" já comentado aqui em um post anterior: mesmo finalizando o aplicativo controlado com "Application.quit" ou limpando a váriavel com "Set var_aplicativo = nothing", o processo continua ativo no gerenciador de tarefas do Windows (TaskManager), o que por vezes pode resultar em erro quando se executa o código duas vezes.
Não sei se isso é um bug ou uma caracterítica do recurso, mas vou deixar aqui um código que elimina o problema.
Obs.: o código não foi escrito por mim, consegui-o nas inúmeras pesquisas pela internet e estou apenas repassando aqui. Já utilizei-o por várias vezes, sempre com sucesso.



'Para usar - exemplo:
'Call Closeprocess("Excel.exe")

================================

Option Explicit

Public Const TH32CS_SNAPPROCESS As Long = 2&
Public Const MAX_PATH As Long = 260

Public Type PROCESSENTRY32
   dwSize As Long
   cntUsage As Long
   th32ProcessID As Long
   th32DefaultHeapID As Long
   th32ModuleID As Long
   cntThreads As Long
   th32ParentProcessID As Long
   pcPriClassBase As Long
   dwFlags As Long
   szExeFile As String * MAX_PATH
End Type

Public Const PROCESS_ALL_ACCESS As Long = &H1F0FFF

Public Declare Function CreateToolhelp32Snapshot Lib "kernel32" _
  (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
Public Declare Function ProcessFirst Lib "kernel32" _
   Alias "Process32First" _
  (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Public Declare Function ProcessNext Lib "kernel32" _
   Alias "Process32Next" _
  (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Public Declare Function OpenProcess Lib "kernel32" _
  (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, _
   ByVal dwProcessId As Long) As Long
Public Declare Function TerminateProcess Lib "kernel32" _
  (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Public Declare Sub CloseHandle Lib "kernel32" _
  (ByVal hPass As Long)

Public Function CloseProcess(EXEName As String) As Boolean

  Dim hSnapShot  As Long
  Dim uProcess   As PROCESSENTRY32
  Dim hProcess   As Long

  CloseProcess = False
  hSnapShot = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0&)
  If hSnapShot = -1 Then Exit Function

  uProcess.dwSize = Len(uProcess)
  If ProcessFirst(hSnapShot, uProcess) = 1 Then
     Do
        If LCase$(Left$(uProcess.szExeFile, InStr(1, uProcess.szExeFile, vbNullChar) - 1)) _
           = LCase$(EXEName) Then
           hProcess = OpenProcess(PROCESS_ALL_ACCESS, False, uProcess.th32ProcessID)
           CloseProcess = TerminateProcess(hProcess, ByVal 0&) > 0
           Exit Do
        End If
     Loop While ProcessNext(hSnapShot, uProcess)
  End If

  Call CloseHandle(hSnapShot)

End Function

A partir de uma planilha, ler dados de outra via ADO

2009-03-07T12:16:00.004-03:00

Arquivos XLS não são multiusuários por natureza.
O Excel até permite o compartilhamento, via Ferramentas > Compartilhar Pasta de Trabalho, mas são tantos detalhes que precisam ser observados que o usuário precisa se adaptar ao recurso, sendo que na verdade o recurso deveria facilitar a vida dele.
Recentemente precisei fazer um sistema onde ocorria a leitura de dados de vários XLS's para gravar num outro XLS e este por sua vez, poderia estar aberto no momento da gravação.
Depois de pesquisar, escrever muido código e testar bastante, cheguei a conclusão de que a melhor forma era utilizar o Active Data Objects.
Segue um exemplo de código para leitura de dados de um arquivo XLS a partir de outro.
O melhor de tudo é que podemos utilizar a sintaxe SQL nos comandos, com algumas poucas adaptações é claro, que fará com que os desenvolvedores de banco de dados se sintam bem à vontade.


Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim ssql As String
Sub teste()
    'cria uma conexão ADO
    Set cnn = New ADODB.Connection
    Set rst = New ADODB.Recordset

    'Na string de conexão, o caracter "aspas duplas" é substituído pelo
    'correspondente em ASCII -> Chr(34)
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Planilha.xls" & _
    ";Extended Properties=" & Chr(34) & "Excel 8.0;HDR=Yes" & Chr(34)

    'abre o recordset pelo nome da planilha
    'Obs.:
    '- No comando SELECT o nome da planilha vai entre chaves e 
    'com um "$" no final do nome
    
    Set rst = cnn.Execute("Select * from [plan1$]")
    
    MsgBox rst(0)
    
    rst.Close
    cnn.Close
    
    Set rst = Nothing
    Set cnn = Nothing

End Sub

Importação de arquivos CSV via ADO

2009-03-07T11:54:00.003-03:00

Depois que aprendi a trabalhar com o ADO(Active Data Objects), vi que trata-se de um recurso muito flexível e principalmente, fácil de utilizar.
Postarei em breve vários exemplos de utilização do ADO no VBA.
Esta é a dica para importar arquivos texto com os campos separados por vírgula (CSV - Comma Separated Values). Basta copiar o código e ajustar o caminho/nome do arquivo csv:


Option Explicit

Private Sub importa()

    Dim cnn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    Dim adcomm As New ADODB.Command
    Dim caminho As String
    Dim linha As Integer
    Dim coluna As Integer
   
    caminho = "D:\paulo\Projetos VB\ADO Arquivo Texto\"
   
    'Conexão para arquivo texto sem cabeçalho:
    'connCSV.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
    '& caminho & ";Extended Properties='text;HDR=NO;FMT=Delimited'"
   
    'Conexão para arquivo texto com cabeçalho e colunas
    cnn.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};Dbq=" _
    & caminho & ";Extensions=asc,csv,tab,txt;HDR=NO;Persist Security Info=False"
       
    rst.Open "Select * From TesteDeDados.txt", cnn, adOpenStatic, adLockReadOnly, adCmdText
   
    linha = 1
    coluna = 1
    Do While Not rst.EOF
        Cells(linha, coluna).Value = rst(0)
        Cells(linha, coluna + 1).Value = rst(1)
        rst.MoveNext
        linha = linha + 1
    Loop
   
    cnn.Close
    Set cnn = Nothing


End Sub

Integração entre os aplicativos do Office

2009-02-28T19:04:00.003-03:00

Semana passada, precisei desenvolver um programa para enviar e-mails para mais ou menos 350 destinatários, anexando a cada um deles um arquivo XLS.
Até aí, nada demais, muita gente já fez isso e achei que não seria difícil para mim também.
Depois de algumas horas escrevendo o código no Excel, deparei com alguns problemas já conhecidos da automação, como por exemplo, o fato de não poder ter outra instância do Excel aberta durante a execução do código.
Quem já fez, sabe que "set objeto_Excel = nothing" não "mata" o processo no taskmanager...
Enviar e-mails pelo Access geraria outros problemas (imagino eu...) que logo descartei essa opção.
Enfim, resolvi combinar os aplicativos e partir para a solução mais simples:
- Geração das planilhas que iriam anexas nos e-mails: usei o Access para exportar os dados no formato XLS;
- Usei o VBA no Outlook para obter os e-mails dos destinatários numa tabela do Access via ADO.
Moleza...
350 e-mails enviados em 5 minutos (o nosso servidor Exchange é muito rápido e colaborou).

Consultem o help do VBA no Outlook para ver como é simples.
Qualquer dúvida, entrem em contato.

abs!

;-)

Montagem de cabo cross-over

2009-01-26T19:41:00.002-03:00

Problemas de inicialização - Windows XP

2008-10-26T09:22:00.003-03:00

Esta dica é do grande amigo Sames Davis e vou deixar registrado para não ficar procurando toda hora no Google...

A inicialização do Windows necessita da MBR que é a sigla para Master Boot Record, ou Registro Mestre de Boot.
O MBR fica no setor 0 do HD e armazena as descrições das partições e informa o BIOS durante a inicialização ( Boot ).

Sem MBR, nada de partições do disco rígido e se ela estiver corrompida, o Windows não irá funcionar.

Algumas causas em um caso de corrupção da MBR:

* Vírus;
* Desligamento direto no estabilizador;
* Pico de energia;
* Falta de energia;
* HD danificado

Segue um pequeno passo a passo de como tentar corrigir:
1. Dê boot com o cd do Windows;
2. Tecle R ( reparação ) para entrar no console de recuperação;
3. Se for solicitado em qual sistema deseja se conectar, escolha a opção do Windows;
4. Irá aparecer uma tela preta ( DOS ) , digite os seguintes comandos para corrigir
5. Digite FIXBOOT e confirme com Y
6. Digite FIXMBR e confirme com Y
7. Digite EXIT para reiniciar o micro
8. Se o problema ainda continuar, entre novamente no console de recuperação
9. Desta vez, além do FIXBOOT e FIXMBR, digite CHKDSK C: /P /R
10. Espere +/- 20 minutos para que seja feita a correção ( esse tempo é para HD de 80GB )
11. Caso o problema ainda persista, tente salvar os dados usando um cd do Linux ou Hiren's CD
12. Caso não seja possível acessar o HD, a solução será reinstalar o Windows.
Sames Davis

Dica de livro

2008-10-10T17:15:00.002-03:00

Tempos atrás, eu emprestei este livro de um amigo para dar uma olhada e achei que era muito complexo para um principiante como eu.
Hoje com um pouco mais de experiência, vejo o livro com outros olhos e recomendo para quem quer se aprofundar no VBA do Excel e também para tê-lo como fonte de consulta.

Listar arquivos de uma pasta

2008-09-24T22:31:00.003-03:00

Já era tempo de começar a postar dicas de VBA...
"Abrindo" a nova fase, segue um código que eu uso para listar e catalogar meus mp3's.
Código bem simples e com alguns comentários para facilitar o entendimento:


Sub lista_arquivos()
    Dim pasta As String
    Dim linha As Integer
    Dim arquivo As String
    linha = 1
        
    'Pega o caminho completo da pasta
    pasta = InputBox("Digite o caminho da pasta")

    'Cabeçalho
    Cells.ClearContents
    Cells(linha, 1) = "Nome do Arquivo"
    Cells(linha, 2) = "Tamanho"
    Cells(linha, 3) = "Data/Hora"
    Range("A1:C1").Font.Bold = True
    linha = linha + 1

    'Lista o primeiro arquivo da pasta
    'arquivo = Dir(pasta, 7)
    arquivo = Dir(pasta, 7)
    Cells(linha, 1) = arquivo
    Cells(linha, 2) = FileLen(pasta & arquivo)
    Cells(linha, 3) = FileDateTime(pasta & arquivo)

    'Lista os arquivos restantes
    Do While arquivo <> ""
        arquivo = Dir
        If arquivo <> "" Then
            linha = linha + 1
            Cells(linha, 1) = arquivo
            Cells(linha, 2) = FileLen(pasta & arquivo)
            Cells(linha, 3) = FileDateTime(pasta & arquivo)
        End If
    Loop
End Sub

Substituir o asterisco numa planilha

2008-07-30T01:20:00.002-03:00

Esta pergunta foi feita num dos grupos de discussão que participo e vou deixar registrado aqui.

Ao substituir um determinado caracter, basta clicar em Editar > Substituir, preencher os campos na caixa de diálogo que se abre e em seguida executar.

O "problema" é quando se precisa substituir um caracter "curinga" como o asterisco. Nesses casos, o Excel entende que é para substituir tudo (*) e o resultado não sai como desejado.

Para essas situações particulares, basta colocar um til (~) antes do asterisco.

Veja na figura.

:-)

VBA - Como encontrar a última linha preenchida nuna coluna?

2008-06-16T21:59:00.003-03:00

Esta é mais uma daquelas que tem mil e uma maneiras de fazer, vou mostrar apenas uma delas.
Quem programa em VBA, principalmente nos casos de inserção de dados, sempre precisa saber onde está o último dado da coluna para gravar o novo valor na célula logo abaixo.
Como descobrir qual é a última célula preenchida de uma coluna?
Veja a função abaixo:

Function ultima_linha()
Dim linha As Long
linha = 2
Do While linha <> 0
linha = linha + 1
Loop
ultima_linha = linha
MsgBox ultima_linha
End Function

"Trocando em miúdos"...
Enquanto o tamanho do texto da célula for maior que zero (o que significa que a célula está preenchida com algum valor), incremente 1 no contador (que se chama "linha") e execute o comparativo na próxima linha.
Como inicia em 2, no momento em que o tamanho do texto da célula for igual a zero, o procedimento é encerrado e a linha em branco é a que o contador indicar.

:-)

Comparando planilhas

2008-05-07T00:43:00.002-03:00

É comum comparar planilhas cujos cabeçalhos de linha ou coluna são iguais, mas os dados referem-se a períodos diferentes.

Uma forma rápida de se fazer isso, é abrir as duas planilhas e usar CTRL + TAB se estiverem em pastas diferentes ou CTRL + PgDown/Up se estiverem na mesma pasta.

Para facilitar ainda mais, o Excel oferece o recurso de comparar lado a lado no menu "Janela".

A opção "rolagem sincronizada" torna a tarefa ainda mais fácil e rápida.

Por onde já passei e trabalhei...

2008-04-12T22:38:00.008-03:00

Números ordinais - cultura inútil ou não???

2008-04-12T22:12:00.003-03:00

Estava pensando, quando chegasse à publicação da 200ª dica, como escrever ou ler "200ª"?
Segue abaixo:

1º = primeiro
2º = segundo
3º = terceiro
4º = quarto
5º = quinto
6º = sexto
7º = sétimo
8º = oitavo
9º = nono
10º = décimo
20º = vigésimo
30º = trigésimo
40º = quadragésimo
50º = qüinquagésimo
60º = sexagésimo
70º = septuagésimo
80º = octogésimo
90º = nonagésimo
100º = centésimo
200º = ducentésimo
300º = trecentésimo
400º = quadringentésimo
500º = qüingentésimo
600º = seiscentésimo ou sexcentésimo
700º = septingentésimo
800º = octingentésimo
900º = nongentésimo ou noningentésimo
1000º = milésimo

de 2000 em diante, lê-se o dois milésimo ou o segundo milésimo e assim por diante.

Assim, seu eu estiver vivo ainda na 3367ª dica, poderei dizer tranquilamente:

"Terceiro milésimo, trecentésima sexagésima sétima dica!"...

Inútil?
Que tal criar uma função para retornar o ordianal a partir do cardinal?
Mais inútil ainda?
Alguma utilidade deve ter!

;-)

Soma rápida

2008-04-12T21:34:00.002-03:00

Não sei já se postei esta dica, mas se não... ai vai:

Para obter rapidamente a soma de um intervalo, basta selecioná-lo e conferir o valor na barra de status.

Outras opções estão disponíveis, clique com o botão direito sobre mesma barra de status para conferir o que está disponível.

O bom é que, mesmo aplicando o Auto Filtro, os valores são calculados somente sobre os dados que estão visíveis.

;-)

Definindo o caminho (VB/VBA)

2008-01-20T20:33:00.001-03:00

Para evitar a alteração do caminho de um arquivo dentro de um código toda vez que o aplicativo muda de pasta, basta usar um recurso muito útil do VB ou do VBA: o Path.
No Excel: ThisWorkbook.Path
No Access: CurrentProject.Path
No Word: ThisDocument.Path
No VB6: App.Path

Assim, pode-se mudar o aplicativo de pasta sem ter de alterar o código em função dessa mudança.

;-)

Copiar rapidamente planilhas dentro da mesma pasta

2008-01-06T12:20:00.000-03:00

Antes de mais nada, vamos esclarecer uma coisa: uma PASTA contém várias PLANILHAS. A maioria das pessoas utiliza o termo PLANILHA para se referenciar à uma PASTA. Isto era verdadeiro na época das primeiras planilhas que trabalhavam uma planilha por arquivo. Como atualmente todos os programas já manipulam tranqüilamente várias planilhas no mesmo arquivo, é bom ter o conceito bem fixado na mente para não fazer confusão na hora de trabalhar.Bem, vamos então à dica.

Para copiar uma planilha dentro da mesma pasta, o procedimento usual é clicar com o botão direito em cima da planilha, selecionar "Mover ou Copiar", selecionar o local onde ela vai ficar, marcar a opção "Criar uma cópia" e depois clicar em OK.

A operação é simples quando se precisa copiar uma ou duas planilhas, mas à medida em que a quantidade de planilhas vai aumentando, a demora e o aumento dos cliques no mouse aumentam proprocionalmente.

Aí é que entra a tecla CTRL (Control) para facilitar a vida do usuário.

Basta mantê-la pressionada enquanto se arrasta a planilha de lugar como se fosse movê-la e uma cópia será criada. Depois é só renomear. Muito útil quando se controla coisas do tipo "uma planilha para cada dia do mês" ou "uma planilha para cada mês do ano".

Volto a repetir, quanto mais agilidade o usuário tiver em operações simples, mais tempo ele terá para focar a análise dos dados, o que na minha opinião é muito mais importante.

;-)

Cursos multimídia de Excel

2007-12-27T20:30:00.000-03:00

Para quem gosta de aprender em casa, com tranquilidade e nas horas vagas, algumas sugestões:

http://www.totaltraining.com/prod/microsoft/excel2007_ess.asp

http://movielibrary.lynda.com/html/modListing.asp?pid=144

http://www.001shop.com.br/lojas/editoraneo.com.br/produtos.asp?produto=69&categoria=10&inf=10&a1=Office&a2=%3A%2E+Office+2000

http://www.anasoft.com.br/product_info.php?cPath=25&products_id=44

Os dois primeiros em inglês e os dois seguintes em português, todos boas opções para o Excel e também para outros aplicativos.

;-)

Senha do VBA no Excel

2007-11-08T22:12:00.000-03:00

Apesar de duvidar da dica postada outro dia no site da ForumAccess, me dei ao trabalho de baixar e instalar o Open Office (http://www.openoffice.org) para conferir:
O OpenOffice abre as planilhas do Excel e mostra todo o código como comentário, independente dele estar protegido por senha ou não.
Façam o teste e confiram também!
;-)

Editor de texto versátil para programação

2007-11-04T21:34:00.000-03:00

Indicação de um amigo e que está sendo útil na programação.O Notepad++ tem muitas facilidades para quem programa, pois geralmente o editor de código não é lá grande coisa em termos de recursos.

Sinto muita falta de zoom no editor de código do VB6 e VBA por exemplo. Numeração de linha então, é algo muito útil que já deveria ter aparecido desde a primeira versão.

O legal deste editor é que basta mudar a linguagem (SQL, VB, HTML, etc) que ele muda as cores das palavras-chave, facilitando a visualização e entendimento.

Para ter uma idéia de como funciona, só usando mesmo. Basta baixá-lo em http://notepad-plus.sourceforge.net/br/site.htm.

O melhor de tudo: é FREE!

Excel 97 Developer's Kit'

2007-07-24T12:55:00.000-03:00

Eu nunca tinha visto este livro, mas a partir de uma dúvida de um colega que surgiu no grupo de discussões do ForumAccess, resolvi pesquisar na internet.
Pelo conteúdo, nota-se que não é coisa para principiantes nem para intermediários.
É assunto para experts mesmo.
O livro trata entre outras coisas, da criação de XLL que seriam as DLL's do Windows escritas em C ou C++ para o Excel.
Não vi para as versões posteriores, mas acredito que esse tipo de desenvolvimento já esteja integrada com o Visual Studio.
É um assunto muito específico, desenvolvimento profissional mesmo, visto que as DLL ou XLL têm uma segurança muito maior do que os suplementos (XLA) no que se refere à proteção do código.

;-)