FormatTime, TimeString, , dd.MM.yyyy

path_sv_ved = ......
ved = .......

Xl := ComObjCreate("Excel.Application")
svod_ved := Xl.Workbooks.Open(path_sv_ved)
Xl.Visible := True

 If (svod_ved.Worksheets(1).FilterMode)
	svod_ved.Worksheets(1).ShowAllData
	
	
svod_ved.Worksheets(1).Range("A1:AX1").AutoFilter(18, TimeString)
svod_ved.Worksheets(1).Range("A1:AX1").AutoFilter(16, "no" , xlAnd := 2, "yes")

vedom := Xl.Workbooks.Open(ved) 
Xl.Visible := True

end := vedom.workSheets(1).Cells.(vedom.workSheets(1).Rows.Count, "A").End(xlUp := -4162).Row 
vedom.workSheets(1).Range(vedom.workSheets(1).Cells(3,16), vedom.workSheets(1).Cells(end,17)).Copy


svod_ved.workSheets(1).cells.(......).PasteSpecial ?????????????????????????????????????????