请教各位大佬同一文件夹下不同工作簿里面特定单元格数据汇总的问题

gstar1217

我想用VBA来汇总同一个文件夹下不同工作簿“数据1” “数据2”“数据2”里面的相同位置“B1”的数据到“汇总”工作簿里。

我的代码是这样的

Private Sub CommandButton1_Click()

t = Timer

Application.ScreenUpdating = False

   Dim i, wk As Workbook, sh As Worksheet

       p = ThisWorkbook.Path & "\"

       s = Dir(p & "*.xls*")

   Do While s <> ""

         If s <> ThisWorkbook.Name Then

         Set wk = Workbooks.Open(p & s)

            i = i + 1

           With ThisWorkbook.Worksheets("sheet1")

            .Cells(i + 3, 1) = s                                          '文件名

            .Cells(i + 3, 2).Value = wk.Worksheets("sheet1").[B1]             '姓名

            .Cells(i + 3, 3).Value = wk.Worksheets("sheet2").[B1]             '技能

            

          End With

        wk.Close False

        End If

          s = Dir

     Loop

     

     

  t1= Timer - t

MsgBox ("所有工作薄收集完成,用时" &t1 & "秒")

Application.ScreenUpdating = True

End Sub
但是有的时候又需要汇总“数据1” “数据2”“数据2”里面其他位置比如“C10”的数据
能不能通过修改“汇总”工作簿里面的单元格内容来汇总“数据1” “数据2”“数据2”里面不同位置的数据？

gstar1217

小白需要被关爱

gstar1217

附件今天上传不了了 明天我把整个文件夹传上来 大佬们帮我看看啊

gstar1217

能不能帮我修改下 实现这个汇总的想法

gstar1217

哪位老师来帮帮我啊