Mais material bom de VBA

No site da Microsoft.
Tomara que não saia do ar ou mude de lugar.

http://msdn.microsoft.com/en-us/library/bb726436(v=office.12).aspx

Comentário em células do Excel

Uma maneira interessante de orientar o usuário quanto ao preenchimento de determinadas colunas é colocar somente a mensagem na validação de dados.
Para isso, selecione a(s) célula(s), clique em Dados > Validação de Dados > Validação de dados > Mensagem de entrada e digite o alerta.

;-)

Importação de arquivo CSV no VBA

Outro dia me deparei com um problema muito estranho:

Utilizando o trivial "Open/Line Input/Close" para ler um arquivo CSV, ao fazer a leitura da primeira linha era carregado o arquivo inteiro (!) na variável string.

Provavelmente o arquivo não tinha o caracter de quebra de linha no final, mas o comportamento do VBA era muito estranho.

Pesquisando na net não vi nada sobre o assunto.

Ao experimentar com FileSystemObjects o mesmo se comportou da maneira como eu precisava, ou seja, a leitura seguiu de linha em linha e pude fazer a importação normalmente.

Ficam abaixo as 2 tentativas para consulta, sendo que o FileSystemObjects atendeu perfeitamente à necessidade da ocasião.

                              

;-)

Dim arquivo         As Variant

Dim fs              As New FileSystemObject  

Dim linha           As String

  

Set arquivo = fs.OpenTextFile(CurrentProject.Path & "\*.CSV", ForReading)   

linha = arquivo.ReadLine

Debug.Print linha

arquivo.Close

=====

    Dim arquivo     As String

    Dim linha       As String

   

    arquivo = Dir("C:\*.CSV")

    Open "C:\" & arquivo For Input As #1

    Line Input #1, linha

    Debug.Print linha

   

    Close #1