一起来学office,提高办公技能
Sub 汇总()
False =
Dim irow&, Filename$, fn$
Dim wb As Workbook, sht As Worksheet
'清除当前区域
1).Value = "姓名"
2).Value = "性别"
3).Value = "年龄"
4).Value = "籍贯"
irow = Sheets(1).Range("A1048576").End(xlUp).Row '当前区域最后一行
Filename = Dir(ThisWorkbook.Path & "\*.xlsx")
Do While Filename <> ""
If Filename <> ThisWorkbook.Name Then
fn = ThisWorkbook.Path & "\" & Filename
Set wb = GetObject(fn)
Set sht = wb.Worksheets(1)
+ 1, 1) = sht.Cells(2, 2).Value
+ 1, 2) = sht.Cells(2, 4).Value
+ 1, 3) = sht.Cells(2, 6).Value
+ 1, 4) = sht.Cells(3, 2).Value
False
irow = irow + 1
End If
Filename = Dir
Loop
True =
End Sub
联系客服