Exemplo Prático 01 - Abrindo arquivo CSV pelo Excel VBA

Imagem gerada por IA

🎉 Hora da prática com IA! 🚀

A partir de hoje, nossa série entra na fase mais empolgante: os exemplos práticos de Inteligência Artificial aplicados ao dia a dia! 💡🤖

🛠️ Neste primeiro exemplo, pedi à IA que criasse um código VBA para Excel, capaz de abrir um arquivo .csv com codificação UTF-8 e salvá-lo automaticamente como um arquivo .xlsx, formatado corretamente e sem aspas desnecessárias.

🔍 E sabe o que é melhor? Tudo isso feito com apenas um comando simples, sem precisar escrever uma linha de código!

📌 Ao longo dos próximos posts, também trarei exemplos em Python, mostrando como a IA pode ser sua parceira na criação de automações, análises de dados e muito mais.

💬 Fique de olho e aproveite! Essa fase está cheia de demonstrações reais, que você pode adaptar e aplicar no seu trabalho ou nos seus projetos pessoais.

📎 Quer ver o primeiro exemplo? Já está no ar!

** Prompt de "Atuação" **
Nos próximos "Contexto" e muito mais ....

Código VBA

Sub ImportarCSV_SalvarComoXLSX_UTF8()

    Dim ws As Worksheet

    Dim wbNovo As Workbook

    Dim LinhaTexto As String

    Dim Campos() As String

    Dim i As Long, j As Long

    Dim CaminhoCSV As String

    Dim LinhaAtual As Long

    Dim ArquivoNum As Integer

    

    ' Caminho do arquivo CSV (pode alterar para uso dinâmico)

    CaminhoCSV = Application.GetOpenFilename("Arquivos CSV (*.csv), *.csv", , "Selecione o arquivo CSV")

    If CaminhoCSV = "Falso" Then Exit Sub

    

    ' Criar nova planilha

    Set wbNovo = Workbooks.Add

    Set ws = wbNovo.Sheets(1)

    

    ' Abrir o arquivo CSV em modo leitura

    ArquivoNum = FreeFile

    Open CaminhoCSV For Input As #ArquivoNum

    

    LinhaAtual = 1

    

    ' Ler linha por linha do arquivo

    Do Until EOF(ArquivoNum)

        Line Input #ArquivoNum, LinhaTexto

        

        ' Remove aspas duplas

        LinhaTexto = Replace(LinhaTexto, """", "")

        

        ' Separa os campos por ponto e vírgula

        Campos = Split(LinhaTexto, ";")

        

        ' Preencher a planilha Excel

        For j = LBound(Campos) To UBound(Campos)

            ws.Cells(LinhaAtual, j + 1).Value = Campos(j)

        Next j

        

        LinhaAtual = LinhaAtual + 1

    Loop

    

    Close #ArquivoNum

    

    ' Salvar o novo arquivo como .xlsx com codificação UTF-8 (padrão do Excel moderno)

    Dim NovoCaminho As String

    NovoCaminho = Application.GetSaveAsFilename(FileFilter:="Arquivo Excel (*.xlsx), *.xlsx", Title:="Salvar Como")

    

    If NovoCaminho <> "Falso" Then

        Application.DisplayAlerts = False

        wbNovo.SaveAs Filename:=NovoCaminho, FileFormat:=xlOpenXMLWorkbook

        Application.DisplayAlerts = True

        MsgBox "Arquivo salvo com sucesso em: " & NovoCaminho, vbInformation

    Else

        MsgBox "Operação cancelada.", vbExclamation

    End If

End Sub

---

✨ Curta, comente e compartilhe com quem também quer aprender na prática com IA!