Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Erro macro fechar p...
 
Notifications
Clear all

Erro macro fechar planilha

 
2024 - VBA & Macros
3 Posts
3 Usuários
0 Reactions
1,025 Visualizações
RSS
engeel2014
 engeel2014
(@engeel2014)
Posts: 207
Estimable 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

Lucélio Ferreira dos Santos
Eng. Eletricista
CREA: DF-7165/TD
[email protected]

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

Tente trocar esta linha:

ThisWorkbook.Close True

Por esta:

ActiveWorkbook.Close True

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

 
Postado : 25/03/2014 3:20 pm
Fernando Fernandes
 Fernando Fernandes
(@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

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

 
Postado : 25/03/2014 7:23 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico