Страницы: 1
RSS
Как сделать активной папку проводника?
 
Sub Макрос1()  
Shell "explorer.exe " & "C:\WINDOWS"  
Application.Quit  
' открывает папку в проводнике и выходит из excel  
' но открытая папка при этом не активна, а остаётся свёрнутой в панели задач  
' Если открыто много папок, то среди них её придётся искать  
' Как сделать так, чтобы открытая папка предстала взору пользователя сразу после завершения работы макроса?  
End Sub
 
Sub Пример()  
   Команда$ = "explorer.exe /e,/root, ""D:\Проекты"""  
   Shell Команда$, vbNormalFocus  
     
   Команда2$ = "explorer.exe /e, ""D:\Проекты"""  
   Shell Команда2$, vbNormalFocus  
End Sub
 
Большое спасибо! Всё работает  
А можете объяснить чем отличается 1 команда от 2 ?
Страницы: 1
Читают тему
Наверх