用VBE 提取EXCEL数据

Sub CommandButton1_Click()
Filename = Application.GetOpenFilename(FileFilter:="Excel ,*.xls*", Title:="Choose Files", MultiSelect:=True)
If Not IsArray(Filename) Then Exit Sub
Application.ScreenUpdating = False
For i = 1 To UBound(Filename)
Set xlbook = Workbooks.Open(Filename(i))
Range("E5") = xlbook.Sheets("一组").[K3]
Range("B5") = xlbook.Sheets("一组").[D3]
Range("H5") = xlbook.Sheets("一组").[U3]
Range("E6") = xlbook.Sheets("一组").[K3]
Range("B8") = xlbook.Sheets("一组").[B6]
Range("B9") = xlbook.Sheets("一组").[B7]
xlbook.Close
Next i
Application.ScreenUpdating = True
End Sub

数据提取后要另存为，以E5单元格数据为名称，路径以提取数据的EXCEL表的路径，请帮忙增加代码，谢谢

在工作表标签上击右键，查看代码。

在VBE窗口中，点“插入”，模块。将以下代码粘贴到模块代码窗格中，ALT+F8运行该宏，就行了。
附件中有样本。

Sub 数据提取()
For i = 2 To Worksheets.Count
Sheets(1).Cells(Sheets(1).[a65536].End(3).Row + 1, 1) = Sheets(i).[D3]
Sheets(1).Cells(Sheets(1).[b65536].End(3).Row + 1, 2) = Sheets(i).[e6]
Next
End Sub

虽然我很聪明，但这么说真的难到我了