Importar guia de planilha via macro

2024 - VBA & Macros

Post Recente por Sergio2016 8 anos atrás

4 Posts

3 Usuários

0 Reactions

663 Visualizações

RSS

Sergio2016

(@sergio2016)

Posts: 6

Active 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: 2749

Famed Member

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

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

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

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

Postado : 10/11/2016 8:45 am