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 VBASub 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!
