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,774 Visualizações
RSS
 caje
(@caje)
Posts: 97
Trusted 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
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious 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

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 07/06/2013 6:50 am
 caje
(@caje)
Posts: 97
Trusted 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
Trusted 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
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

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

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

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

caje,

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

Sheets("TESTE").Select
Range("Z10").Select

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 07/06/2013 11:39 am
 caje
(@caje)
Posts: 97
Trusted 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