При запуске процедуры в power point должна открываться форма из excel - Microsoft Office Excel

brans · 17.12.2010, 14:39

Здравствуйте!!! Такая проблема: написан код в процедуре power point с помощью которого должна выполняться процедура vb из excel....т.у. открытие userform2. Только этот код не открывает то что нужно и багов не выдаёт... Посмотрите, пожалуйста, в чём ошибка...

EducatedFool · 17.12.2010, 15:07

1. Зачем наподключали кучу ненужных библиотек к PowerPoint?

2. Что означает выделенная красным строка?

Код:

Sub ввод()
    Dim XLApp As Object
    Dim XLWB As Object
    Set XLApp = CreateObject("Excel.Application")
    XLApp.Visible = False
    Set XLWB = XLApp.Workbooks.Open("H:\zashita\ri.xlsm")
    XLApp.Windows(XLWB.Name).Visible = False
    XLApp.Run vb
    XLWB.Close SaveChanges:=False
    Set XLWB = Nothing
    XLApp.Quit
    Set XLApp = Nothing
End Sub

3. Поменьше капслока - а то ответа не дождётесь.

brans · 17.12.2010, 15:15

[QUOTE=EducatedFool;687983]1. Зачем наподключали кучу ненужных библиотек к PowerPoint?

это не я это на университетском компьютере было.
2. Что означает выделенная красным строка?

Эта строка должна запускать процедуру vb модуля 1 в экселевском документе, который тоже в папке есть.

brans · 17.12.2010, 15:46

это неправильное обращение к процедуде? я же перед этип описала из какой кники открывать. почему оно не открывает?

doober · 17.12.2010, 16:11

Код:

XLApp.Run "vb"

Чисто теоретически должно сработать,но практически думаю нет,пока книгу от мусора не почистите
PS:ссылки не блохи,сами не прыгают

brans · 17.12.2010, 16:12

вместо
XLApp.Run vb
я пишу
XLApp.Run "vb" & XLWB.Name & "'!userform2"

он мне вместо формы открывает код этой формы.... что делать(((

brans · 17.12.2010, 16:17

Цитата:

Сообщение от doober

Код:

XLApp.Run "vb"

Чисто теоретически должно сработать,но практически думаю нет,пока книгу от мусора не почистите
PS:ссылки не блохи,сами не прыгают

нет не сработало( от какого мусора очистить?

doober · 17.12.2010, 16:27

Этого не может быть

Во вложении чистая книга с макросом vb

запуситие в повере,все работает

brans · 17.12.2010, 16:58

он теперь и Ваше не открывает баг XLApp.Run "vb"...
что с этим делать?

doober · 17.12.2010, 17:27

Цитата:

Сообщение от brans

он теперь и Ваше не открывает баг XLApp.Run "vb"...
что с этим делать?

Злых духов изгонять,которые в вузе к вам проникли

Это рерультат работы ыайлов.которые я прикрепил

17.12.2010, 15:07	#2
EducatedFool Программист VBA СуперМодератор Регистрация: 13.07.2008 Сообщений: 6,858	1. Зачем наподключали кучу ненужных библиотек к PowerPoint? 2. Что означает выделенная красным строка? Код: `Sub ввод() Dim XLApp As Object Dim XLWB As Object Set XLApp = CreateObject("Excel.Application") XLApp.Visible = False Set XLWB = XLApp.Workbooks.Open("H:\zashita\ri.xlsm") XLApp.Windows(XLWB.Name).Visible = False XLApp.Run vb XLWB.Close SaveChanges:=False Set XLWB = Nothing XLApp.Quit Set XLApp = Nothing End Sub` 3. Поменьше капслока - а то ответа не дождётесь. __Полезные надстройки для Excel. Парсинг сайтов и файлов. Макросы любой сложности на заказ. Мониторинг цен конкурентов

17.12.2010, 16:11	#5
doober Старожил Регистрация: 02.05.2009 Сообщений: 3,907	Код: `XLApp.Run "vb"` Чисто теоретически должно сработать,но практически думаю нет,пока книгу от мусора не почистите PS:ссылки не блохи,сами не прыгают Анализ,обработка данных Недорого Последний раз редактировалось doober; 17.12.2010 в 16:13.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Power Point	lenivec	Общие вопросы Delphi	9	17.06.2010 22:39
При нажатии на конопку должна открываться папка	ilsen	Помощь студентам	2	18.03.2010 14:58
MS Power Point	Квентин	Помощь студентам	1	25.02.2010 21:48
MS Power Point	Квентин	Microsoft Office Word	1	24.02.2010 23:20
при нажатии на кнопку должна создаваться новая форма	*СкаЙ*	Помощь студентам	5	13.06.2007 11:51

17.12.2010, 15:15	#3
brans Форумчанин Регистрация: 15.10.2010 Сообщений: 105	[QUOTE=EducatedFool;687983]1. Зачем наподключали кучу ненужных библиотек к PowerPoint? это не я это на университетском компьютере было. 2. Что означает выделенная красным строка? Эта строка должна запускать процедуру vb модуля 1 в экселевском документе, который тоже в папке есть.

17.12.2010, 15:46	#4
brans Форумчанин Регистрация: 15.10.2010 Сообщений: 105	это неправильное обращение к процедуде? я же перед этип описала из какой кники открывать. почему оно не открывает?

17.12.2010, 16:12	#6
brans Форумчанин Регистрация: 15.10.2010 Сообщений: 105	вместо XLApp.Run vb я пишу XLApp.Run "vb" & XLWB.Name & "'!userform2" он мне вместо формы открывает код этой формы.... что делать(((

17.12.2010, 16:58	#9
brans Форумчанин Регистрация: 15.10.2010 Сообщений: 105	он теперь и Ваше не открывает баг XLApp.Run "vb"... что с этим делать?