Засветился и ... заразился

Категория: , просмотров: 1261, опубликовано: 10.11.2009

Компьютерный мегапортал 3Dnews опубликовал статью про полезные надстройки для Microsoft Excel, где среди прочих упоминается и мой PLEX. Продолжаю работу над завоеванием вселенной, да.

А еще я словил-таки грипп (надеюсь, что не тот самый швайногрипп) - и теперь "наслаждаюсь" полным букетом температура-кашель-сопли. Пришлось отменить все группы на ближайшие 3 дня - не хочу делиться своим вирусом со слушателями, да и разговаривать-то могу с трудом, вообще говоря. Так что побуду некоторое время дома, имейте ввиду, кому буду нужен...

Комментарии:

Юрий
11.11.2009		 Николай, выздоравливайте быстрее!!!.
LeoCats
21.01.2010		 "После инсталляции набора макросов PLEX (431 кб; 500 руб.; демо-версия на 500 запусков) в окне Excel ровным счетом ничего не добавится, и придется еще потрудиться."

Почему бы не написать скрипт который будет автоматически подключать Вашу надстройку? Я вот написал и использую для своих надстроек следующий скрипт:

'+-------------------------------------------------------------------------------------+
' Установщтк надстроек Excel
' Автор: LeoCats
' 2008
'+-------------------------------------------------------------------------------------+
Name = "CTH.xla"
On Error Resume Next:Err.Clear:Instaler(Name)
if err.number <>0 then msgbox "Add-In <" & Name & "> cannot be executed!" & vbCrLf & Err.Number & " - " & Err.Description,vbCritical,"ERROR!"
Sub Instaler(AddInName)
On Error Goto 0
if msgbox ("This script is install/uninstall Add-In <" & AddInName & "> to Excel, continiue?",vbyesno+vbquestion,"Install/Uninstal Add-In Excel")=vbno then wscript.quit
Dim sPath, oApp, oWB, oAddIn
sPath = left(wscript.scriptfullname, len( wscript.scriptfullname) - len(wscript.scriptname)) & AddInName
Set oApp = CreateObject("Excel.Application")
Set oWB = oApp.Workbooks.Add
For each oAddIn in oApp.AddIns
if oAddIn.FullName = sPath then
if oAddIn.Installed = False then
oApp.DisplayAlerts = False:oAddIn.installed = True:oApp.DisplayAlerts = True:oApp.Visible = True
msgbox "Add-In <" & AddInName & "> was successfully install!",,"Install is complete!"
Set oApp = nothing: Set oWB = nothing: sPath =""
Exit Sub
else:
oApp.DisplayAlerts = False:oAddIn.installed = False:oApp.DisplayAlerts = True:oApp.Visible = True
msgbox "Add-In <" & AddInName & "> was successfully uninstall!",,"Uninstall is complete!"
Set oApp = nothing: Set oWB = nothing: sPath =""
Exit Sub
End if
End if
Next
oApp.DisplayAlerts = False:oApp.AddIns.Add(sPath).installed = True:oApp.DisplayAlerts = True
msgbox "Add-In <" & AddInName & "> was successfully install!",,"Install is complete!":oApp.Visible = True
End sub

Необходимо создать текстовый документ, изменить расширение на vbs и скопировать туда код моей программы выше. Необходимо указать имя своей надстройки Name = "CTH.xla". Далее только что созданный скрипт необходимо сохранить в ту же папку где находится и сама надстройка. Все! Запустите скрипт и он автоматически подключит/отключит Вашу надстройку!

Почему бы не включить подобный VBScript в Вашу надстройку и запускать её при инсталляции? Тогда никто больше не скажет "придется еще потрудиться" да и процесс установки будет автоматизирован полностью!

За идею - 5% от продаж :)))))))))))))))))).
Natali
19.03.2010		 Почитайте книги Лазарева www.lazarev.ru
Надеюсь вам понравятся..

Добавить комментарий к статье
Ваше имя:
Ваш E-mail: Уведомлять меня о новых комментариях по этой статье

Текст комментария:

 
Введите код с картинки: