应用 Unlist 方法时出现 ListObject 错误

Question

基本上，我的活动sheet 中有一个名为“TestTable”的Excel 格式Table。那是 sheet 中唯一的 table。我正在尝试将其转换为正常范围。从网上查了一下，这个应该很简单，我要做的就是Unlist那个table对象。但是，我的 VBA 代码出现错误。任何正确方向的指示将不胜感激。

Sub ConverToNormalRange()
Dim objListObj As ListObject
Set objListObj = ActiveSheet.ListObjects(1)
objListObj.Unlist
End Sub

当我运行上述宏时，出现以下错误：

Answer 1

首先将 Table 转换为范围

Sub ConvertToRange()
    Const ProcName As String = "ConvertToRange"
    On Error GoTo ClearError
    
    With ActiveSheet ' improve!
        If .ListObjects.Count > 0 Then
            Dim tblName As String
            With .ListObjects(1)
                tblName = .Name
                .Unlist
            End With
            MsgBox "Table '" & tblName & "' converted to a range.", _
                vbInformation
        Else
            MsgBox "No table found in worksheet '" & .Name & "'.", _
                vbExclamation
        End If
    End With

ProcExit:
    Exit Sub
ClearError:
    Debug.Print "'" & ProcName & "' Run-time error '" _
        & Err.Number & "':" & vbLf & "    " & Err.Description
    Resume ProcExit
End Sub

Answer 2

我尝试手动转换 table 但它也没有做任何事情。所以后来我认为这不是 VBA 问题。事实证明，我在 Power Query 中打开了连接，它阻止了 table 转换回正常范围。

应用 Unlist 方法时出现 ListObject 错误

ListObject Error upon applying an Unlist Method

vba

listobject

首先将 Table 转换为范围