GSerg писал(а):Вообще - Microsoft Office\OfficeXX\funcs.xls
Конкеретно - DEC2BIN
dim b as string
err.clear
on error resume next
b=cstr(application.run("дес.в.дв",123))
on error goto 0
if err.number then msgbox "Пакет анализа не установлен!",vbcritical
GSerg писал(а)::salut:
- Код: Выделить всё
dim b as string
err.clear
on error resume next
b=cstr(application.run("дес.в.дв",123))
on error goto 0
if err.number then msgbox "Пакет анализа не установлен!",vbcritical
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 82