VBA é usado no Excel para criar macros que automatizam tarefas que normalmente seriam feitas manualmente . Realizar essas tarefas manualmente pode ser demorado e complicado. Muitas vezes os usuários precisam copiar e colar dados para o Excel a partir de arquivos de texto. Basta copiar e colar os dados de um arquivo de texto para o Excel não vai resultar em dados corretamente formatados. O método OpenText é usado para carregar um arquivo de texto e analisá-lo . Uma planilha é criada com os dados analisados. Este método elimina a necessidade de o usuário importar manualmente o arquivo de texto e ir até o " Assistente de Importação de Texto" . Instruções
1

Abra um novo livro. Pressione Alt e F11 no seu teclado para abrir o editor de VBA. Clique no menu Arquivo e selecione "Novo". Dê um duplo clique em folha ( Sheet1 ) em objetos do Microsoft Excel no painel janela Project- VBAProject .
2 Tipo

Sub, seguida pelo nome da macro na primeira linha , como Sub Open () . Você pode dar a macro qualquer nome que você gostaria
3

Adicione o método OpenText , especificando as seguintes informações: .

1. Diretório do arquivo está localizado in.2 . Número da linha que pretende começar a importar os dados dentro A origem do arquivo é 437 : OEM Estados Unidos , por padrão, se você estiver nos Estados Unidos.3 . Escolha se você quer analisar o arquivo em um delimitado contra largura fixa. Com delimitado , você deve especificar o que o delimitador é para analisar o arquivo , como guia , ponto e vírgula , vírgula , espaço ou um delimitador personalizado. Defina o delimitador você gostaria de usar para TRUE, eo resto dos delimitadores para FALSE.

Por exemplo, se quisermos analisar um arquivo de texto localizado no desktop do John Smith , separadas por abas, usaríamos o seguinte código:

Workbooks.OpenText Matrícula: = _ "C: \\ Documents and Settings \\ Jsmith \\ Desktop \\ info.txt " , Origin : = 437, StartRow _: = 1, DataType : = xlDelimited , TextQualifier : = xlDoubleQuote , _ConsecutiveDelimiter : = False , Tab: = True , Ponto e Vírgula : = False , Comma : = False _ , Space: = False , Other : = False , FieldInfo : = array ( 1 , 1), _TrailingMinusNumbers : = True
4

Acabar com o macro , digitando "End Sub" . Salve a macro clicando no botão Salvar na barra de ferramentas . Feche a janela do Visual Basic.
5

Execute a macro clicando na guia Exibir na barra de ferramentas . Clique em Macros e selecione a macro. Clique no botão "Run" .