Dim oSh As Worksheet
Set oSh = Application.Worksheets("costcenter")
oSh.Select
//执行到下面一句时候报错
oSh .ListObjects.Add(xlSrcRange, Range("$A$1:$J$8888"), , xlYes).Name = _
"Table1"
Set oSh = Application.Worksheets("costcenter")
oSh.Select
//执行到下面一句时候报错
oSh .ListObjects.Add(xlSrcRange, Range("$A$1:$J$8888"), , xlYes).Name = _
"Table1"
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货