|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
帮忙看一段代码!老提示下标越界!
请高手赐教
Private Sub CommandButton1_Click()
Dim RangeArray() As String
Dim aaa As String
Dim bbb As String
aaa = ThisWorkbook.Path & "\"
bbb = Dir(ThisWorkbook.Path & "\") ', vbDirectory
ReDim RangeArray(1 To 26)
i = 1
While i > 26
If bbb <> "111.xls" Then
i = i + 1
RangeArray(i) = "'aaa & [ & bbb & ] & sheets(1)'! & R5C3:R16C6"
End If
bbb = Dir
Wend
Worksheets(1).Range("R5C3").Consolidate Sources:=RangeArray, Function:=xlSum
End Sub |
|