Notifications
Clear all

Ajuda para Criar Macro

2 Posts
1 Usuários
0 Reactions
1,299 Visualizações
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite Pessoal!
Recebo por e-mail diversas planilhas que tenho que salvar e consolidar em uma unica com a sua formatação.

Essas planilhas que recebo possui quantidade diferente de informação(faturamento) e o cabeçalho só aparece uma unica vez.

Na planilha onde devo incluir as informações o cabeçalho deve se repitar na mesma quantidade do faturamento.

Como faço para a macro abrir um arquivo de cada vez e importar em sequencia as informações?

Desde já agradeço a atenção. :?:

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 17/03/2011 6:48 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Naty, voce deve criar uma macro onde essa macro onde deverá ter um laço de repetição Do While que identifica em uma pastas esses arquivos.
no laço Do While abr o arquivo e importa as informação para a planilha de destino, depois fecha o arquivo e abre o proximo.

traduzindo isso para uma macro VBA seria algo assim

Dim PastaOrigem as String
dim sArquivo as string


dim Wkb as WorkBook

PastaOrigem = "C:Arquivos"

sArquivo = Dir(PastaOrigem )

Do While sArquivo <>"" 

 'Arquivo, abre a planilha
  set Wkb  = Application.Workbooks.Open(PastaOrigem & "" & sArquivo)

'Depois de aberta, captura as informações com base nas suas regras.

'Fecha o arquivo sem salvar
Wkb.Close False
   sArquivo = Dir(PastaOrigem )
Loop




Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 31/03/2011 2:41 pm