vba批量提取同一文件夹下不同EXCEL中同一sheet的某个值

可以通过VBA的文件遍历功能，逐一打开文件，获取指定的sheet，并提取该sheet中指定单元格的值。可以使用如下代码实现：

Sub ExtractValues()
Dim FolderPath As String
Dim Filename As String
Dim wb As Workbook
Dim ws As Worksheet
Dim CellValue As Variant
Dim i As Integer

'设置文件夹路径
FolderPath = "C:\MyFolder\"

'遍历文件夹中的所有Excel文件
Filename = Dir(FolderPath & "*.xlsx")
Do While Filename <> ""
Set wb = Workbooks.Open(FolderPath & Filename)
For i = 1 To wb.Worksheets.Count
'获取指定的sheet
If wb.Worksheets(i).Name = "Sheet1" Then
Set ws = wb.Worksheets(i)
'提取指定单元格的值
CellValue = ws.Range("A1").Value
'在此处处理提取的值
End If
Next i
wb.Close SaveChanges:=False
Filename = Dir()
Loop
End Sub

其中，FolderPath表示要遍历的文件夹路径，"*.xlsx"表示要遍历的文件扩展名为xlsx的文件。在for循环中可以根据需要修改获取的sheet名称和单元格范围。请根据具体情况进行修改。