Работа с Visio и ошибка "438 объект не поддерживает метод"

@AlexPortnow · Регистрация: 13.07.2012

Author24 — интернет-сервис помощи студентам

Visual Basic

Dim vsoDocument As Visio.Document
 
    Const sPath As String = "C:\Users\AlimovA\Documents\Shema Cargo.vsd"
 
    Set appVisio = CreateObject("visio.application")
    
    Application.NewFile.Add Filename:="C:\Users\AlimovA\Documents\Shema Cargo.vsd", _
        Section:=msoNew, DisplayName:="New Document"
    CommandBars("Task Pane").Visible = True

Visio запускает но файл не открывает.
Пишет ошибку - 438 объект не поддерживает метод...

Скрипт · 02.11.2012, 11:14

AlexPortnow, чтобы было проще писать код, когда идёт взаимодействие между двумя программами, есть 2 варианта:

код для работы с объектами программы-сервера пишите сначала в программе-сервере, а затем переносите код в программу-клиент;
используйте раннее связывание. Оно позволяет выдавать всплывающие подсказки после того, как поставишь точку. А затем раннее связывание заменяйте на позднее связывание, если требуется использовать код VBA на разных компьютерах.

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,518
	02.11.2012, 11:14	2
	AlexPortnow, чтобы было проще писать код, когда идёт взаимодействие между двумя программами, есть 2 варианта: код для работы с объектами программы-сервера пишите сначала в программе-сервере, а затем переносите код в программу-клиент; используйте раннее связывание. Оно позволяет выдавать всплывающие подсказки после того, как поставишь точку. А затем раннее связывание заменяйте на позднее связывание, если требуется использовать код VBA на разных компьютерах. 0