Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Importar guia de pl...
 
Notifications
Clear all

Importar guia de planilha via macro

 
2024 - VBA & Macros
Post Recente por Sergio2016 8 anos atrás
4 Posts
3 Usuários
0 Reactions
649 Visualizações
RSS
 Sergio2016
(@sergio2016)
Posts: 0
New Member
Topic starter
 

Preciso de uma macro para importar a guia de uma planilha, fiz a macro abaixo mas não queria ter que abrir o arquivo de origem

Sub Importar()

    Windows("Novo Modelo boletim diário de produção - 2016.xlsm").Activate
    Sheets("CTV_Mês").Select
    Sheets("CTV_Mês").Copy Before:=Workbooks( _
        "Dados do boletim diário de produção - nov 2016.xlsm").Sheets(13)
    Range("B11:AK62").Select
    Selection.Copy
    Sheets("CTV").Select
    Range("B11").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Range("B11").Select
    Sheets("CTV_Mês").Select
    ActiveWindow.SelectedSheets.Delete
    ActiveWorkbook.Save
    
End Sub

Obrigado pela atenção,
Sérgio

 
Postado : 10/11/2016 7:30 am
 MPrudencio
(@mprudencio)
Posts: 0
New Member
 

Fazer importação sem abrir o arquivo nao da mas na execução da macro é tao rapida que nao da nem pra notar.

 
Postado : 10/11/2016 7:53 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Agora é só adaptar.

Sub Simples()
    With Range("A2:F1000") 'Intervalor do arquivo e guia que eu quero copiar
        .Formula = "='C:UsersAleVBADownloads[Tablet.xlsb]Plan1'!A2"
        .Value = .Value
    End With
End Sub

Att

 
Postado : 10/11/2016 8:45 am
 Sergio2016
(@sergio2016)
Posts: 0
New Member
Topic starter
 

Alexandre sua macro funciona, to adaptando pro meu caso, valeu!!
Obrigado tb ao Prudencio pela dica.
Sérgio

 
Postado : 10/11/2016 10:02 am
Forum Jump:
  Tópico Anterior
Próximo Tópico