何 南 谷 军 吴晓雪 史鹏辉

（大连海洋大学信息工程学院，辽宁 大连 116023）

EXCEL VBA在移动基站告警分析中的应用

何 南 谷 军 吴晓雪 史鹏辉

（大连海洋大学信息工程学院，辽宁 大连 116023）

随着移动业务不断发展，各个地市基站数量不断增加，但是对基站告警的归类分析手段却有不足。文章将介绍通过办公软件EXCEL VBA功能实现对实时告警的归类分析，提高监控效率及准确率。

EXCEL VBA；基站；告警分析；应用

Excel是大家很熟悉的办公软件，相信大家在工作中经常使用。移动通信基站的告警信息,由于国外厂商开发，是全英文的，并且是按照时间进行罗列，非常不利于分析和统计。

告警原文如下：

M 21 OP:ALARM

CELL 311,CDM 1, 2 CBR 2 TRANSMIT PORT (TXPORT) 2

CELL 311,CDM 1, 2 CBR 3 TRANSMIT PORT (TXPORT) 2

CELL 312,CDM 1, 2 ANTENNA DIVERSITY IMBALANCE 3

CELL 313,CDM 1, 2 ANTENNA DIVERSITY IMBALANCE 2

CELL 318,CDM 1, 2 ANTENNA DIVERSITY IMBALANCE 2

CELL 318,CDM 1, 2 ANTENNA DIVERSITY IMBALANCE 3

CELL 320,CDM 1, 2 CBR 2 TRANSMIT PORT (TXPORT) 1

CELL 324,OOS

其实，只要对 Excel进行一些挖掘，就可以发现 Excel的功能我们还没有好好的利用。Excel本身提供了强大的二次开发功能，只要仔细的研究，没有什么能难倒我们的。下面，笔者将带你走近 Excel，认识它的强大的二次开发环境VBAIDE，用它来解决上面所提到的问题，就非常容易了。

1 文本处理相关的VBA函数介绍

1.1Application.GetOpenFilename

功能：显示标准的“打开”对话框，并获取用户文件名，而不必真正打开任何文件。

语法：Application.GetOpenFilename(FileFilter,FilterIndex, Title,ButtonText,MultiSelect)

1.2InStr

返回 Variant(Long)，指定一字符串在另一字符串中最先出现的位置。

语法：InStr([start, ]string1,string2[,compare])

1.3Left

返回 Variant(String)，其中包含从字符串左边算起指定数量的字符。

语法：Left(string,length)

如果大于或等于 string 的字符数，则返回整个字符串。

1.4Right

返回 Variant(String)，其中包含从字符串右边取出的指定数量的字符。

语法：Right(string,length)

如果大于或等于 string 的字符数，则返回整个字符串。

2 基站告警信息处理程序的三个模块说明

2.1告警归类模板

归类分析的DIY功能主要体现在告警上，可以根据自己的需求来设置