vba批量提取不同EXCEL中同一sheet的某个值

可以使用VBA编写一个宏来批量提取不同Excel文件中同一个sheet的某个值。首先需要打开需要提取数据的Excel文件，然后选定需要提取的sheet。接下来，使用VBA代码编写循环语句，逐个打开需要提取数据的Excel文件，然后读取需要提取的值。具体的代码可以参考以下示例：

Sub ExtractData()
Dim filePath As String
Dim value As Variant
Dim i As Integer

'打开第一份Excel文件
filePath = "C:\Users\username\Documents\Excel1.xlsx"
Workbooks.Open (filePath)
'选定需要提取数据的sheet
Sheets("Sheet1").Select
'读取需要提取的值
value = Range("A1").Value
'关闭Excel文件
ActiveWorkbook.Close

'循环打开其他文件，提取数据
For i = 2 To 5
'打开Excel文件
filePath = "C:\Users\username\Documents\Excel" & i & ".xlsx"
Workbooks.Open (filePath)
'选定需要提取数据的sheet
Sheets("Sheet1").Select
'读取需要提取的值
value = Range("A1").Value
'关闭Excel文件
ActiveWorkbook.Close
Next i
End Sub

注意，在实际使用中，需要根据具体的需求修改代码中的文件路径、sheet名称和需要提取的值的单元格。