Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Привязка макроса к кнопке в эксель / 14 сообщений из 14, страница 1 из 1
06.04.2014, 13:48
    #38606423
Lilechkaa
Lilechkaa
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Привязка макроса к кнопке в эксель
Добрый день!
как привязать к кнопке в эксель данный код, чтоб кнопка открывала при нажатии вордовский файл

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
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
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.04.2014, 14:49
    #38606459
Lilechkaa
Lilechkaa
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Привязка макроса к кнопке в эксель
Хоть примерно как привязать это макрос excel 2007 , может литература есть какая
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.04.2014, 14:54
    #38606462
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Привязка макроса к кнопке в эксель
Правой кнопкой мыши на свою кнопку нажмите - увидите пункт "назначить макрос".
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.04.2014, 15:03
    #38606467
Lilechkaa
Lilechkaa
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Привязка макроса к кнопке в эксель
пробовала не помогает, выводит ошибку на строке "On Error Resume Next" с уведомлением
"Invalid outside procedure"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.04.2014, 15:08
    #38606473
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Привязка макроса к кнопке в эксель
Когда нажимаете "создать макрос" не надо стирать те две строки, которые там напишутся автоматически - надо вставить текст программы между ними
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.04.2014, 15:20
    #38606485
The_Prist
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Привязка макроса к кнопке в эксель
Как создать кнопку для вызова макроса на листе?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.04.2014, 15:20
    #38606486
Lilechkaa
Lilechkaa
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Привязка макроса к кнопке в эксель
теперь он открывает чисто вордовский файл, а конкретно тот документ не видит
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.04.2014, 16:14
    #38606508
Lilechkaa
Lilechkaa
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Привязка макроса к кнопке в эксель
путь к файлу указан верно, в чем может быть причина? он открывает только новый "вордовский" файл
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.04.2014, 16:34
    #38606521
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Привязка макроса к кнопке в эксель
внесите изменение в макрос:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
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")
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.04.2014, 16:44
    #38606524
катастрофа
катастрофа
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Привязка макроса к кнопке в эксель
If err Then
if err then
повторение мать учения?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.04.2014, 16:53
    #38606527
Lilechkaa
Lilechkaa
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Привязка макроса к кнопке в эксель
все равно не находит( , ошибка "5174" файл не найден
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.04.2014, 16:59
    #38606532
катастрофа
катастрофа
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Привязка макроса к кнопке в эксель
Lilechkaa,
у меня открывает нужное
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.04.2014, 17:02
    #38606534
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Привязка макроса к кнопке в эксель
Lilechkaaфайл не найденэто ответ на вопрос - вы неверно указали путь к файлу
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.04.2014, 18:15
    #38606568
Lilechkaa
Lilechkaa
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Привязка макроса к кнопке в эксель
Спасибо!!! Все работает!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Привязка макроса к кнопке в эксель / 14 сообщений из 14, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 451ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2174126]:
 0ms
get settings:
 10ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 52ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 47ms
get tp. blocked users:
 2ms
others: 309ms
total:  451ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]