作用:删除当前单元格上的链接文件,与右击菜单中的“删除链接”的作用一致
参数:没有
返回值:没有
示例:
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
解说:该代码会删除当前单元格上的链接文件。