这个运行时错误,“一个表不能重叠另一个表”,每次打开我的xlsm文件时都会发生。在点击调试窗口后,下面一行VBA代码被突出显示。Excel VBA运行时错误1004'一个表不能重叠另一个表'
Set tbl = Sheets("DataSheet").ListObjects.Add(xlSrcRange, rng, , xlYes)
下面附上完整版本供您参考。
Private Sub Workbook_Open()
Dim tbl As ListObject
Dim rng As Range
'Ungroup worksheets
ThisWorkbook.Sheets("DataSheet").Select
Set rng = Range(Range("A1"), Range("A1").SpecialCells(xlLastCell))
Set tbl = Sheets("DataSheet").ListObjects.Add(xlSrcRange, rng, , xlYes)
tbl.Name = "ReportTable"
tbl.TableStyle = "TableStyleMedium7"
End Sub
那么我应该怎么做才能解决这个问题?为什么在那里发生错误?
是的,这正是我想出来的。感谢你及时的答复。另外,我只是添加了条件来检查表是否已经存在。 – woodykiddy