Looping
Enviado: 26 Mar 2019 às 17:29
por danielj
Boa tarde.
Tenho uma pasta com vários arquivos e todos com a mesma estrutura. Quero executar uma macro de maneira que ela abra os arquivos independente do nome e cole um embaixo do outro e feche os arquivos já colados. Se alguém conseguir me ajudar eu agradeço.
Re: Looping
Enviado: 26 Mar 2019 às 20:54
por Jimmy
Olá Daniel,
É possível sim. Em linhas gerais, você pode acessar os arquivos usando o DIR() (Ex.: Files = Dir("C:\Temp\*.*", 31) para obter o primeiro, e apenas DIR() para acessar os demais. Pode também usar o FileSystemObject para a mesma finalidede que o DIR. Eu escolheria o FileSystemObject.
Você não informou o tipo de arquivo, mas se for Excel, é só abrir, selecionar, copia, colar e fechar. Se for arquivo ASC e quiser ler sequencialmente, use o OPEN, LINE INPUT e CLOSE.
Mais do que isso sem uma base concreta, fica difícil. Proponho você gastar um trabalho extra, montar uma pasta Windows com alguns arquivos modelo, zipar (ou rar, ou 7ZIP, etc), e enviar. Ai teremos algo concreto pra trabalhar.
Se não for assim, fica muito arriscado perdermos tempo supondo situações, e depois de pronto saber que não era nada disso.
Jimmy San Juan