Sub кс()
Dim book1 As Workbook
Dim book2 As Workbook
Dim VBAEditor As VBIDE.VBE
Dim VBProj As VBIDE.VBProject
Dim VBComp As VBIDE.VBComponent
Dim CodeMod As VBIDE.CodeModule
Dim ReplaceWhat As String
Dim t As Long, i As Long, m As Long, n As Long
Set book2 = Workbooks.Open(".......")
For t = 2 To 369
i = book2.Worksheets(1).Cells(t, 1).Value
m = book2.Worksheets(1).Cells(t, 2).Value
n = book2.Worksheets(1).Cells(t, 3).Value
If n > 110 Then
GoTo Label1
End If
Set VBAEditor = Application.VBE
Set book1 = Workbooks.Open("......")
Set VBProj = book1.VBProject
Set VBComp = VBProj.VBComponents("Module1")
Set CodeMod = VBComp.CodeModule
ReplaceWhat = "If (C.Offset(0, -3).Value = ЛОЖЬ Or C.Offset(0, 1).Value = 0 Or C.Offset(0, -7).Value <> ЛОЖЬ Or C.Offset(0, -8).Value <> ЛОЖЬ) And k = -2 Then"
CodeMod.ReplaceLine m, ReplaceWhat
Application.Calculate
book1.Save
book1.Close
Set VBAEditor = Nothing
Set VBProj = Nothing
Set VBComp = Nothing
Set CodeMod = Nothing
Label1:
Next t
book2.Save
book2.Close
End Sub
Можно ли найти и заменить определенный элемент в строке ?
Например:
А код-то где? Mid работает с текстовой переменной. Если код в модуле текущей компилированной программы, то это уже псевдокод, в котором хрен чё поменять.
