Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Auxilio na Sintaxe ...
 
Notifications
Clear all

Auxilio na Sintaxe de Importar Arquivo

 
2024 - VBA & Macros
Post Recente por caje 11 anos atrás
7 Posts
2 Usuários
0 Reactions
1,769 Visualizações
RSS
 caje
(@caje)
Posts: 97
Estimable Member
Topic starter
 

Bom dia,
Estou começando a estudar VBA e estou tendo dificuldades na sintaxe quando vou realizar a importação gostaria de importar dados de um outro arquivo porém de uma Aba especifica e não da primeira aba.

'IMPORTAR Dados IFC
Workbooks.Open Filename:= _
        ThisWorkbook.Path & "Farol Diário_IFC 2013.xlsb "
       
Windows("Farol Diário_IFC 2013.xlsb").Activate
 'COPIAR META IFC
Range("Z10").Select
Selection.Copy
Windows("Placar.xlsb").Activate
Sheets("plan1").Activate
Range("D11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
'Windows("Farol Diário_IFC 2013.xlsb").Close False

Se alguém puder dar alguma sugestão
Agradeço

 
Postado : 07/06/2013 6:24 am
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

caje,

Bom Dia!

na linha:

Range("Z10").Select

Coloque, antes, o nome da aba de onde você quer copiar. (Supondo que a aba se chama TESTE):

Sheets("TESTE").Range("Z10").Select
 
Postado : 07/06/2013 6:50 am
 caje
(@caje)
Posts: 97
Estimable Member
Topic starter
 

Obrigado pelo Auxilio Mauro porém a planilha que estou tentando importar é grande e com alguns links e graficos e nesta linha acaba dando erro mas apliquei a sua dica em um exemplo mais simples e o procedimento deu certo.

Vou continuar tentando e Obrigado pela dica Ajudou bastante

 
Postado : 07/06/2013 8:19 am
 caje
(@caje)
Posts: 97
Estimable Member
Topic starter
 

Mauro eu fiz um teste com uma planilha simples e essa sugestão deu certo porém quando apliquei em um arquivo excel salvo como binário deu erro essa linha. Gostaria de saber se isso influência em Algo ?

 
Postado : 07/06/2013 9:02 am
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

Campacte suas planilhas e anexe as mesmas aqui para podermos rodar, depurar e ver o que está havendo.

 
Postado : 07/06/2013 11:36 am
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

caje,

Antes de enviar sua planilha, tente, por exemplo assim:

Sheets("TESTE").Select
Range("Z10").Select
 
Postado : 07/06/2013 11:39 am
 caje
(@caje)
Posts: 97
Estimable Member
Topic starter
 

Aplicando a estrutura dessa forma que você ensinou

Funcionou Certinho

Obrigado

 
Postado : 07/06/2013 12:54 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico