当使用Formula1属性时,必须包含所有的参数。可以使用以下示例代码定位问题:
Sub test()
Dim wb As Workbook
Dim ws As Worksheet
Set wb = ThisWorkbook
Set ws = wb.Worksheets("Sheet1")
'下面这行代码将会出现"编译错误:未找到命名参数-using Formula1"错误
ws.ListObjects.Add(xlSrcRange, Range("A1:B10"), , xlYes).Name = "MyTable"
'〔添加Formula1属性的参数
ws.ListObjects.Add(xlSrcRange, Range("A1:B10"), , xlYes, , , , "MyTable")
End Sub
```添加Formula1属性的参数
ws.ListObjects.Add(xlSrcRange, Range("A1:B10"), , xlYes, , , , "MyTable")
End Sub