отправка сообщения(с помощью net send) через Excel

suripopik Пользователь Сообщений: 62 Регистрация: 27.12.2012	#1 12.11.2010 22:08:55 Доброе время суток, Как сделать так, что бы при вводе текста и выборе имя компа в сети, эксель отправлял это сообщение? Прикрепленные файлы post_173703.xls (13.5 КБ)

Владимир Пользователь Сообщений: 8196 Регистрация: 21.12.2012	#2 12.11.2010 22:29:56 net send; - насколько мне известно, эта команда DOS_овская, для командной строки. "..Сладку ягоду рвали вместе, горьку ягоду я одна."

EducatedFool Пользователь Сообщений: 3695 Регистрация: 23.12.2012	#3 13.11.2010 00:33:48 Читаем эту тему: http://programmersforum.ru/showthread.php?t=78354&highlight=cmd.exe и делаем по аналогии: (сам я макрос не проверял, но вполне возможно, что работать будет) Sub Макрос() ОтправкаСообщенияПоСети "admin", "проверка" ОтправкаСообщенияПоСети [b13], [d6] End Sub Sub ОтправкаСообщенияПоСети(ByVal Комп As String, ByVal Сообщение As String) ' net send /users Всем немедлено выйти из 1С! Commnd = "net send " & Chr(34) & Комп & Chr(34) & " " & Chr(34) & Сообщение & Chr(34) ' или так: Commnd = "net send " & Комп & " " & Сообщение Shell "cmd.exe /c " & Commnd End Sub Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Читают тему