Set xlWb = xlApp.Workbooks.Open(sFileName)
                Set xlWs = xlWb.Worksheets(1)
                xlApp.Visible = False
                    With xlWs
                    'удаление 2 пустых строк, и считывание имени листа
                        .Rows("3:3").Replace What:=".", Replacement:="", LookAt:=xlPart, _
                            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
                            ReplaceFormat:=False
                        .Range("A1").Select
                        .Rows("1:2").Delete Shift:=xlUp
                        sNameSh = .Name
                    End With