|
在工作薄中汇总没问题,但是导入到个人工作薄中就没有任何效果,不知道要重新定义什么,请老师们多指教,谢谢!
Sub 按钮1_单击()
Dim myPath$, myFile$, AK As Workbook, aRow%
Application.ScreenUpdating = False '冻结屏幕,以防屏幕抖动
myPath = ThisWorkbook.Path & "\" '把文件路径定义给变量
myFile = Dir(myPath & "*.xls") '依次找寻指定路径中的*.xls文件
If ThisWorkbook.Sheets(1).Range("a2") <> "" Then
If MsgBox("清除汇总表中原有记录吗? ", 36, "提示") = 6 Then
'Rows("5:1000").Clear
ThisWorkbook.Sheets(1).Range("a2:s" & Cells.Rows.Count).ClearContents
End If
End If
Do While myFile <> "" '当指定路径中有文件时进行循环
If myFile <> ThisWorkbook.Name Then
Set AK = Workbooks.Open(myPath & myFile) '打开符合要求的文件
'For i = 1 To AK.Sheets.Count
aRow = AK.Sheets(1).Range("a65536").End(xlUp).Row
'tRow = ThisWorkbook.Sheets(1).Range("a65536").End(xlUp).Row + 1
'Range("a5:f" & aRow)复制数据的行列
AK.Sheets(1).Range("a2:s" & aRow).Copy ThisWorkbook.Sheets(1).[b65536].End(xlUp).Offset(1, -1)
'Next
Workbooks(myFile).Close False '关闭源工作簿,并不作修改
End If
myFile = Dir '找寻下一个*.xls文件
Loop
Application.ScreenUpdating = True '冻结屏幕,此类语句一般成对使用
MsgBox "汇总完成,请查看!", 64, "提示"
End Sub |
|