Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Comando que retorne...
 
Notifications
Clear all

Comando que retorne ao Desktop

 
2024 - VBA & Macros
Post Recente por Fernandox 6 anos atrás
3 Posts
2 Usuários
0 Reactions
1,262 Visualizações
RSS
 Fernandox
(@fernandox)
Posts: 68
Trusted Member
Topic starter
 

Ola Pessoal, fiz um programa que após fecha-lo gostaria que retorna-se ao desktop, fiz esse código abaixo, mais não esta abrindo o desktop, quem puder me ajudar, fico grato pela ajuda e cooperação, abraço

   ThisWorkbook.Save
          ThisWorkbook.Close
          Application.Quit
          Workbooks.Open Filename:="c:windowsdesktop"
 
Postado : 28/06/2018 4:57 pm
 rafaelp
(@rafaelp)
Posts: 89
Trusted Member
 

Fernandox,
boa noite.

Veja se assim lhe atende:

ThisWorkbook.Save
          ThisWorkbook.Close
          Application.Quit
          Workbooks.Open Filename:="Shell "C:WINDOWSexplorer.exe """ & "c:windowsdesktop" & "", vbNormalFocus"

Obs.: Você deve especificar exatamente o caminho que deseja, no caso do Desktop.

 
Postado : 28/06/2018 5:16 pm
 Fernandox
(@fernandox)
Posts: 68
Trusted Member
Topic starter
 

Bom Dia, rafael, fico grato pelas orientações, segui a sua dica e acabei criando um código para que pudesse fazer esse fechamento, abaixo o código. Muito obrg, abraço

Public Function AREA_DE_TRABALHO()
    AREA_DE_TRABALHO = VBA.Environ("USERPROFILE") & "DESKTOP"
End Function

Código inserido para fechar o excel e chamar o explorer

   Application.Quit
          ActiveWindow.Close
          Call Shell("Explorer.exe ""AREA_DE_TRABALHO""", vbNormalFocus)
 
Postado : 05/07/2018 8:17 am
Forum Jump:
  Tópico Anterior
Próximo Tópico