帮我写一个获取同一个文件夹下相同格式excel中指定位置的数据的vba脚本

好的，以下是获取同一个文件夹下相同格式excel中指定位置的数据的vba脚本：

Sub GetDataFromExcel()
    Dim folderPath As String
    Dim fileName As String
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim data As Variant
    Dim i As Long
    
    '设置文件夹路径
    folderPath = "C:\Folder\"
    
    '获取文件夹中的所有xlsx文件名
    fileName = Dir(folderPath & "*.xlsx")
    
    '循环处理每个文件
    Do While fileName <> ""
        
        '打开文件
        Set wb = Workbooks.Open(folderPath & fileName)
        
        '循环处理每个工作表
        For Each ws In wb.Worksheets
            
            '获取指定位置的数据
            data = ws.Range("A1").Value
            
            '输出数据到当前工作表第一列
            For i = 1 To UBound(data)
                ws.Cells(i, 1).Value = data(i, 1)
            Next i
            
        Next ws
        
        '关闭文件
        wb.Close
        
        '获取下一个文件名
        fileName = Dir()
        
    Loop
    
End Sub

需要注意的是，以上代码中的文件夹路径需要根据实际情况进行修改。此外，也需要根据实际情况修改要获取数据的位置。