如何用写代码断开excel链接

love961112233

小白只会用模块。。模块没有的我不知道怎么弄。。要用到excel对象操作吗

love961112233

将链接到其他 Microsoft Excel 源或 OLE 源的公式转换为值。

expression.BreakLink(Name, Type)

expression   必需。该表达式返回“应用于”列表中的对象之一。

PictureFile   String 类型，必需。链接的名称。

Type   XILinkType 类型，必需。链接的类型。

XlLinkType 可为以下 XlLinkType 常量之一。
xlLinkTypeExcelLinks  对 Microsoft Excel 源的链接。
xlLinkTypeOLELinks  对 OLE 源的链接。

示例
本示例中，Microsoft Excel 转换了活动工作簿中的第一个链接（Excel 链接类型）。本示例假定在活动工作簿中至少存在一个连接到其他 Excel 源的公式。

Sub UseBreakLink()

    Dim astrLinks As Variant

    ' Define variable as an Excel link type.
    astrLinks = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)

    ' Break the first link in the active workbook.
    ActiveWorkbook.BreakLink _
        Name:=astrLinks(1), _
        Type:=xlLinkTypeExcelLinks

End Sub
应该是这个  但是不知道怎么在易语言中写啊   有没有大神看看

love961112233

自己顶一下

love961112233

.版本 2
.支持库 spec

.子程序 _按钮2_被单击
.局部变量 Excel程序对象, 对象
.局部变量 Excel工作簿对象, 对象
.局部变量 Excel工作表对象, 对象
.局部变量 Name, 文本型
.局部变量 Type, 文本型

.如果真 (Excel程序对象.创建 (“Excel.Application”, ) ＝ 假)
    调试输出 (“创建Excel程序对象失败”)

.如果真结束
Excel程序对象.写属性 (“Visible”, 真)  ' 设置为假不显示excel窗口，设置为真会打开excel。
Excel工作簿对象 ＝ Excel程序对象.读对象型属性 (“Workbooks”, ).对象型方法 (“Open”, “C:\Users\jing\Desktop\上台阶.xlsx”, , , , )  ' 打开xls文件。
' astrLinks ＝ Excel工作簿对象.方法 (“LinkSources”, “xlExcelLinks”)

Excel工作簿对象.方法 (“BreakLink”, “喀日山坐标.xls”, “xlLinkTypeExcelLinks”)
Excel程序对象.方法 (“Quit”, )  ' 退出EXCEL程序
Excel工作表对象.清除 ()  ' 清空对象
Excel工作簿对象.清除 ()  ' 清空对象
Excel程序对象.清除 ()  ' 清空对象

还是断开不了    BreakLink的2个参数应该怎么填    有大神看看吗