如何将一个文件夹中多个表格中的固定行列数值提取到一个新的EXCEL表格当中

Question

统计文件用,现在一个文件夹里面很多表格,每个表格都需要提取出不同sheet中的某个单元格的数值,提取出来后要粘贴到一个新的表格中的固定的单元格中..
举例,从工作薄1中提取sheet1中的B7,sheet2中的C5,sheet3中的D6,然后分别粘贴到工作簿2中sheet1的A1,B1,C1
请问上述过程应该如何操作,最好是能打开一个对话框选择打开某某工作簿
能否有个宏可以解决,就是能够调用一个对话框选择要打开的表格,然后自动提取出来想要的单元格中的数据到指定的位置中,因为源表格实在太多,几百个

Answer 1

Sub CommandButton1_Click() Filename = Application.GetOpenFilename(FileFilter:="Excel ,*.xls*", Title:="Choose Files", MultiSelect:=True)'可使用Ctrl或Shift选择多个文件 If Not IsArray(Filename) Then Exit Sub Application.ScreenUpdating = False For i = 1 To UBound(Filename) Set xlbook = Workbooks.Open(Filename(i)) 'sheet1中的B7,sheet2中的C5,sheet3中的D6 Cells(i, "A") = xlbook.Sheets("sheet1").[B7] Cells(i, "B") = xlbook.Sheets("sheet2").[C5] Cells(i, "C") = xlbook.Sheets("sheet3").[D6] xlbook.Close Next i Application.ScreenUpdating = TrueEnd Sub

Answer 2

个人猜测应该是用超链接之类的，主要不是同一个工作簿

Answer 3

需要VBA编程吧