Excel VBA复制含表格工作表触发cannot copy sheet that contains table错误求助

问题根源 #

Excel VBA原生不支持批量选中多张包含**结构化表格（ListObject）**的工作表后执行复制操作，这是你当前代码Sheets(myArray).Copy执行报错的核心原因。

可行解决方案 #

改用逐张复制可见工作表到新工作簿的逻辑即可规避该约束，修改后的代码如下：

Sub 导出可见工作表到新工作簿()
    Dim newWb As Workbook
    Dim ws As Worksheet
    Dim newdate As String
    
    ' 定义日期格式，可根据需要调整，避免文件名出现/ \等非法字符
    newdate = Format(Date, "yyyy-mm-dd")
    ' 新建空白工作簿
    Set newWb = Workbooks.Add
    
    ' 遍历当前工作簿所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 仅复制可见工作表
        If ws.Visible = xlSheetVisible Then
            ' 单张复制到新工作簿的最后一个工作表之后
            ws.Copy After:=newWb.Sheets(newWb.Sheets.Count)
        End If
    Next ws
    
    ' 删除新工作簿默认生成的空白Sheet1
    Application.DisplayAlerts = False
    newWb.Sheets(1).Delete
    Application.DisplayAlerts = True
    
    ' 保存到目标路径，此处替换为你的SharePoint路径即可
    ' 如果是本地同步的SharePoint文件夹直接写映射后的本地路径即可
    newWb.SaveAs Filename:="你的SharePoint完整路径\Low Level" & newdate & ".xlsx", _
                 FileFormat:=xlOpenXMLWorkbook, _
                 CreateBackup:=False
    newWb.Close SaveChanges:=False
End Sub

注意事项 #

• 代码中你的SharePoint完整路径需要替换为实际的存储路径，如果使用SharePoint在线URL，需要确保路径格式符合Office VBA的识别规范，优先使用本地同步后的映射路径稳定性更高
• 日期格式可根据需求调整，不要使用/`等Windows文件名不允许的字符
• 该方法会完整保留原工作表内的结构化表格、公式、格式等所有内容，不会出现数据丢失

内容的提问来源于stack exchange，提问作者Paul Flood