Question

当用户单击功能区上的按钮时，我试图遍历活动工作簿中的所有工作表。

我遇到的唯一问题是实际迭代工作表，我有以下错误：

表达式属于＆＃39; Workbook＆＃39;，它不是集合类型。

虽然我明白这意味着什么，但我不知道如何实现我想要的目标。

Private Sub Button1_Click(sender As Object, e As RibbonControlEventArgs) Handles Button1.Click

    Dim wks As Worksheet, objList As ListObject

    For Each wks In Globals.ThisAddIn.Application.ActiveWorkbook  ' ERROR LINE

        For Each objList In wks.ListObjects
            objList.Unlist()
        Next objList

    Next wks
End Sub

** 更新 ** 根据评论和答案编辑了代码，但它给了我一个新的错误

Globals.ThisAddIn.Application.ActiveWorkbook.Worksheets

类型＆＃39; System.InvalidCastException＆＃39;的例外情况发生在ConvertAllTablesToRange.dll但未在用户代码中处理

附加信息：无法转换类型为＆＃39; System .__ ComObject＆＃39;的COM对象。到界面类型＆＃39; Microsoft.Office.Tools.Excel.Worksheet＆＃39;。此操作失败，因为QueryInterface调用COM组件上的接口与IID＆lt; {297DC8D9-EABD-45A1-BDEF-68AB67E5C3C3}＆＃39;由于以下错误而失败：不支持此类接口（HRESULT异常：0x80004002（E_NOINTERFACE））。

Answer 1

ActiveWorkbook.Worksheets是您正在寻找的系列。

循环访问当前工作簿

1 个答案: