获取数组后，下标越界，逐项能运行，自动就报错，如何处理

longjufeng

麻烦那位大神给我指点哈迷津，以下代码为截取，整个程序逐项能运行，点自动运行就报错。
代码的作用是，遍历文件夹下的压缩文件，把文件名形成数组。依次打开解压文件，读取解压文件里指定文件的数据，删除解压文件。解压下一个压缩文件，执行相同操作。类似于多层文件夹调用。



Sub ExtractAndFillData()
    Dim FolderPath As String
    Dim Rarfile As String
    Dim rarFiles() As String
    Dim WorkbookToOpen As Workbook
    Dim WorksheetToOpen As Worksheet
    Dim i As Integer
   FolderPath = Application.ActiveWorkbook.path
    ' 遍历文件夹中的所有rar文件
Rarfile = Dir(FolderPath & "\*.rar")'文件夹下所有压缩文件的名称，形成数组

    i = 0 ' 初始化数组索引
    Do While Rarfile <> ""
        ReDim Preserve rarFiles(i) ' 动态调整数组大小
        rarFiles(i) = Rarfile
        i = i + 1
        Rarfile = Dir()
    Loop"获得数组中元素个数


For i = LBound(rarFiles) To UBound(rarFiles)  '逐项能运行，自动就不能运行，提示LBound

(rarFiles)/UBound(rarFiles)都下标越界

If InStr(1, rarFiles(i), "出报告版本") > 0 Then  '逐项能运行，自动运行提示rarFiles(i)下标越界

Shell ("C:\Program Files\WinRAR\WinRAR.exe" & " X " & FolderPath & "\" & rarFiles(i) & " " &

FolderPath & "\缓存文件夹" & " " & Fonts & "*.xls") '至解压固定格式的文件' 解压文件
DoEvents' 等待解压
  。。。。。。。

Next i
Workbooks(WorkbookName).Close SaveChanges:=True

Enocheasty

你说的逐项是指的单步调试吗？自动就不调试直接运行？