Модераторы: mihanik
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Глюк MS Office? Не работает ChangeFileOpenDirectory 
:(
    Опции темы
shurikv
  Дата 13.3.2015, 09:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 20
Регистрация: 18.4.2012

Репутация: нет
Всего: нет
MS Office 2007. Хотел сделать макрос для записи файлов в разные папки. Тоесть жмем иконку, выходит форма со списком папок, выбираем нужную двойным щелчком и открывается диалоговое окно для сохранения с уже готовым путем (папкой). Сделал автоматическую запись макроса. Но оказалось, что функция ChangeFileOpenDirectory "путь" не работает, все равно открывается папка, куда была сделана последнее сохранение. Хотя при открытии файла все нормально, папка меняется.
PM MAIL   Вверх
Akina
Дата 13.3.2015, 12:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20570
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 25
Всего: 453
Офис - он большой... приложение-то какое? Ворд небось? Показывай код, который после выполнения ChangeFileOpenDirectory открывает диалог выбора.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
shurikv
Дата 13.3.2015, 13:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 20
Регистрация: 18.4.2012

Репутация: нет
Всего: нет
Разумеется WORD. Хотя не думаю, что этот код будет отличаться в EXCEL.

Код

Sub Макрос2()
'
' Макрос2 Макрос
'
'
    ChangeFileOpenDirectory "C:\Documents and Settings\Admin\Мои документы\2\"
    'ChDir ("C:\Documents and Settings\Admin\Мои документы\2\") - не работает
    
    'Dialogs(wdDialogFileSaveAs).Show - не работает
    Dialogs(wdDialogFileOpen).Show ' а здесь работает
 
End Sub

Проверку делал на двух похожих макросах с разными папками.
PM MAIL   Вверх
Akina
Дата 13.3.2015, 14:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20570
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 25
Всего: 453
Ну ежели почитать справку, то там обнаружится следующее:
Цитата

ChangeFileOpenDirectory Method

Sets the folder in which Word searches for documents.

Как полагаешь, надо искать КАКОЙ-ТО документ, если ты собрался ТЕКУЩИЙ документ записать?


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
shurikv
Дата 13.3.2015, 23:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 20
Регистрация: 18.4.2012

Репутация: нет
Всего: нет
Иными словами открыть диалоговое окно для открытия в нужной папке можно, а то же сделать для  записи нельзя. Может есть какой-то обходной путь, ведь офис запоминает последнюю папку, куда сохранялся документ. 
PM MAIL   Вверх
diadiavova
Дата 14.3.2015, 12:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Доктор Зло(диагност, настоящий, с лицензией и полномочиями)
****


Профиль
Группа: Модератор
Сообщений: 5820
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 1
Всего: 142
Если я правильно понял задачу...
Код

    Dim dlg As FileDialog
    Set dlg = Application.FileDialog(msoFileDialogSaveAs)
    dlg.InitialFileName = "c:\windows\"
    dlg.Show



--------------------
Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile
PM   Вверх
shurikv
Дата 15.3.2015, 11:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 20
Регистрация: 18.4.2012

Репутация: нет
Всего: нет
Огромное спасибо! Работает!
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Программирование, связанное с MS Office"
mihanik staruha

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


  • Несанкционированная реклама на форуме запрещена
  • Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль "Помогите!" таковым не является.
  • Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
  • Оставляйте свои записи в "Книге отзывов о работе администрации"
  • А вот тут лежит FAQ нашего подраздела

Если Вам понравилась атмосфера форума, заходите к нам чаще!
С уважением mihanik и staruha.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Программирование, связанное с MS Office | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1222 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.