将excel连接到skype。参考错误

Question

所以我试图配对skype和excel。但我似乎无法让它运行。我以为我选择了正确的引用，甚至直接选择了SkypeComLib.dll，但无济于事。我已经包含了我选择的参考照片以及错误。我试图运行的代码是我在网上找到的一个示例。调试突出显示“Set aSkype = New SKYPE4COMLib.Skype”error message

references

Sub Test()

Dim aSkype As SKYPE4COMLib.Skype
Set aSkype = New SKYPE4COMLib.Skype
Dim oChat As Chat
Dim skUser As SKYPE4COMLib.User
Set skUser = aSkype.User("user_name")
Set oChat = aSkype.CreateChatWith(skUser.Handle)
oChat.OpenWindow
oChat.SendMessage "automated message"

End Sub