基于ExcelVBA实现的专题地图创建模型

程前　吴纯福

摘 要：基于ExcelVBA实现的专题地图创建模型，在VBA编程环境下，通过对google地球的二次开发，实现了测试log大批量、高效率、智能化创建专题地图。

关键词：excel；VBA；专题地图；log；电平值；步长

0 引言

通信信号测试软件层出不穷，各种测试软件导出的信号测试log一般都只能转换成mapinfo格式，然后通过mapinfo创建专题地图来展示在google地球上。如何快速处理多个excel文件，并创建google专题地图，本文通过研究基于ExcelVBA的方法实现批量专题地图创建，从而提高工作效率。

1 专题地图创建模型功能

基于ExcelVBA实现的专题地图创建模型（以下简称“模型”）主要解决大量测试log快速处理为google地球专题地图文件，其主要功能如下：

（1）自定义的测试信号电平值区间和显示颜色。

（2）测试log快速转换为google专题地图。

（3）多个测试log只需一键处理。

2 专题地图创建模型介绍

2.1 测试log存放要求

“网优先锋”软件测试log为excel文件，将导出的文件存放在指定目录下，本文以“D：＼11”为例。模型在使用时会自动检索指定目录下所有excel文件，根据工具格式自动调整输入内容，并逐一进行处理。实现该功能代码如下：

PublicFunctionHH（）

WithThisWorkbook.Sheets（2）

.Range（“A2：B1000”）.ClearContents

DimstartfolderAsString

startfolder=”D：＼11＼”指定文件夹

Setfolderlist=CreateObject（“scripting.dictionary”）

Setfilelist=CreateObject（“scripting.dictionary”）

i=2

folderlist.Addstartfolder，””

DoWhilefolderlist.Count>0

ForEachFolderNameInfolderlist.keys

fname=Dir（FolderName，vbDirectory）

DoWhilefname<>””

Iffname<>”..”Andfname<>”.”Then

IfGetAttr（FolderName&fname）AndvbDirectoryThen

folderlist.AddFolderName&fname&”＼”，””

Else

filelist.AddFolderName&fname，””

EndIf

EndIf

fname=Dir

Loop

folderlist.Remove（FolderName）

Next

Loop

ForEacharrInfilelist.keys

.Range（“A”&i）.Value=arr

.Range（“B”&i）.Value=Mid（arr，InStrRev（arr，”＼”）+1）

i=i+1

Next

EndWith

EndFunction

2.2 模型原理介绍

首先，设定步长和比例，一般步长设置为0.5米，比例设置为0.3。

其次，设置不同信号电平值区间及相应的颜色，从绿色到红色信号强度依次减弱。

最后，设置相应的“经度”、“纬度”和“电平值”所对应的列，并进行处理和转换。主要代码如下：

PublicFunctioncreatkmlfromexcell（）

‘yueminjun

Dimh，st，x，y，zAsDouble

Dimstr，tmptAsString

DimDAT（）AsByte，DAT1（）AsByte

DimfilenameAsString

h=0.5

st=0.3

CC1=”FF00FF00”

CC2=”FFFF0000”

CC3=”FF00FFFF”

CC4=”FFFF00FF”

CC5=”FF0000FF”

r=Cells（65535，1）.End（xlUp）.row

jingdu=2

weidu=3

dingzhilie=4

SelectCasez

CaseVal（-70）ToVal（-20）

CaseVal（-80）ToVal（-70）

CaseVal（-90）ToVal（-80）

CaseVal（-100）ToVal（-90）

CaseVal（-150）ToVal（-100）重复代码

CaseElse

EndSelect

EndIf

Next

tmpt=”