|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
30.10.2012, 12:36 | #1 |
Пользователь
Регистрация: 10.10.2012
Сообщений: 10
|
открыть файл Visio из Excell
Уважаемые форумчане! Проблема: есть кнопочка на UserForm1, по нажатию что-то делается с данными и они выводятся на UserForm1 как Заголовки на других кнопочках (всё работает), но надо еще при этом открыть файл "ХХХ.vsd" и сделать его пассивным (свернуть), чтобы видна была UserForm1.
Код: Private Sub CommandButton1_Click() 'кнопка 1 Call Поиск_адресов("Иваново") Call заголовок_адрес 'пишет адрес Call Заголовок_АТС 'пишет название FNum1 = FreeFile Dim RetVal RetVal = Shell("C:\Program Files\Microsoft Office\Visio11\VISIO.exe", 1) Open "D:\Отдел\Схемы\Иваново.vsd" For Random Access Read As FNum1 End Sub Собственно приложение Visio запускается, а файл не открывается. В чём ошибка? Помогите, плиз! |
30.10.2012, 12:53 | #2 |
Старожил
Регистрация: 31.12.2010
Сообщений: 2,133
|
Так Вы файл хотите в Visio открыть или в VBA Excel? Если в Visio, то так:
Код:
Код:
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
|
30.10.2012, 13:01 | #3 |
Форумчанин
Регистрация: 14.02.2009
Сообщений: 753
|
А как это можно (если можно) применить к портабле версиям (Visio)?
помогу решить контрольные VB6, VBA (недорого)
Alex77755@mail.ru |
30.10.2012, 13:33 | #4 | |
Пользователь
Регистрация: 10.10.2012
Сообщений: 10
|
Цитата:
Прописал Ваш код, при выполнении запускается приложение MsVisio (на файл не открывается), и такой коммент: Objekt variable or With block variable not set. Надо предварительно что-то установить? |
|
30.10.2012, 18:25 | #5 |
Старожил
Регистрация: 31.12.2010
Сообщений: 2,133
|
Сорри,
Код:
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
|
31.10.2012, 10:01 | #6 |
Пользователь
Регистрация: 10.10.2012
Сообщений: 10
|
Спасибо, я вчера пробовал дописать Set..., это прошло, теперь другое сообщение (для строки appVisio.Open "D:\...) :
Objekt doesn't support this property or method. Пробовал добавлять: ... For Random As FNum1, предварительно задав: FNum1 = FreeFile или так: Open "D:\... Ответ один и тот же. Ладно, помучаюсь ещё... (ведь надо, очень надо, чтобы файл открывался). |
31.10.2012, 10:11 | #7 |
Старожил
Регистрация: 31.12.2010
Сообщений: 2,133
|
А, ну да.
Код:
Почитайте справку по VBA Visio. Если в этом приложении есть функция "запись макроса" - запишите все нужные действия. Потом код можно перенести в VBA Excel с небольшими изменениями.
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
|
31.10.2012, 11:35 | #8 |
Пользователь
Регистрация: 10.10.2012
Сообщений: 10
|
Ура, заработало!
Справку почитаю обязательно, спасибо за ссылку. Премного благодарен. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Открыть файл | bel62 | Софт | 1 | 22.07.2012 19:45 |
Открыть файл ? | Sylar9 | Win Api | 4 | 11.05.2012 19:05 |
Открыть файл, разделить ячейку на 1000, сохранить файл, закрыть файл. Как? | Ник Харди | Microsoft Office Excel | 7 | 30.01.2012 18:47 |
Открыть файл | dmitriegorovih | Общие вопросы Delphi | 2 | 24.08.2010 12:34 |
Открыть excell в приложении delphi | aslanbek | Общие вопросы Delphi | 6 | 15.03.2008 09:08 |