Вы здесь: Главная » Как привязать макрос к кнопке в excel

Как привязать макрос к кнопке в excel

Закрыть ... [X]

Lilechkaa
Member
Откуда:
Сообщений: 33
Добрый день!
как привязать к кнопке в эксель данный код, чтоб кнопка открывала при нажатии вордовский файл Dim objWrdApp As Object Dim objWrdDoc As Object On Error Resume Next Set objWrdApp = GetObject(, "Word.Application") 'If objWrdApp2007 Is Nothing Then - откуда взялся objWrdApp2007??? If err Then err.clear Set objWrdApp = CreateObject("Word.Application") if err then msgbox "Нету Ворда на машине!": exit sub End If objWrdApp.Visible = True Set objWrdDoc = objWrdApp.Documents.Open("d:/...../КИП.doc") Модератор: Учимся использовать тэги оформления кода - FAQ
К сообщению приложен файл (кнопкаl.xlsx - 10Kb) cкачать Lilechkaa
Member
Откуда:
Сообщений: 33
Хоть примерно как привязать это макрос excel 2007, может литература есть какая Shocker.Pro
Member
Откуда: ->|<- :адуктО
Сообщений: 18098
Правой кнопкой мыши на свою кнопку нажмите - увидите пункт "назначить макрос". Lilechkaa
Member
Откуда:
Сообщений: 33
пробовала не помогает, выводит ошибку на строке "On Error Resume Next" с уведомлением
"Invalid outside procedure" Shocker.Pro
Member
Откуда: ->|<- :адуктО
Сообщений: 18098
Когда нажимаете "создать макрос" не надо стирать те две строки, которые там напишутся автоматически - надо вставить текст программы между ними Lilechkaa
Member
Откуда:
Сообщений: 33
теперь он открывает чисто вордовский файл, а конкретно тот документ не видит Lilechkaa
Member
Откуда:
Сообщений: 33
путь к файлу привязать указан верно, в чем может быть причина? он открывает только новый "вордовский" файл Shocker.Pro
Member
Откуда: ->|<- :адуктО
Сообщений: 18098
внесите изменение в макрос: Dim objWrdApp As Object Dim objWrdDoc As Object On Error Resume Next Set objWrdApp = GetObject(, "Word.Application") 'If objWrdApp2007 Is Nothing Then - откуда взялся objWrdApp2007??? If err Then err.clear Set objWrdApp = CreateObject("Word.Application") if err then msgbox "Нету Ворда на машине!": exit sub End If On Error Goto 0 objWrdApp.Visible = True Set objWrdDoc = objWrdApp.Documents.Open("d:/...../КИП.doc") катастрофа
Member
Откуда:
Сообщений: 2994
If err Then
if err then
повторение мать учения? Lilechkaa
Member
Откуда:
Сообщений: 33
все равно не находит(, ошибка "5174" файл не найден катастрофа
Member
Откуда:
Сообщений: 2994
Lilechkaa,
у меня открывает нужное
К сообщению приложен файл (Книга11111.xls - 22Kb) cкачать Shocker.Pro
Member
Откуда: ->|<- :адуктО
Сообщений: 18098
Lilechkaa файл не найден это ответ на вопрос - вы неверно указали путь к файлу Lilechkaa
Member
Откуда:
Сообщений: 33
Спасибо!!! Все работает! Виртуальные форумы   Темы из всех форумов за 3 дня   Мои избранные форумы Использование СУБД   Microsoft SQL Server   Firebird, InterBase   Oracle   Microsoft Access   IBM DB2, WebSphere, IMS, U2, etc   MySQL   PostgreSQL   OLAP и DWH   Sybase ASA, ASE, IQ   Informix   Другие СУБД   FoxPro, Visual FoxPro   Caché, Ensemble, DeepSee, MiniM, IRIS, GT.M   SQLite   NoSQL, Big Data Дискуcсии   Сравнение СУБД   Проектирование БД   Работа   ERP и учетные системы   Разработка информационных систем   Тестирование и QA   Отчетные системы   Просто треп   Наши за рубежом   Сертификация и обучение   Hardware   Управление процессом разработки ИС   Юридические вопросы в ИТ Microsoft.NET   WinForms,.Net Framework   ASP.NET   ADO.NET, LINQ, Entity Framework, NHibernate, DAL, ORM   WPF, Silverlight   WCF, Web Services, Remoting Программирование   Delphi   C++   Visual Basic   Программирование   Java   Разработка под мобильные платформы   PowerBuilder   Microsoft Office   SharePoint   XML, XSL, XPath, XQuery Web Технологии   PHP, Perl, Python   HTML, JavaScript, VBScript, CSS Администрирование ОС   Windows   Unix-системы   Другие: Mac OS, PalmOS, BeOS, PocketPC SQL.RU   Обсуждение нашего сайта   Вопрос-Ответ   Test
Источник: http://www.sql.ru/forum/1087272/privyazka-makrosa-k-knopke-v-eksel


Поделись с друзьями



Рекомендуем посмотреть ещё:



Как сделать кнопку в Excel. Кнопка с макросом Интересные свойства Обвязка низа крючком схемы

Как привязать макрос к кнопке в excel Как привязать макрос к кнопке в excel Как привязать макрос к кнопке в excel Как привязать макрос к кнопке в excel Как привязать макрос к кнопке в excel Как привязать макрос к кнопке в excel Как привязать макрос к кнопке в excel

ШОКИРУЮЩИЕ НОВОСТИ