Sub aаaaa()

    Dim s As Variant
    Dim a As Long
    
    ReDim s(1 To 2)
    s(1) = "2=2 and 4>3"
    s(2) = "3=2"
    
    If s(1) Or s(2) Then a = 1
    
End Sub

Sub CloseAllExcel()
    Dim xlApp As Excel.Application
    
    Do
        On Error Resume Next
        Set xlApp = GetObject(, "Excel.Application")
        If Err <> 0 Then Exit Do '-- no more Excel instant
        On Error GoTo CloseAllExcel_Error
        xlApp.DisplayAlerts = False
        xlApp.Quit
    Loop
    Set xlApp = Nothing
    Exit Sub
    
CloseAllExcel_Error:
    MsgBox Err.Number & ": " & Err.Description
End Sub

dim objExcel As Variant
Set objExcel = GetObject("путь и имя файла")
objExcel.Activate 

Option Explicit
Private i As String

Sub VarSetting ()
i = Workbooks("Склад.xlsm").Worksheets("Parameters").Cells(2, 2).Value
End Sub

Sub aaa()
 Call bbb
End Sub

Sub bbb()
 exit sub aaa
End Sub

Sub CommandButton2_Click()
'Application.Calculation = xlCalculationManual
'Application.ScreenUpdating = False  'приводит к остановке макроса: "сохранение в этом формате приводит к потере данных продоложить?" 
'так же была остановка с недостатком памяти, но что жд что оперативы много было свободной, также один файл не сохранился и время выполнения макроса увеличивалось на 50%
'Application.DisplayStatusBar = False
'Application.EnableEvents = False
'ActiveSheet.DisplayPageBreaks = False
'Application.DisplayAlerts = False 'подавляет почти все системные сообщения Excel, все равно останавливается с пустым окном

Dim CSVfolder As String, _
    XlsFolder As String, _
    fname As String, _
    wBook As Workbook

 CSVfolder = "D:\csv\"
 XlsFolder = "D:\Charts\"

 fname = Dir(CSVfolder & "*.csv")

 Do While fname <> ""
    Set wBook = Workbooks.Open(CSVfolder & fname, Format:=6, Delimiter:=",")
    'wBook.SaveAs XlsFolder & Replace(fname, ".csv", ""), FileFormat:=50  Эта строка приводила к тому что файлы типа trk.kz.csv преобразовывались в trk.kz с расширением.kz
    wBook.SaveAs XlsFolder & Replace(fname, ".csv", ".xlsb"), FileFormat:=50 'FileFormat:=50 сохраняет в xlsb, 51 xlsx, 52 xlsm...
    'On Error Resume Next 'добавил строку чтобы прекратилось прерывание выполнения макроса, из-за того что выскакивает предупреждение что потеря части данных, не хватает памяти и т.д.
    wBook.Close False 'равнозначно wBook.Close SaveChanges:=False
    'wBook.Close True
    'On Error Resume Next  'добавил строку чтобы прекратилось прерывание выполнения макроса, из-за того что выскакивает предупреждение что потеря части данных, не хватает памяти и т.д.
    fname = Dir
 Loop

 
'Application.Calculation = xlCalculationAutomatic
'Application.ScreenUpdating = True
'Application.DisplayStatusBar = True
'Application.EnableEvents = True
'ActiveSheet.DisplayPageBreaks = True
'Application.DisplayAlerts = True

End Sub