|
VB入门,总是汇总出错行,请帮忙修改下。
要求:
汇总固定格式,任意文件名的EXCEL中的固定那行。
固定格式如下
汇总对象是黄色那行。我半抄半学弄的代码如下:
Sub Macro1()
Dim MyPath$, MyName$, sh As Worksheet, arr
Set sh = ActiveSheet
MyPath = ThisWorkbook.Path & "\"
MyName = Dir(MyPath & "*.xls")
Application.ScreenUpdating = False
[a1].CurrentRegion.Offset(2).ClearContents
Do While MyName <> ""
If MyName <> ThisWorkbook.Name Then
With GetObject(MyPath & MyName)
arr = .Sheets(1).[a1].CurrentRegion.Offset(1)
sh.[a65536].End(xlUp).Offset(1).Resize(UBound(arr) - 3, 9) = arr
.Close False
End With
End If
MyName = Dir
Loop
Application.ScreenUpdating = True
MsgBox "ok"
End Sub
发现每次都是从标题下面那里开始汇总,泪崩。不懂Resize的人请教如何修改。谢谢了!
|
|