Как ЗАКРЫТЬ ПАПКУ средствами VBA?

[Vja4eslav]

Извиняюсь, в комменте не правильно написано «'"ALT" + "ENTER"».
Правильно: «'"ALT" + "F4"».

Помните притчу по Неуловимого Джо? Вот и тут так же...

В смысле, что такое действие, как закрытие папки никому не нужно, поэтому и кода такого нет?

[Aleksandr H.]

Сообщение от Vja4eslav

Сделал пока вот так:

Private Sub Workbook_Open()
Set objShellApp = CreateObject("Shell.Application")
objShellApp.Open ("D:\Dropbox\")
Set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "(%{F4})" '"ALT" + "ENTER"
End Sub

Работает нормально, но это имитация нажатия клавиш. Неужели нет кода, закрывающего папку (.Close)?

Хотели закрыть папку, но для етого её открываете? В чем сила кунг-фу?
Откуда увереность что активной будет именно папка? Этот код, у меня например, захотел закрыть окно другого ексель файла.
что-бы не заморачиваться с закрытием, имхо, 3 варианта: 1)работа через файловый менеджер;2) создать ярлык на файл на рабочем столе; 3) открывать файл непосредственно из екселя - файл-открыть.

[Hugo121]

Сообщение от Vja4eslav

В смысле, что такое действие, как закрытие папки никому не нужно, поэтому и кода такого нет?

- это моё мнение

[IgorGO]

Отлично!
папка открыта до тех пор пока открыт хоть один файл, содержащийся в ней, более того - такими же открытыми будут считаться все папки по дереву каталогов до корневой
как только закрыт последний из открытых из данной папки файлов папка тут же становиться закрытой (доступной к переименованию, перемещению, удалению)
с точки зрения файловой системы папка это тот же файл, только содержимое этого файла - это другие папки и (или) файлы.

выбросьте идею закрытия папки из головы! закрывайте за собой файлы)

и анекдот для иллюстрации ситуации
в службу поддержки сайта звонит блондинка:
-- алло! я тут у вас файл скачала, посмотрела, а он мне не подходит, он мне не нужен совсем! как я могу закачать его обратно на сайт??
-- спасибо за беспокойство, закачивать обратно не нужно, мы сами своими силами все восстановим. но на будущее... будьте внимательнее не качайте себе все подряд, а то из-за таких как Вы - в интернете скоро файлов вообще не останется!

[Vja4eslav]

Понял, спасибо, IgorGO ))

[Казанский]

Сообщение от Vja4eslav

Мне нужно периодически открывать один файл excel, лежащий в определённой папке у меня на компьютере.

Создайте ярлык этого файла на рабочем столе, в меню Пуск или на панели быстрого доступа. И открывайте файл одним-двумя кликами без помощи проводника.

[Vja4eslav]

Спасибо

[pashulka]

Vja4eslav, Если очень хочется, то что-то вроде :

Set iShell = CreateObject("Shell.Application")
iShell.Open "D:\Dropbox"

For Each iWin In iShell.Windows
    If iWin.LocationName = "Dropbox" Then
    'If iWin.LocationURL = "file:///D:/Dropbox" Then
       iWin.Quit: Exit For
    End If
Next

[Vja4eslav]

Уважаемый pashulka, большое Вам спасибо!

[ЕвгенийХижин]

Сообщение от Vja4eslav

Сделал пока вот так:

Private Sub Workbook_Open()
Set objShellApp = CreateObject("Shell.Application")
objShellApp.Open ("D:\Dropbox\")
Set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "(%{F4})" '"ALT" + "ENTER"
End Sub

Работает нормально, но это имитация нажатия клавиш. Неужели нет кода, закрывающего папку (.Close)?

Спасибо!!! То, что я искал!