4.8.12.29 DelLinkFile

作用:删除当前单元格上的链接文件,与右击菜单中的“删除链接”的作用一致

参数:没有

      返回值:没有

示例:

Sub CommandButton1_Click()

                 ‘定义接口变量

     Dim sErr As String

           Dim sResult As String

Dim obj As Object    

                 ‘获取E立方管理平台的编程接口

     Set obj = Application.COMAddIns.Item("prjAddin.Office_Addin").Object

                 ‘通过接口调用GetDefaultSysDataRuleValue

     obj. DelLinkFile

                 ‘释放编程接口

     Set obj = Nothing

End Sub

      解说:该代码会删除当前单元格上的链接文件。