Как сделать из файла.xls установочный файл?

[Евген]

У меня в проекте подключено много библиотек и при переносе на другие машины приходиться самому возиться с настройкой... Вот и вопрос - возможно ли сделать инсталяшку?

[Vitaly1]

Инсталяцию сделать можно. Для этого надо переписывать при помощи программного кода файл проекта в "надстройки".

[Евген]

Если не сложно, можно поподробней или может пример есть какой?

[Vitaly1]

Пример, к сожалению могу принести только в пятницу.

Могу сказать следующее:
в вворде я делал установкку из двух файлов, один из них установка, другой проект, записывающиййся в надстройки.
Запиши макрос прописывыющий файл в надстройку (меню: сервис надстройки)
Если не понятно, пример придется ждать.

[Евген]

Понятно... на половину, что ты этот (второй) файл подрубаешь через поднастройки, а не понятно что в нем прописывать
Подожду время терпит...

[Георгий]

Сохрани книгу как *.xla - "Сохранить как" и в типе выбери "Надстройка Microsft Excel". Потом на win9x надо положить этот файл в %WinDir%/Application Data/Microsoft/AddIns/, а на XP,2000,NT - в %SystemDrive%/Documents and Settings/<имя пользователя>/Application Data/Microsoft/AddIns/. Теперь грузи Excel, открывай "Сервис -> Надстройки" там будет надстройка по имени твоего файла. Если отметиш галочкой, она будет запускаться сама постоянно при запуске Excel.

[Vitaly1]

Георгий, все правильно, только есть еще одна директорияпри записи в которою надстройка становится активной при запуске приложения.

Даю пример для Word, но думаю, что переделка под excel не вызовет проблем:

Private Sub CommandButton1_Click()
Dim n As Long, i As Long


'запоминаем име файла с установкой
s = ActiveDocument.Path + "\" + ActiveDocument.Name

On Error Resume Next
'снимаем флаг бывшей установки
AddIns(Options.DefaultFilePath(Path:=wdStartupPath) + "\Имя шаблона с макросами.dot").Installed = False
'открываем устанавливаемый проект
Documents.Open ActiveDocument.Path + "\" + "Имя шаблона с макросами.dot"
'сохраняем его в папку с самозагружаемыми надстройками
ActiveDocument.SaveAs FileName:= _
Options.DefaultFilePath(Path:=wdStartupPath) + "\Имя шаблона с макросами.dot", fileFormat:=wdFormatTemplate

MsgBox "Установка завершена!" + Chr(13) + "сейчас произойдет закрытие Word" + Chr(13) + "После открытия Word будет доступен"
'сохраняем установку, что б не ругалась перед закрытием Word
Application.Documents(s).Save
'Выходим из приложения
Application.Quit
End Sub

[Евген]

Подключить все получилось, но никак не могу вызвать формы с *.xla , что неправильно?

Код: Выделить всё

Workbooks("Otchet.xla").UserForm1.Show




[Евген]

Нашел, но получаеться не красиво: вызываю функцию в .xla и из нее уже форму...

Код: Выделить всё

Application.Run "Otchet.XLA!EvgenForm1_Call"
'Вызов функции


[Vitaly1]

Евгений

На счет запуска формы из другого проекта, думаю надо копать в сторону объекта application.VBE.VBProjects

[Евген]

А возможнен обратный процесс из XLA в XLS?

[Евген]

Пример, к сожалению могу принести только в пятницу.

А какую пятницу Вы имели в виду?

[Vitaly1]

А какую пятницу Вы имели в виду?

Я имел ввиду прошлую пятницу, но принес пример раньше ее, я же написал код программы, и он же у вас, Евгений, заработал?! Сами же писали!

[Евген]

Работает... у меня на машине. Переношу на "чистую" машину и приехал..
MISSING: comctl32.ocx, richtx32.ocx, dblist32.ocx
Возможно их как нидь подоткнуть туда?

[Vitaly1]

Ну не знаю... Может быть Excel на другой машине криво установлен?

Ну а если какие либо особые файлы, то их надо копировать средствами VB в нужную директорию.