Excel VBA - Conexões: Aberta a temporada - VBA to link CSV File, TXT File

| Blog Office VBA | Blog Excel | Blog Access |

Pois é, em inúmeras ocasiões, quais bravos desenvolvedores, precisaremos conectar os mais diversos tipos de dados externos às nossas aplicações.

Isso pode ser feito: MS Access, Outros SGBDS do mercado, Ligações ODBC, Planilhas eletrônicas, Dados disponíveis em sites. E, neste caso, conectando-se a dados .CSV

Bem, tanto no caso do CSV, quanto do Texto, o modo é praticamente igual. Excetuando-se o fato de que os dados dentro do CSV estejam delimitados por ponto-e-vírgula.

Ahh, não seria nada apropriado continuar escrevendo este artigo sem explicar o que significa a extensão CSV, pois então, segue:

CSV - Comma-separated values

É um formato de arquivo que armazena dados tabelados, cujo grande uso vem da época dos mainframes. Por serem bastante simples, arquivos .csv são comuns em todas as plataformas de computador.

O CSV é uma implementação particular de arquivos de texto separados por um delimitador, que usa a vírgula e a quebra de linha para separar os valores. O formato também usa as aspas em campos no qual são usados os caracteres reservados (vírgula e quebra de linha). Essa robustez no formato torna o CSV mais amplo que outros formatos digitais do mesmo segmento.

Embora não exista uma especificação formal do formato CSV, o RFC 4180descreve um formato comum e estabelece text/csv como um tipo MIMEregistrado na IANA. Formalmente, o CSV é um formato de dados delimitado que possui campos (colunas) separados por caracteres de vírgula e registros (linhas) separados por caracteres de quebra de linha. Campos que contêm caracteres especiais (vírgula, quebra de linha ou aspas) devem ser envolvidos em aspas. Entretanto, se uma linha contiver uma única entrada que seja uma cadeia vazia, ela também pode ser envolvida por aspas. Se um campo contiver um caractere de aspas, ele é discernido posicionando outro caractere igual logo em seguida. O formato CSV não requisita uma codificação de caracteres, uma ordenação de bytes ou um formato de terminador de linha.

Bem, vamos ao que interessa. Como podemos conectar, através do VBA, um arquivo texto ou CSV?

Criei duas funções que fazem este papel para nós, livrando-nos de parte da dor de cabeça:

Nesta função abaixo não só conectamos um arquivo externo, mas fazemos ainda mais do que isso por exportá-lo para outro banco de dados. Ou seja, numa aplicação desenvolvida com o MS Access, geralmente um deles contém as interface (Formulários, Relatórios) e maioria das queries. Deixamos as tabelas e respectivas conexões em outro banco a parte.

Neste banco a parte efetuamos backups mais intensamente. Este banco a parte também fica disponível para outras camadas de dados, como por exemplo, para a criação da base indexada: KPI, Dashboard, Reports, e Scorecards.

Function ConecAction

    ' Author:                            Date:                       Contact:                             URL:

    ' André Bernardes             12/04/2011 11:39    bernardess@gmail.com     http://al-bernardes.sites.uol.com.br/

    ' Conecta arquivos texto disponíveis no Path.

    Dim nPath As String

    Dim nPath2 As String

    Dim nArchive As String

    Dim nFile As String

    Dim dbSource As String

    Dim dbTarget As String

    ' O nome do arquivo e o caminho (Path) vem de um formulário.

    Let nPath = Left(CurrentDb().Name, InStr(1, CurrentDb().Name, "Bernardess") - 2) & [Form_frm_Avisos].CxPath2.Value

    Let nPath2 = Left(CurrentDb().Name, InStr(1, CurrentDb().Name, "

Bernardess   ") - 1)  

    Let nArchive = [Form_frm_Avisos].CxFile2

    Let nFile = nPath & nArchive

    Let dbSource = Left(nArchive, Len(nArchive) - 4)    '"Cnn_" & nArchive

    Let dbTarget = nPath2 & "OtherBernardesBase.accdb"

    If IsNull(nPath) Or IsNull(nArchive) Then

        Beep

        MsgBox "Providencie o Path onde está o arquivo, bem como o nome do mesmo!", vbExclamation, ".: Bernardes Message"

    Else

        Call ConectTXTFile(1, "<Nome da especificação de importação>", dbSource, nPath & nArchive)  ' Conecta arquivo texto.

        'Call ExportTextFileConected (dbTarget, dbSource)             ' Exporta arquivo texto para Base de Dados.

    End If

    ' Atualiza o Form.

    [Form_frm_Avisos].listConnectedFiles.Requery

End 

Function ConectTXTFile

    ' Author:                             Date:                       Contact:                                URL:

    ' André Bernardes             11/04/2010 15:49    bernardess@gmail.com     http://al-bernardes.sites.uol.com.br/

    ' Conecta todos os arquivos textos..

    ' Listening: .

    ' Checa a existência da tabela neste banco e a apaga.

    If ObjectExists("Table", TableName) Then

        DoCmd.DeleteObject acTable, TableName     ' Se a tabela existir apaga-a.

    End If

    If nType = 0 Then

        DoCmd.TransferText acLinkFixed, nLayout, TableName, nFile, False

    ElseIf nType = 1 Then

        DoCmd.TransferText acLinkDelim, nLayout, TableName, nFile, False

    End If

End Function

As demais funções que percebe no código podem ser obtidas, caso deseje, por enviar-me um e-mail solicitando-as.

Boa diversão....Ehhh, em ocasião posterior abordaremos como conectar as demais bases de dados citadas.

Fontes: Wiki, GMAIL - Criando arquivo CSV

Tags: Excel,Connection, conect, CSV, TXT, RFC 4180, IANA, MIME, TransferText, acLinkFixed