运行时错误'9'：下标超出了VBA Excel 2003的范围

Question

我是VBA的新手，目前，我正在尝试从Excel刷新数据，并且遇到Run-time error '9': Subscript out of range在Excel 2003中Run-time error '9': Subscript out of range ，但在Excel 2010中效果很好。

它符合以下要求：

Sheets("Tape and Reel").ListObjects(1).QueryTable.Refresh

需要所有人的帮助。 感谢您的回覆

Answer 1

尝试将其分解，以便您可以准确地看到问题所在。

例：

Dim WS As Worksheet, QT As QueryTable

Set WS = ThisWorkbook.Sheets("Tape And Reel")
Set QT = WS.ListObjects(1).QueryTable
QT.Refresh

编辑由于您在第二行中找到了它，因此您可以尝试遍历工作簿并找到它。 这是一个主意：

Dim ob As ListObject

For Each ob In ThisWorkbook.Sheets("Tape And Reel").ListObjects
    Debug.Print ob.Name
Next ob