код на вба был мною написан давно для работы
появилась потребность спрятать его от сторонних глаз
решил спрятать его в длл
начал пробывать с простого
написания функции в длл и ее вызова

блин не пойму в чем дело выдает ошибку Ран Тайм 429 и все тут

Винда 7 *64, визуал студия 2008, офис 2010 *64


в визуал студии

автор
Imports System
Imports System.Collections.Generic
Imports System.Text

Namespace DotNetLibrary

<ComClass(DotNetClass.ClassId, DotNetClass.InterfaceId, DotNetClass.EventsId)> _
Public Class DotNetClass

#Region "Идентификаторы COM GUID"
' Данные GUID обеспечивают идентификацию COM для данного класса
' и его COM-интерфейсов. При их изменении существующие
' клиенты потеряют доступ к классу.
Public Const ClassId As String = "92d77f83-80ed-4417-855d-424be509214a"
Public Const InterfaceId As String = "4b7e3a60-cfc6-4a52-9a23-c1717fba236c"
Public Const EventsId As String = "f3b1bfc4-770b-4ce0-a263-1f6800239027"
#End Region

' В классе COM, для которого разрешено создание, должна присутствовать процедура Public Sub New()
' без параметров, иначе класс не будет
' зарегистрирован в реестре COM и его будет невозможно создать
' посредством CreateObject.

Public Sub New()
End Sub

Public Function DotNetMethod(ByVal input As String) As String
Return "Hello " & input
End Function

End Namespace



в офисе

авторPrivate Sub CommandButton4_Click()
Dim testClass As New DotNetClass
'On Error Resume Next
MsgBox testClass.DotNetMethod("World") <== останавливается здесь
End Sub



COM Class выставлен в True
Сделать сборку видемой для КОМ галачка поставленна
Регистрация для КОМ взаимодействия галочка поставлена

с помощью regsvr32 библиотека зарегистрирована пишет успешно

что еще нужно ума не приложу
2 дня без успешной битвы

ПОМОГИТЕ ПОЖАЛУЙСТА!

Ципихович ЭндрюAert,

>Винда 7 *64, визуал студия 2008, офис 2010 *64

Круто, новый виток в жизни, респект, это ж всё летает

Клоун а по делу есть что сказать?
Если можно не пиши пожалуйста сюда...

Shocker.ProAert,

У вас вопрос, собственно, по .NET-овскому коду или по офису, которые не видит нужный класс?

"Ран Тайм 429" - это вся ошибка или текст есть? Или нам нужно коды ошибок выучить?

замените
на
экземпляр создается успешно?


менял тогда ошибка вот тут
Set testClass=New DotNetClass

а что значит создается экземпляр успешно?

Shocker.Pro,

так я ж и пишу что это мой первый класс
потребности в них не было...

мне бы один рабочий пример... типа хеллоу ворд)
дальше бы сам

Shocker.ProСделайте так:


Set testClass=CreateObject("DotNetClass") <== ошибка тут
при наведении пишет что testClass = Nothing

Shocker.Pro,
блин чую идеи и охота помочь отпала ((
ну все равно большое спасибо...
может еще у кого нибудь возникнут какие нибудь идеи...

Shocker.Pro,

извините написал ошибку в самом начале но по русски и не полностью
вот как реально она выглядит
Run-time error '429' ActiveX component can't create object

еще добавлю когда смотрю в офисе Object Browser
библиотека моя + классы + их члены все видно
чего ж гады работать не хотят не понимаю ... уже руки опускаться начинают

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

глянул в реестре зарегена вот тут
HKEY_CLASSES_ROOT\fromSap.DotNetLibrary.DotNetClass

прикреплю на всякий случай файлики
вдруг желание поглядеть будет