Sub KopirovanieIVstavkaVSpisok()
Dim s As String, MyFiles As String, MyRange As String, MyRange2 As String, wb As Workbook


Application.DisplayAlerts = False
Application.ScreenUpdating = False
Application.AskToUpdateLinks = False

MyFiles = "C:\Users\User\Desktop\Papka3\"
s = Dir(MyFiles & "*.xls")
Do While s <> ""
    With Workbooks.Open(MyFiles & s)
        
        ' To copy file
        Set wb = Workbooks.Open(MyFiles & s)
        Range("D1").Select ' .Worksheets("Лист1").
        Selection.Copy
                        
        ' To insert file
        ThisWorkbook.Worksheets("Лист2").Select
        MyRange = "A" & ThisWorkbook.Worksheets("Лист2").Cells.SpecialCells(xlCellTypeLastCell).Row + 1
        ThisWorkbook.Worksheets("Лист2").Range(MyRange).Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        
        
        ' To copy file
        Set wb = Workbooks.Open(MyFiles & s)
        Range("G8").Select ' .Worksheets("Лист1").
        Selection.Copy
        
        ' To insert file
        ThisWorkbook.Worksheets("Лист2").Select
        MyRange2 = "B" & ThisWorkbook.Worksheets("Лист2").Cells.SpecialCells(xlCellTypeLastCell).Row + 1
        ThisWorkbook.Worksheets("Лист2").Range(MyRange2).Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        
        .Close SaveChanges:=True
        
    End With
    s = Dir
Loop

Application.DisplayAlerts = True
Application.ScreenUpdating = True
Application.AskToUpdateLinks = True

End Sub

pip instal lxml
from lxml import objectifypath = 'C:\Users\User\Desktop\Nezavisimai osenka\O_Rezultatax_Ozenki\data-20200525T213536-structure001-20151020T000000.xml/
parsed = objectify.parse(open(path))
root = parsed.getroot()
data = []
skip_fields = ['ns2:PPO_NAME', 'ns2:OPF_NAME'
'ns2:SCOPE_CODE, 'ns2:SCOPE_NAME', ns2:RATING_YEAR]
for elt in root.ns:INDEPENDENT_RATING_ROLLOUTel:
el_data = {}
In [1]: perf = pd.DataFrame(data)
In [1]: perf.head()
Out[2]
Empty DataFrame
columns: []
Index: []

Sub KopirovanieIVstavka()
Dim s As String, p As String, MyFiles As String, MyFiles2 As String, MyVal As Range
 
Application.DisplayAlerts = False
Application.ScreenUpdating = False
 
MyFiles = "C:\Users\Users\Desktop\Papka1\"
s = Dir(MyFiles & "*.xls")
Do While s <> ""
    With Workbooks.Open(MyFiles & s)
 
' Как оформить поиск по именам файлов в Papka2 ? 
x = Left(.Dir(Myfiles, InStr(1, Dir(MyFiles, ",") - 1)
 
    ' Address to copy file
        Set MyVal = Dir(MyFiles2& "*.xls").Find(x)
        If Not MyVal Is Nothing Then
 
        ' To copy file            To insert file
       Dir(MyFiles).Range("С2") = Dir(MyFiles2).Range("D2")
        Dir(MyFiles).Range("С4") = Dir(MyFiles2).Range("D3")
        Dir(MyFiles).Range("С5") = Dir(MyFiles2).Range("D4")
        Dir(MyFiles).Range("С9") = Dir(MyFiles2).Range("D5")
        .Close SaveChanges:=True
        End If
    End With
    s = Dir
Loop
 
Application.DisplayAlerts = True
Application.ScreenUpdating = True
 
End Sub

Sub CopyPasteToNextEmptyCell()
Dim NextRow As Long
Dim MyRange As Range
Dim MyCell As Range

    Set MyRange = Workbook("A").Sheets("AAA").Range("C2:C4")

    For Each MyCell In MyRange

    MyCell.Copy
    
    Workbooks("B.xlsx").Sheets("BBB").Activate
    
    Do
    ' Identification Next Empty Row
    NextRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
       
    Workbooks("B.xlsx").Sheets("BBB").Cells(NextRow, 1).Paste
     Loop
Exit Do
    
    Next MyCell

End Sub