30.05.2020, 21:48 [+3 UTC]
в нашей команде: 4 575 чел. | участники онлайн: 4 (рекорд: 21)

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

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

все разделы

правила

новости

участники

доска почёта

форум

блоги

поиск

статистика

наш журнал

наши встречи

наша галерея

отзывы о нас

поддержка

руководство

Версия системы:
7.89 (25.04.2020)
JS-v.1.45 | CSS-v.3.39

Общие новости:
13.04.2020, 00:02

Форум:
29.05.2020, 13:47

Последний вопрос:
30.05.2020, 17:05
Всего: 152529

Последний ответ:
30.05.2020, 16:47
Всего: 260219

Последняя рассылка:
30.05.2020, 17:45

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

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

Наша кнопка:

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

Отзывы о нас:
31.05.2010, 22:28 »
verona
Большое спасибо за быстрый и качественный ответ! [вопрос № 178789, ответ № 261779]
Наши встречи:
ID: 844

РАЗДЕЛ • Basic

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

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

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

solowey
Статус: Профессионал
Рейтинг: 422
Megaloman
Статус: Мастер-Эксперт
Рейтинг: 192
Sergey V. Gornostaev
Статус: Специалист
Рейтинг: 46

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

Консультация онлайн # 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.18596 сек.

© 2001-2020, Портал RFPRO.RU, Россия
Калашников О.А.  |  Гладенюк А.Г.
Версия системы: 7.89 от 25.04.2020
Версия JS: 1.45 | Версия CSS: 3.39