звонить из еклель

[ura12345678]

подскажите как звонить из ексель, есть юсб модем есть список клиентов задолбался кнопки на мобильнике клацать. буду очень благодарен

[EducatedFool]

Можно, например, так (если надумаете звонить через софтфон - программный телефон):
http://excelvba.ru/code/Sippoint
http://excelvba.ru/code/PhoneCall

В вашем случае, надо искать немного другой код (универсальный мне не попадался)

---------------- добавлено позже — вдруг кому пригодится ---------------------

Недавно нашел программу, которая умеет подключаться к мобильному телефону и набирать номер.

Никакой макрос в этом случае писать не придется - программа сама установит надстройку, так что звонить Вы сможете кликнув правой кнопкой мыши по выделенной ячейке и выбрав в контекстном меню "Позвонить", только эту функцию после установки необходимо активировать, как описано вот здесь:
http://telefum.com/dokument/integration/office/excel/

Вот небольшая видеопрезентация того, как это работает: http://telefum.com/excel_call/

Если же вы хотите звонить (или отправлять СМС) при помощи макроса - то сделать это совсем несложно,
достаточно вызвать программу Zvonilka.exe с параметрами телефонного номера:

C:/Program Files/Zvonilka/Zvonilka.exe -Номер_телефона

[ura12345678]

спасибо, за ответ подскажите куда эти коды всавить, что почитать что понять в какую сторону копать

[The_Prist]

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

спасибо, за ответ подскажите куда эти коды всавить, что почитать что понять в какую сторону копать

Что такое макрос и где его искать?
Что такое модуль? Какие бывают модули?

[ura12345678]

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

[The_Prist]

Вам же сразу дали ссылки на коды, которые подходят к Вашей задаче. Вставляете их в стандартный модуль и пробуете.

[ura12345678]

Sub CallWithSIPPOINT(ByVal number$)
' пытается набрать номер number$ в программе SIPPOINT
On Error Resume Next: Err.Clear: res = 0

Hwnd& = FindWindow("TForm1", "Sippoint ") ' получаем Hwnd& окна запущенного приложения
If Hwnd& = 0 Then ' программа не найдена среди запущенных приложений
SIPPOINTpath$ = Environ("ProgramFiles") & "\Sippoint\Sippoint.exe"
If Dir(SIPPOINTpath$, vbNormal) = "" Then Exit Sub ' выход (программа не найдена)
' pid& = Shell(SIPPOINTpath$): DoEvents ' запускаем программу
MsgBox "Программа «Sippoint» не запущена!", vbExclamation, "Набор номера невозможен": Exit Sub
End If
If Hwnd& = 0 Or Err > 0 Then Exit Sub ' так и не удалось запустить программу - выходим из макроса

TsPanel1& = FindWindowEx(Hwnd&, 0, "TsPanel", vbNullString)
TsPanel2& = FindWindowEx(Hwnd&, TsPanel1&, "TsPanel", vbNullString)
TsPageControl& = FindWindowEx(TsPanel2&, 0, "TsPageControl", vbNullString)
TsTabSheet& = FindWindowEx(TsPageControl&, 0, "TsTabSheet", vbNullString)
While FindWindowEx(TsTabSheet&, 0, "TVirtualStringTree", vbNullString) <> 0
TsTabSheet& = FindWindowEx(TsPageControl&, TsTabSheet&, "TsTabSheet", vbNullString)
Wend
TsEdit& = FindWindowEx(TsTabSheet&, 0, "TsEdit", vbNullString)
SendButton& = FindWindowEx(TsTabSheet&, 0, "TsBitBtn", vbNullString)

' вводим заданный текст в поле для номера в программе sippoint
res = res - SendMessage(TsEdit&, WM_SETTEXT, 3, number$)

' нажимаем кнопку ВЫЗОВ
res = res - SendMessage(SendButton&, WM_LBUTTONDOWN, 0, vbNullString)
res = res - SendMessage(SendButton&, WM_LBUTTONUP, 0, vbNullString)

If TsEdit& * SendButton& Then Debug.Print "Набран номер " & number$
End Sub

[ura12345678]

что подправить?

[Казанский]

ОФФ
> я создал свой первый макрос при нажатии на кнопку вылазит надпись привет тупой олень

Вот ведь как бывает! В программе написано "Hello World", а выводится "привет тупой олень"

[ura12345678]

подправил путь к своей программе но почемуто она не запускается