=АГРЕГАТ(6;5;B2:B10;C2:C10)

Sub save-and-refresh

with thisworkbook
 .save
 .connections (“query - sheet4”).refresh
end with

Application.wait(now+timeserial(0, 0,15)) 

msgbox “запрос обновлен»

end sub

if Text.StartsWith([текст], "1") or Text.StartsWith ([текст], "2")  then 1 else [текст]

Sub SaveFirstSheetAsPDFwvbsfb()
    Dim filesToOpen As Variant
    Dim fileName As Variant
    Dim fileCounter As Integer
    Dim targetFolder As String
    Dim ws As Worksheet
    Dim proj_name As Integer
    
    filesToOpen = Application.GetOpenFilename("Excel files (*.xls*), *.xls*", , "Shoose your Excel files", , True)

Application.ScreenUpdating = False
    ' Задание папки назначения куда сохраняются файлы
    targetFolder = "S:\smth\smth\smth\smth\smth\smth\2023"

' Перебор выбранных файлов
    For fileCounter = LBound(filesToOpen) To UBound(filesToOpen)

        fileName = filesToOpen(fileCounter)

        Workbooks.Open fileName

        Set ws = ActiveWorkbook.Sheets(1)
        proj_name = Left(Right(ws.Cells(1, 3).End(xlDown).Offset(1, 0).Value, 4), 3)

        ws.ExportAsFixedFormat Type:=xlTypePDF, fileName:=targetFolder & "\" & "Inv " & Left(ws.Name, 31) & " summary_proj " & "proj_name" & ".pdf"
        ActiveWorkbook.Close SaveChanges:=False
    Next fileCounter
    
Application.ScreenUpdating = True
    MsgBox "Done. All sheets have been saved successfully"
    
End Sub