Ir para o conteúdo
paulosemblano

EOF para ler arquivo Excel para outro arquivo Excel

Mensagens Recomendadas

paulosemblano

Bom dia!
Esta macro funciona para arquivo de texto.
Estou precisando de uma macro que faça o mesmo entre dois arquivos do Excel sem necessidade de abrir o arquivo de origem.

Sub TesteVáriasColunas()
Dim Arquivo As String
Dim Conteudo As String
Dim AuxLin, AuxCol As Long
Dim Delimitador As String
Dim Vetor
AuxLin = 1
Delimitador = ";"
Open "C:\Dados\PEN DRIVE ESCOLAS\1EXCEL AVANÇADO\CURSO EXCEL AVANÇADO – 40 HORAS - TABELA DINÂMICA - POWER QUERY\CAPÍTULO II - ACESSO A BANCO DE DADOS\PEDIDOS 1997.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, Conteudo
Vetor = Split(Conteudo, Delimitador)
For AuxCol = LBound(Vetor) To UBound(Vetor)
Planilha1.Cells(AuxLin, AuxCol + 1).Value = Vetor(AuxCol)
Next AuxCol
AuxLin = AuxLin + 1
Loop
Close #1
End Sub

 

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.