Este fórum está sendo desativado

[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.

[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