открыть файл Visio из Excell

[Сергей54]

Уважаемые форумчане! Проблема: есть кнопочка на 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 запускается, а файл не открывается.
В чём ошибка? Помогите, плиз!

[Казанский]

Так Вы файл хотите в Visio открыть или в VBA Excel? Если в Visio, то так:

appVisio=createobject("visio.application")
appVisio.Open "D:\Отдел\Схемы\Иваново.vsd"

Возможно, надо сделать Visio видимым (проверить не могу, Visio не использую)

appVisio.Visible=True

[alex77755]

А как это можно (если можно) применить к портабле версиям (Visio)?

[Сергей54]

Сообщение от Казанский

Так Вы файл хотите в Visio открыть или в VBA Excel? Если в Visio, то так:

appVisio=createobject("visio.application")
appVisio.Open "D:\Отдел\Схемы\Иваново.vsd"

Возможно, надо сделать Visio видимым (проверить не могу, Visio не использую)

appVisio.Visible=True

Нужно открыть файл в Visio.

Прописал Ваш код, при выполнении запускается приложение MsVisio (на файл не открывается), и такой коммент:
Objekt variable or With block variable not set.
Надо предварительно что-то установить?

[Казанский]

Сорри,

Set appVisio=createobject("visio.application")

[Сергей54]

Спасибо, я вчера пробовал дописать Set..., это прошло, теперь другое сообщение (для строки appVisio.Open "D:\...) :
Objekt doesn't support this property or method.
Пробовал добавлять:
... For Random As FNum1, предварительно задав:
FNum1 = FreeFile
или так:
Open "D:\...
Ответ один и тот же.
Ладно, помучаюсь ещё... (ведь надо, очень надо, чтобы файл открывался).

[Казанский]

А, ну да.

appVisio.Documents.Open "D:\Отдел\Схемы\Иваново.vsd"

http://msdn.microsoft.com/en-us/libr...ice.11%29.aspx
Почитайте справку по VBA Visio. Если в этом приложении есть функция "запись макроса" - запишите все нужные действия. Потом код можно перенести в VBA Excel с небольшими изменениями.

[Сергей54]

Ура, заработало!
Справку почитаю обязательно, спасибо за ссылку.
Премного благодарен.