VBA и Skype

Пользователь

Сообщений: 17 Регистрация: 01.01.1970

05.02.2011 23:53:06

Добрый день!

Подскажите пжл как добавить ссылку на внешнюю библиотеку и использовать ее в ВБА
Хочу отправить сообщение из Экселя в Скайп

в VB.Net и шарпе все просто и понятно, но напрямую в VBA не транслируется

в VB.Net код выглядит так

Imports SKYPE4COMLib

Sub SendSkype()

Dim oSkype As SKYPE4COMLib.Skype
Dim oChat As SKYPE4COMLib.Chat
oChat = oSkype.Chat("#имя_чата")
oChat.SendMessage (TextBox1.Text)
End Sub

Как подключить библиотеку и написать аналог этого в VBA ?

ZVI Пользователь Сообщений: 4628 Регистрация: 23.12.2012	#2 06.02.2011 00:11:06 Вместо Imports SKYPE4COMLib нужно в VBE – Tools – References установить галочку для Skype4COM 1.0 Type Library При этом Sub SendSkype() - без изменения. Код компилируется без ошибок, значит должен работать, если работает в .NET

Guest

Гость

06.02.2011 01:37:07

{quote}{login=ZVI}{date=06.02.2011 12:11}{thema=}{post}Вместо Imports SKYPE4COMLib нужно в VBE – Tools – References установить галочку для Skype4COM 1.0 Type Library
При этом Sub SendSkype() - без изменения.
Код компилируется без ошибок, значит должен работать, если работает в .NET{/post}{/quote}

спасибо, вкл. и заработало

ZVI Пользователь Сообщений: 4628 Регистрация: 23.12.2012	#4 06.02.2011 01:56:00 По идее, VBA-код может быть таким: Dim oSkype As New Skype Sub SendSkype() oSkype.Chat("#имя_чата").SendMessage TextBox1.Text End Sub

EducatedFool Пользователь Сообщений: 3697 Регистрация: 23.12.2012	#5 06.02.2011 10:25:56 Или таким: (после подключения библиотеки SKYPE4COMLib) Sub SendSkype() Dim oSkype As New Skype, ch As Chat Set ch = oSkype.CreateChatWith("Mail.ru") ch.SendMessage "проверка отправки текста через Скайп при помощи макроса" End Sub Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Читают тему