paste excel in drawing, follow code is true, but design table in drawingdoc , follow code is error.

Sub main()

   Dim swModel As SldWorks.ModelDoc2

   Dim swSelMgr As SldWorks.SelectionMgr

   Dim swOleObj As SldWorks.SwOLEObject

   Dim xlObj

   Set swModel = Application.SldWorks.ActiveDoc

   Set swSelMgr = swModel.SelectionManager

   Set swOleObj = swSelMgr.GetSelectedObject5(1)

   Debug.Print swOleObj.FileName

   Set xlObj = swOleObj.SetActive(True)

   Debug.Print xlObj.Name

End Sub