|
|
|
Forum Member
 
участник
Last Login: 18.07.2008 10:49
Сообщ.: 39,
Visits: 322
|
|
Такой вод код:
Sub gh()
d = ActiveWorkbook.VBProject.VBComponents.Item("Module2").CodeModule.Lines(2, 1) - читает строку модуля 2 нормально
ActiveWorkbook.VBProject.VBComponents.Item("Module2").CodeModule.DeleteLines 2, 1 - нчего не происходит
ActiveWorkbook.VBProject.VBComponents.Item("Module2").CodeModule.ReplaceLine 2, "новая" - ничего не происходит
ActiveWorkbook.VBProject.VBComponents.Item("Module2").CodeModule.InsertLines 1, "yjdfz" - ничего не происходит
End Sub
Почему так? Может подключить чего надо?
|
|
|
|
|
Supreme Being
участник
Last Login: 14.12.2007 16:53
Сообщ.: 100,
Visits: 1 707
|
|
| Точно не знаю, но начиная с MS Excel XP - Серсис/Макрос/Безопасность/Надежные источники/ установить флажок Доверять доступ к Visual Basic Project
|
|
|
|
|
Forum Member
участник
Last Login: 18.07.2008 10:49
Сообщ.: 39,
Visits: 322
|
|
| Не... Это понятно, без этого не работает... Попробовал дома на XP - модули удаляет без вопросов, строки удаляет, но ругается.... Я так понимаю это виндовые глюки :))) И ничем не спастись :))
|
|
|
|