Question

使用以下VBA我试图遍历所有工作表（除了提到的两个）并在A2005toAD3005范围内插入一个表。

For Each wsvar5 In ThisWorkbook.Sheets
    With wsvar5
        If wsvar5.Name <> "timekeeper code" And wsvar5.Name <> "Bill Date" Then
            .ListObjects.Add(xlSrcRange, .Range("A2005:AD3005"), , xlYes).ListObjects.TableStyle = "TableStyleMedium9"
        End If
    End With
Next wsvar5
End Sub

这适用于第一张工作表，然后停止并引发以下Error 这不会超过任何表格，因为它适用于第一张表格，而所有其他表格的格式相同。

我在网上搜索过，似乎无法找到正确的解决方法！

先谢谢

Answer 1

尝试替换以下行

.ListObjects.Add(xlSrcRange, .Range("A2005:AD3005"), , xlYes).ListObjects.TableStyle = "TableStyleMedium9"

到

.ListObjects.Add(xlSrcRange, .Range("A2005:AD3005"), , xlYes).TableStyle = "TableStyleMedium9"

在所有床单上愤怒到桌子

1 个答案: