macros do Microsoft Excel podem ajudar a automatizar praticamente qualquer tipo de tarefa, aumentando a sua produtividade e melhorar a sua eficiência. Escrito em VBA, macros pode criar, manipular e remover dados dentro de qualquer planilha. Além disso, você pode usar macros para pegar informações de um banco de dados externo ou arquivo . Para importar dados de um arquivo de texto manualmente, você teria que abrir o arquivo em um processador de texto , copie o seu conteúdo e cole- o no Excel. Se você está lidando com muitos arquivos de texto , este método pode parecer assustador e tedioso. A função VBA simples pode ajudá-lo a automatizar. Instruções
1
Inicie o Microsoft Excel. Pressione "Ctrl + N" para criar uma nova pasta de trabalho. Para usar uma das suas pastas de trabalho em vez disso, pressione " Ctrl + O ", selecione o arquivo e , em seguida, clique em " Abrir".
2
Pressione " Alt + F8" para abrir a caixa de diálogo Macros. Digite " GetFromTextFile " na caixa Nome da macro e , em seguida, clique em " Criar".
3
Digite o seguinte código no editor VBA. Substitua "C: \\ YOURTEXTFILE.txt ." Com a localização exata do arquivo de texto que você deseja importar
Sub GetFromTextFile ()
Dim sFile , WholeLine As String
Dim startCell Como Faixa
Dim c As Integer
setembro = Chr (13 )
Application.ScreenUpdating = False
sFile = " C: \\ YOURTEXTFILE.txt "
Abrir sFile para acesso de entrada Leia As # 1
While Not EOF (1)
Linha de Entrada # 1, WholeLine
Se Direita ( WholeLine , 1) < > setembro Então
WholeLine = WholeLine & setembro
End If
ActiveCell.NumberFormat = " @ "
ActiveCell.Value = WholeLine
ActiveCell.Offset (1 , 0). Selecione
Wend
close # 1
End Sub
< br
5
Pressione " Shift + F11 "> 4
Pressione " Alt + Q " para fechar o editor de VBA e retornar à sua pasta de trabalho. para criar uma folha em branco.
6
Pressione " Alt + F8" para abrir a caixa de diálogo Macros novamente. Selecione " Obter FromTextFile " e depois clique em " Executar". Isso copia o conteúdo de seu arquivo de texto para a folha em branco .
