• dvim
  • Восстановленный участник
  • На форуме с 13 февраля 2004г.
  • Сообщений: 88
  • Спасибо: 0

Тема: Удаление макроса eXceL

Как можно из AcadVBA или из excelVBA удалить макрос?
Он нужен для расчетов, а после их проведения просто занимает много места в файле данных. Писать в Каде весь код - слишком медленное экспортирование в excel

  • Leonid R
  • Восстановленный участник
  • На форуме с 4 июля 2003г.
  • Сообщений: 14
  • Спасибо: 0

Re: Удаление макроса eXceL

Этот пример комментирует макрос в шаблоне Word, может чем -нибудь поможет.

'Получение модуля шаблона в котором записаны макросы
Public Function getLeoModule(curDocum As Object) As VBComponent
 Set getLeoModule = Nothing
On Error GoTo newModule
 Set getLeoModule = curDocum.VBProject.VBComponents(leoModule)
 If vbext_ct_StdModule <> getLeoModule.Type Then
   Set getLeoModule = Nothing
 End If
 Exit Function
newModule:
End Function
'удаление процедуры обработки значения поля слияния
Private Function deleteOldSub(module As CodeModule, name As String) As Long
Dim l As Long
Dim ProcBodyFirstLine As Long
Dim ProcBodyLastLine As Long
On Error GoTo newProc
deleteOldSub = 0
deleteOldSub = module.ProcCountLines(name, vbext_pk_Proc)
ProcBodyFirstLine = module.ProcBodyLine(name, vbext_pk_Proc)
ProcBodyLastLine = ProcBodyFirstLine + deleteOldSub
  For l = ProcBodyFirstLine To ProcBodyLastLine
     module.ReplaceLine l, "'" + module.Lines(l, 1)
  Next
newProc:
End Function