Notifications
Clear all

Erro macro fechar planilha

3 Posts
3 Usuários
0 Reactions
1,021 Visualizações
(@engeel2014)
Posts: 207
Reputable Member
Topic starter
 

Boa noite pessoal, tenho dentro de uma pasta chamada "Macro" dois arquivos um "dados.xls" e outro "Dados macro.xlsm" no arquivo "Dados macro.xlsm" tem uma macro que abre o arquivo "dados.xls" copia seu conteúdo e depois deveria fechar o arquivo "dados.xls" e retornar ao arquivo "Dados macro.xlsm", porém está acontecendo o contrário. ele fecha o arquivo xlsm e mantem o arquivo xls aberto. Podem me ajudar?

Sub ImportarTXT()
 
    Workbooks.Open ("D:Macrodados.xls")
    Cells.Select
    Selection.Copy
    Windows("Dados macro.xlsm").Activate
    Range("A1").Select
    ActiveSheet.Paste
    Range("A1").Select

Windows("dados.xls").Activate
ThisWorkbook.Close True
Windows("Dados macro.xlsm").Activate

End Sub
 
Postado : 25/03/2014 3:13 pm
(@gtsalikis)
Posts: 2373
Noble Member
 

Tente trocar esta linha:

ThisWorkbook.Close True

Por esta:

ActiveWorkbook.Close True

 
Postado : 25/03/2014 3:20 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Eu faria assim:

Sub ImportarTXT()

    Workbooks.Open ("D:Macrodados.xls")
    Cells.Copy
    Workbooks("Dados macro.xlsm").Activate
    Range("A1").Select
    ActiveSheet.Paste
    Range("A1").Select

    Workbooks("dados.xls").Close False
    Workbooks("Dados macro.xlsm").Activate

End Sub
 
Postado : 25/03/2014 7:23 pm