Переход с листа в определенную папку

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Переход с листа в определенную папку (Макросы/Sub)

lebensvoll

Дата: Четверг, 08.09.2016, 11:43 | Сообщение № 1

Группа: Проверенные

Ранг: Старожил

Сообщений: 1002

Репутация: 30 ±

Замечаний: 0% ±

Excel 2010

Добрый день много уважаемые форумчане...
Прошу вас помочь в про писании кода (попробовал записать его через запись макроса и :'(

)
[vba]

Код

Private Sub CommandButton9_Click() 'Перейти в папку Ежедневные сведения
ChDir _
"N:\Диспетчерская служба\Ежедневные сведения ООО М-Бетон\Ежедневные сведения 2016 год"
End Sub

[/vba]
и что то не правильно записывает а прописывать сами коды я не могу ((((
Прошу вас подскажите как:
Находясь на открытом листе файла (рабочий документ) оператор нажимает кнопку и. Сворачивается данный документ (но не закрывается) и открывается лишь папка (где имеется несколько файлов эксель) оператор лишь выбирает после нужный ему файл для открытия и работы с ним.
Путь к папке вот такой вот:

Цитата

"N:\Диспетчерская служба\Ежедневные сведения ООО М-Бетон\Ежедневные сведения 2016 год"

Спасибо вам заранее огромнейшее

Кто бы ты ни был, мир в твоих руках

Ответить

Manyasha

Дата: Четверг, 08.09.2016, 11:53 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

Репутация: 898 ±

Замечаний: 0% ±

Excel 2010, 2016

lebensvoll, здравствуйте.
[vba]

Код

Private Sub CommandButton9_Click() 'Перейти в папку Ежедневные сведения
    Dim pathFolder$
    pathFolder = "N:\Диспетчерская служба\Ежедневные сведения ООО М-Бетон\Ежедневные сведения 2016 год"
    Application.WindowState = xlMinimized
    Shell "explorer.exe " & pathFolder, vbNormalFocus
End Sub

[/vba]

ЯД: 410013299366744 WM: R193491431804

Ответить

lebensvoll

Дата: Четверг, 08.09.2016, 12:02 | Сообщение № 3

Группа: Проверенные

Ранг: Старожил

Сообщений: 1002

Репутация: 30 ±

Замечаний: 0% ±

Excel 2010

Manyasha, Спасибки да сработал, единственное пришлось почему еще раз путь перекопировать (((( не могу понять почему
В первый раз открылся сработал но не то что нужно. Скопировал еще раз путь и ВУАЛЯ hands

СПАСИБО ВАМ ОГРОМНЕЙШЕЕ

Кто бы ты ни был, мир в твоих руках

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Переход с листа в определенную папку (Макросы/Sub)

Страница 1 из 1
1