1求助帖自动化运行错误

beizidekuchu

求大神制定，总是自动化运行错误


Sub 刷新当日库存数()

Dim Row1 As Integer, x As Integer, y As Integer, i As Integer
Dim arr, wbStore As Workbook, table_Store() As Variant
arr = Array("4.6+", "eX机台", "SACVD", "HDP", "FU", "B22", "FU进口")
Set wbStore = Workbooks.Open("D:\生产计划\05库存\1.xlsx")

table_Store = wbStore.Sheets(1).UsedRange.Value
wbStore.Save
wbStore.Close

For i = 0 To 1 'UBound(arr) - 1
Row1 = wbStore.Sheets(1).UsedRange.Rows.Count
    For x = 3 To Row1
        For y = 2 To UBound(table_Store, 1)
            If Worksheets(arr(i)).Cells(x, 2).Value = table_Store(y, 1).Value And table_Store(y, 7) <> "*" & "不良品" & "*" Then
                Worksheets(arr(i)).Cells(x, 14) = table_Store(y, 8)
            End If
        Next y
    Next x
Next i

End Sub


其实就是从库存表里V下数据，但是VLookup函数也一致提示下标超界，不得已用循坏，又提示自动化错误，求大神指点。