Не срабатывает макрос запуска программы

[IgorGO]

причин может быть много, что происходит (должно было происходить) в макросе Блок_2 никто, кроме Вам не знает.

начнем с того, что может не корректно работать обращение к ячейкам.
макрос

Sub Test()
  MsgBox Range("a1")
End Sub

будет показывать содержимое ячейки А1 АКТИВНОГО ЛИСТА, сделайте активным другой лист, выполните макрос, получите новое сообщение.

[Hugo121]

Ещё возможно такое - у Вас Лист4.Блок_2, а у меня Sheet4.Блок_2

[Nicolas_46]

вот код который запускает макросы.

Sub Расчетное_исследование()
On Error Resume Next

    Range("N3").Select
    Selection.Copy
    Range("M8").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
Call Лист4.Замена_значения_LZ 'этот запуск работает нормально.
Kill ThisWorkbook.Path & "\rez02.re"

Shell Chr(34) & ThisWorkbook.Path & "\saprks3.exe" & Chr(34)


    Dim fs As Object, fileEx As Boolean, t!
    t = Timer
    Set fs = CreateObject("Scripting.FileSystemObject")
    Do While Not fileEx
        fileEx = fs.FileExists(ThisWorkbook.Path & "\rez02.re")
        DoEvents
        If Timer - t > 5 Then GoTo Аварийное_завершение
    Loop

    Call Лист4.Блок_2  

    Exit Sub
    
Аварийное_завершение:
msgbox "файл результата отсутствует!"
End Sub

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

Sub Блок_2()
On Error Resume Next
Application.ScreenUpdating = False
Dim strFileName As String
Dim strFileTitle As String
strFileTitle = "REZ02.re"
strFileName = ThisWorkbook.Path & "\REZ02.re"
If Dir(strFileName) <> "" Then
Else: GoTo meeee
End If

Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile(ThisWorkbook.Path & "\rez02.re", 1)
arrstr = Split(ts.ReadAll, vbCrLf)    'массив строк текста целиком
ts.Close

Set outFile = fso.CreateTextFile(ThisWorkbook.Path & "\rez02.re")
For i = 0 To UBound(arrstr)
    If Len(Trim(arrstr(i))) > 0 Then
        If Trim(arrstr(i)) <> "ZAPAS<1 ,УCЛOBИE KOЭФФИЦИEHTOB ЗAПACA HE BЫПOЛHEHO" Then
           outFile.WriteLine arrstr(i)
        End If
    End If
Next

outFile.Close

Sheets("Блок 2").Visible = True
Sheets("Блок 2").Select

Dim TextLine
i = 1
Open ThisWorkbook.Path & "\rez02.re" For Input As #1
Do While Not EOF(1)
Line Input #1, TextLine

If i = 10 Then
    Range("C11").Select
    ActiveCell.FormulaR1C1 = Mid(TextLine, 28, 8)
End If
If i = 10 Then
    Range("D11").Select
    ActiveCell.FormulaR1C1 = Mid(TextLine, 42, 8)
End If
If i = 10 Then
    Range("E11").Select
    ActiveCell.FormulaR1C1 = Mid(TextLine, 58, 8)
End If

If i = 12 Then
    Range("C12").Select
    ActiveCell.FormulaR1C1 = Mid(TextLine, 28, 8)
End If
If i = 12 Then
    Range("D12").Select
    ActiveCell.FormulaR1C1 = Mid(TextLine, 42, 8)
End If
If i = 12 Then
    Range("E12").Select
    ActiveCell.FormulaR1C1 = Mid(TextLine, 58, 8)
End If
 
If i = 14 Then
    Range("C13").Select
    ActiveCell.FormulaR1C1 = Mid(TextLine, 28, 8)
End If
If i = 14 Then
    Range("D13").Select
    ActiveCell.FormulaR1C1 = Mid(TextLine, 42, 8)
End If
If i = 14 Then
    Range("E13").Select
    ActiveCell.FormulaR1C1 = Mid(TextLine, 58, 8)
End If




i = i + 1
Loop
Close #1
Exit Sub
meeee:
msgbox "Результат расчета №2 отсутствует"
End Sub

[Hugo121]

Проверил - да нет, всё что задано удаляет...

Вы ведь точно скопировали код из http://www.programmersforum.ru/showt...ZAPAS%26lt%3B1
Путь только подменили.

Нужно видеть текстовый файл - может там нет больше разделителя строк vbCrLf

[Nicolas_46]

Скопировал все верно, если запускать макрос с кнопки, все работает, но если макрос запускается в ходе выполнения первого кода то не работает удаление строк. Не понимаю почему так происходит(

[Hugo121]

Получается что не срабатывает строка

Set outFile = fso.CreateTextFile(ThisWorkbook.Path & "\rez02.re")

Не вижу причины - раз считывание происходит, то и создание нового файла должно происходить.
Или оно пишет на выход все строки - проверьте, срабатывает ли строка

 outFile.WriteLine arrstr(i)

Если да - то нужно смотреть, что там в файле, что в пустых с виду строках и в той, которая должна выкидываться. Думаю, там что-то изменилось.

[Nicolas_46]

А может быть такой вариант, что какие-нибудь запушенные функции первого кода не дают запускаться функциям из второго.

потому что когда програмно последовательно запускаю оба макроса то работает нормально.

Call Лист4.Расчетное_исследование
Call Лист4.Блок_2

сам файл проверил, он в порядке.

[Hugo121]

Попробуйте заменить outFile на ts