Первая часть сейчас работает [
У меня есть следующее, которое, кажется, зависает; часть, которая добавляет / удаляет модуль, работает при работе в VBA
Я отмечаю, что у меня появляется диалоговое окно с надписью «эта книга содержит ссылки на другие источники данных», которое мне подходит, затем оно зависает
Итак, я попытался установить второй аргумент в 0, а также попробовал 2, но все равно зависает
(2-й аргумент - UpdateLinks, который можно найти здесь )
]
dim objExcel
dim objWorkbook
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open( "H:\M\X\C.xls", 0 , , ,"PASSWORD!" )
Const modpath = "H:\M\V\"
Const modtest = "TEST.cls"
Const modname = "TEST"
On Error Resume Next
Dim vbcomp
Set vbcomp = ActiveWorkbook.VBProject.VBComponents(modname)
objWorkbook.VBProject.VBComponents.Remove vbcomp
objWorkbook.VBProject.VBComponents.Import modpath & modtest
objWorkbook.Save
objWorkbool.Close
set vbcomp = nothing
set objworkbook = nothing
set objExcel = nothing
отредактировано снова 14.04.2009
Теперь я также разрешил «инструменты - макрос - безопасность - доступ к vbproject»
Сценарий теперь завершается, однако, при попытке открыть xls, чтобы увидеть, были ли внесены изменения, я получаю сообщение о том, что лист заблокирован «учетной записью, используемой для запуска сценария»; открыть «только для чтения» / уведомить
Почему неправильно отпускается управление **? **