19.09.2019, 17:16 [+3 UTC]
в нашей команде: 3 831 чел. | участники онлайн: 7 (рекорд: 21)

:: РЕГИСТРАЦИЯ

задать вопрос

все разделы

правила

новости

участники

доска почёта

форум

блоги

поиск

статистика

наш журнал

наши встречи

наша галерея

отзывы о нас

поддержка

руководство

Версия системы:
7.77 (31.05.2019)
JS-v.1.34 | CSS-v.3.35

Общие новости:
28.04.2019, 09:13

Форум:
12.09.2019, 08:17

Последний вопрос:
19.09.2019, 14:47
Всего: 150343

Последний ответ:
19.09.2019, 15:43
Всего: 259029

Последняя рассылка:
19.09.2019, 16:45

Писем в очереди:
0

Мы в соцсетях:

Наша кнопка:

RFpro.ru - здесь вам помогут!

Отзывы о нас:
12.02.2016, 17:06 »
MasterWW
Очень хороший и понятный ответ. [вопрос № 188806, ответ № 273369]

РАЗДЕЛ • Basic

Создание программ на языке Basic.

[администратор рассылки: Андреенков Владимир (Академик)]

Лучшие эксперты в этом разделе

solowey
Статус: Бакалавр
Рейтинг: 314
Sergey V. Gornostaev
Статус: Специалист
Рейтинг: 117
zdwork
Статус: 3-й класс
Рейтинг: 73

Перейти к консультации №:
 

Консультация онлайн # 143719
Раздел: • Basic
Автор вопроса: Кокин Антон Вадимович
Отправлена: 12.09.2008, 12:20
Поступило ответов: 0

Мне нужно получить путь к папке "Последние документы", который находится в значении ключа реестра (HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Common\General\RecentFiles). Как это сделать? Я пытаюсь использовать такой макрос, но знаний не хватает (смотрите в Приложении).
Я бы хотел получить значения для моего примера, но справка VBA не конкретная.
Подскажите пожалуйста.
спасибо.

Приложение:

Состояние: Консультация закрыта

Oтветов пока не поступило.

Мини-форум консультации № 143719

PsySex
Профессионал

ID: 848

# 1

= общий = | 12.09.2008, 13:29 | цитировать цитировать  | профиль профиль  |  отправить письмо в личную почту пейджер

Тут конкретная справка ;-)

Кокин Антон Вадимович

# 2

= общий = | 12.09.2008, 13:29

Мне подсказали путь решения и я написал такой макрос. Работает. Интересно, его можно как-то оптимизировать? Спасибо. Код ниже:

Sub getSpecFolder_new()
Dim myPath As String
Dim objWSH
Dim bKey As String
Set objWSH = CreateObject("WScript.Shell")
bKey = objWSH.RegRead("HKCU\Software\Microsoft\Office\11.0\Common\General\RecentFiles")
myPath = Environ$("appdata") & "\" & "\Microsoft\Office\" & bKey 'Set the path.
With Dialogs(wdDialogFileOpen)
.Name = myPath
If .Display = -1 Then
MsgBox .Name
End If
End With
End Sub

PsySex
Профессионал

ID: 848

# 3

= общий = | 12.09.2008, 13:32 | цитировать цитировать  | профиль профиль  |  отправить письмо в личную почту пейджер

что вы хотите от оптимизации?? увеличить скорость работы кода? ;-)

Кокин Антон Вадимович

# 4

= общий = | 12.09.2008, 13:50

Ну скорость нормальная. Я имел в виду, все ли корректно в этом коде? И нет ли возможность получить полный путь к искомой папке, не используя столько переменных и объединяя их. Спасибо за помощь.

PsySex
Профессионал

ID: 848

# 5

= общий = | 12.09.2008, 14:32 | цитировать цитировать  | профиль профиль  |  отправить письмо в личную почту пейджер

ну да этот код можно уменьшить, кстати там еще ошибочка - два слэша подряд идут.. Можно оформить его как функцию. Пример функции и ее вызова.

Function RecentFiles() As String
Dim objWSH
Dim bKey As String
Set objWSH = CreateObject("WScript.Shell")
bKey = objWSH.RegRead("HKCU\Software\Microsoft\Office\11.0\Common\General\RecentFiles")
RecentFiles = Environ$("appdata") & "\Microsoft\Office\" & bKey & "\"
End Function

Sub Command1_Click()
MsgBox RecentFiles + "test.doc"
End Sub

Кокин Антон Вадимович

# 6

= общий = | 12.09.2008, 14:39

Спасибо. Я слеш поставил, так как почему-то подумал, что перед ним папка будет без слеша. Спасибо за поправку!

 

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

Яндекс Rambler's Top100

главная страница | поддержка | задать вопрос

Время генерирования страницы: 0.14156 сек.

© 2001-2019, Портал RFPRO.RU, Россия
Калашников О.А.  |  Гладенюк А.Г.
Версия системы: 7.77 от 31.05.2019
Версия JS: 1.34 | Версия CSS: 3.35