首页 > 代码库 > VBS 处理断开excel数据链接格式,只保留值

VBS 处理断开excel数据链接格式,只保留值

    最近有个项目是将一个excel压缩之后发给客户,但是由于excel数据过大,即使压缩之后仍然接近5M,因为是大批量发送数据,所以非常慢.急需要将EXCEL数据压缩. 后来我想到一个办法,就excel数据公式去掉,只保留数值,发现文件小好多. excel 操作去掉数据链接如图所示.

然后我在网上搜索了好多方法,但是没有去掉 这个链接的做法, 后来先用excel 录制宏的方法, 最后找到用BreakLink方法来处理. 然后又搜索到VBA的此方法详解. 如下

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

expression.BreakLink(Name, Type)

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

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

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

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

VBA 的方法如下:

Sub DealBreakLink()
    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

下一步就是转换成VBS的写法. 经过苦苦搜寻,终于找到了VBS 有类似的方法 BreakLink(Name,Type)

问题来了,这个type我该输入什么呢? 然后又经过苦苦搜寻(发现现在很难找到比较全面的参考手册)终于找到Type该输入的类型了.................

XlLinkType

Constant Value

xlLinkTypeExcelLinks  1

xlLinkTypeOLELinks  2


objExcel.Workbooks.Open strSearchPath
Set objWorkbook = objExcel.ActiveWorkbook


ForEach LinkSourceIn objWorkbook.LinkSources
objWorkbook.BreakLink LinkSource,1 ‘此处 LinkSourses 为链接到外部excel的地址; 1即为要处理断开链接的类型 即为EXCEL 数据源

Next


用了将近一天的时间搜寻资料,至此终于运行成功了. 因为我在搜索资料的时候,没有见网上处理过此类型的例子.记录下来供后来者参考.大家记住红色部分是关键就可以了.

 

VBS 处理断开excel数据链接格式,只保留值