Использование dll бибилотеки или функции для склонения ФИО

[Yakovenko]

Всем привет! Почерпнул очень много полезнои инфы на этом форуме. Только вот возникла одна проблемка и не знаю как решить. Необходимо чтобы Excel склонял ФИО в винительный падеж. Нашел функцию для родительного, пробовал переписать и ничего не вышло, нашел библиотеку склонений, но при попытке написать функцию для обращения к ней столкнулся с еще большей проблемой, обращение происходит, но действие не выполняется. Библиотеку приложил, а код для склонения в родительный можно посмотреть здесь :http://programmersforum.ru/showthread.php?t=56924 Помогите пожалуйста, может у кого уже есть код готовый.

[doober]

Попробуйте так

Private Sub CommandButton1_Click()
fio = "Иванив Иван Иванович"
Set Decl = CreateObject("Padeg.Declension")
For n = 1 To 6
MsgBox n & "-" & Decl.GetFIOPadegFS(fio, "", n)
Next
Set Decl = Nothing
End Sub

[Yakovenko]

Что то положительных изменений я не вижу, но все равно спасибо!


------------- примечание модератора --------------------
Функции склонения, для использования в макросах,
или в качестве пользовательской функции на листе Excel:

Родительный падеж на VBA
Дательный падеж на VBA

[doober]

Если это не подходит,тогда не пойму какой результаг вы ожидаете

[morpher]

Есть уже готовая настройка для Excel, которая делает в точности то, что вам нужно - склоняет фамилии и должности:

http://morpher.ru/Products/XLL