Excel это не сложно
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
21.05.2024, 09:07:22

Войти
Интересные и полезные статьи по работе с Excel и VBA можно найти в разделе ХИТРОСТИ
33 266 Сообщений в 5 461 Тем от 6 769 Пользователей
Последний пользователь: Fortuna
*
Перейти на сайт Хитрости Надстройка MulTEx Обучающие тренинги Наша группа ВКонтакте
Правила форума Начало Помощь Поиск Календарь Войти Регистрация Выйти
+  Excel это не сложно
|-+  Основные форумы
| |-+  Вопросы по Excel и VBA
| | |-+  Открыть файла из листа используя UserForm
Страниц: [1]   Вниз
Печать
Автор Тема: Открыть файла из листа используя UserForm  (Прочитано 4996 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Starbirst
Пользователь
**

Репутация: +0/-0
Офлайн Офлайн

Сообщений: 76


Просмотр профиля E-mail
« : 26.10.2018, 07:25:02 »

Доброго времени суток! Ребята, помогите, пожалуйста, доработать обработку событий:
Алгоритм в зависимости от выбранного значения примерно следующий:
1. Нажатие на кнопку "Открыть":
- открывается прикрепленный файл pdf, который лежит внутри книги Excel;
- далее книга Excel закрывается, а файл pdf продолжает оставаться открытым пока пользователь не закроет его.
2. Нажатие на кнопку "Скачать":
- открывается окошко "Сохранить как...", пользователь сохраняет файл;
- далее книга Excel закрывается, а сохраненный файл pdf автоматически открывается.
Желательно, чтобы обычный пользователь не имел доступа к листам, не имел возможности поправить макрос - пусть она будет даже зашита паролем или другим надежным способом.
В макросах не силен. Заранее спасибо!
« Последнее редактирование: 26.10.2018, 08:21:20 от Starbirst » Записан
boa
Старожил
****

Репутация: +22/-0
Офлайн Офлайн

Сообщений: 253


Доброта спасет мир...


Просмотр профиля WWW
« Ответ #1 : 26.10.2018, 09:14:44 »

Внимание! автор приложил файл с автозапуском формы и скрытием Application
Записан

Ничто не обходится нам так дешево и не ценится так дорого, как вежливость...  Мигель Сервантес де Сааведра

RAN
Эксперты
Старожил
*

Репутация: +43/-0
Офлайн Офлайн

Сообщений: 440



Просмотр профиля E-mail
« Ответ #2 : 26.10.2018, 21:20:35 »

boa, спасибо, не полез
помогите, пожалуйста, доработать обработку событий:
Пожалуйста
Код: (vb)
Sub Открыть()
    Call MyMacros
    ThisWorkbook.Close False
End Sub

Sub Скачать()
    With Application.FileDialog(msoFileDialogSaveAs)
        If .Show Then
            ThisWorkbook.SaveAs (.SelectedItems(1))
            Call MyMacros
            ThisWorkbook.Close False
        End If
    End With
End Sub

Sub MyMacros()
' 1. код для извлечения PDF из xls* (и сохранания на диск?)
' 2. код для открытия PDF в приложении по умолчании ( или нужном)
End Sub

Записан

А что ты умеешь?
Учиться...
Starbirst
Пользователь
**

Репутация: +0/-0
Офлайн Офлайн

Сообщений: 76


Просмотр профиля E-mail
« Ответ #3 : 06.11.2018, 14:20:15 »

Как сделать, чтобы при нажатии на кнопку открывался pdf файл, а Excel закрывался автоматически?
Записан
boa
Старожил
****

Репутация: +22/-0
Офлайн Офлайн

Сообщений: 253


Доброта спасет мир...


Просмотр профиля WWW
« Ответ #4 : 06.11.2018, 15:52:09 »

Добрый день,
чё то мне не хочется открывать ваши файлы...
но подсказку дам.
для закрытия Excel используйте
Код: (vb)
Application.Quit

а уж для извлечения и открытия файла PDF, я так понимаю, код у вас уже есть
Записан

Ничто не обходится нам так дешево и не ценится так дорого, как вежливость...  Мигель Сервантес де Сааведра

Starbirst
Пользователь
**

Репутация: +0/-0
Офлайн Офлайн

Сообщений: 76


Просмотр профиля E-mail
« Ответ #5 : 07.11.2018, 14:51:31 »

Файл excel открывается, никаких опасных кодов не содержит. Проблема в том, что после открытия файла pdf открывается еще файл excel, а хотелось бы, чтобы он закрывался, а pdf оставался открытым.
Записан
Страниц: [1]   Вверх
Печать
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2011, Simple Machines Valid XHTML 1.0! Valid CSS!
Яндекс.Метрика Рейтинг@Mail.ru