前三篇文章介绍了百度地图生成器、源代码编辑器、GPS经纬度批量转换工具、源代码编辑器中添加自定义功能按钮和地图控件。这些写好的Java Script代码虽然可以实现所有期望的结果,但毕竟不是一个HTML文件,不便于传播和使用,更无法变成一个类似APP的存在。
本文将介绍,如此借助VBA编程,用Excel生成一个HTML文件。双击打开文件,会调用百度地图,并可实现之前代码所有功能。
01
—
创建FSO对象模型
这里主要用到的是VBA FSO对象模型。文件系统对象FSO的英文全称是File System Object。FSO对象模型包含在Scripting 类型库(Scrrun.Dll)中,它同时包含了Drive、Folder、File、FileSystemObject和TextStream五个对象。本例中用到了FileSystemObject,它是FSO对象模型中最主要对象,并提供了一套完整的可用于创建、删除文件和文件夹,收集驱动器、文件夹、文件相关信息的方法。
创建FSO对象模型:
一、引用法:
首先需要在在工程中引用这个文件,单击“工程”,“引用”,然后在“引用”对话框中选中“Microsoft Scripting Runtime”前的复选框,然后单击“确定”。
之后,可以用如下语句定义该对象:
Dim fs As New FileSystemObject;
二、创建法:
通过CreateObject方法创建一个FSO对象:
Set fs = CreateObject("Scripting.FileSystemObject")
本例中使用创建法。创建之后,就可以利用创建的对象模型的方法进行相关操作了。
02
—
使用CreateTextFile方法
CreateTextFile方法创建一个新的文件并返回其TextStream对象,微软Office 开发人员中心对其解释如下:
在本例中通过以下代码,实现了对CreateTextFile方法的调用:
Set f = fs.CreateTextFile(ThisWorkbook.Path & sName & ".txt", True)
上述代码,创建了一个新文本文件。之后,还需配合使用f.writeline写入向该文本文件中写入字符串,也即拼接HTML文件代码的过程。完整的生成HTML文件的代码及注释如下:
Sub CreateHTML()Dim sName As String '定义一个字符串变量Dim fs As Object '定义一个对象Dim fDim r As RangesName = "\差旅协议酒店地图查询工具"On Error Resume Next '容错处理'如果当前文件夹中已经存在同名文件,则先删除该文件Kill ThisWorkbook.Path & sName & ".html"'先创建Txt文件Set fs = CreateObject("Scripting.FileSystemObject")Set f = fs.CreateTextFile(ThisWorkbook.Path & sName & ".txt", True) 'writeline写入字符传并加入一个换行符 f.writeline (Worksheets("Code").Range("B2").Value) '判断:若为手机版,则使用C2单元格代码。否则写入C3单元格代码。 If Worksheets("Code").Range("C5") = True Then f.writeline (Worksheets("Code").Range("C2").Value) Else f.writeline (Worksheets("Code").Range("C3").Value) End If '判断:若为手机版,则无直线测距功能;若为PC版,则增加直线测距功能; If Worksheets("Code").Range("C5") = True Then For Each r In Worksheets("Code").Range("E4:E10") f.writeline (r.Value) Next r Else For Each r In Worksheets("Code").Range("E3:E10") f.writeline (r.Value) Next r End If f.writeline (Worksheets("Code").Range("F2").Value) Call CombinePlotter ’调用字符串合并函数 f.writeline (MarkerPlotter) f.writeline (Worksheets("Code").Range("G2").Value)f.Close'将生成的 TXT文件重命名为HTMLName ThisWorkbook.Path & sName & ".txt" As ThisWorkbook.Path & sName & ".html"End Sub
代码说明:
1.整段代码功能是将下图中着色单元格内容通过f.writeline 写入HTML文件,其本质上是对原始HTML文件代码进行分隔,然后在分隔处插入自定义的部分。
2.这里Call CombinePlotter调用了一个自定义子过程,其作用是将之前生成的协议酒店列表组装成一个字符串,然后写入txt文件的指定位置。
其中子过程CombinePlotter的代码如下:
Sub CombinePlotter()Dim r As Range, rng As RangeWith Worksheets("酒店列表") Set rng = .Range("S2:S128") '如有多于128行,可修改此处End WithMarkerPlotter = EmptyFor Each r In rng If Not r = "" Then On Error Resume Next MarkerPlotter = MarkerPlotter & r.Value End IfNext rMarkerPlotter = Right(MarkerPlotter, Len(MarkerPlotter) - 1)End Sub
至此,我们便可以将之前已经运行成功的Java Script代码,重新组装成TXT文件并通过重命名继而生成了可传播可存储的HTML文件,其保留了所有自定义功能,并可双击后通过浏览器打开。
03
—
神器的DLL动态链接库
以上VBA代码运行后只能生成一个HTML文件,但并不会直接用浏览器将其打开。如果想在代码运行后需要直接查看效果,需要用到神奇的"shell32.dll"。
VBA本身并不完美,不具备一些系统底层的操作。但其提供了一种方式可以直接调用由C语言编写的动态链接库(DLL)中的过程。Windows 操作系统主体由成千上万个过程(API)以及各种用其他语言编写的例程构成。通过DLL开发人员可以访问所有这些Windows 操作系统下的过程及例程。这就意味着,VBA无所不能。在此过程中,DLL被VBA 看做服务和资源的提供者, VBA通过Declare 语句向 DLL发出合法的请求, 从而获得DLL中过程的使用权。
通过以下代码,便可以在创建好HTML文件后,直接用浏览器打开。这样做的一个好处是,不必每次运行完程序后,还需找到文件夹下刚刚生成的HTML文件进行双击打开操作。
Private Declare Function ShellExecute _ Lib "shell32.dll" Alias "ShellExecuteA" ( _ ByVal hWnd As Long, _ ByVal Operation As String, _ ByVal FileName As String, _ Optional ByVal Parameters As String, _ Optional ByVal Directory As String, _ Optional ByVal WindowStyle As Long = vbMinimizedFocus _ ) As LongSub MapPlotterExecution()Application.ScreenUpdating = False '暂停刷新屏幕Call CreateHTMLCall ShellExecute(0, "Open", ThisWorkbook.Path & "\差旅协议酒店地图查询工具.html")Application.ScreenUpdating = True '恢复刷新屏幕End Sub
如果是一次性生成HTML文件,其优势尚不明显;若后续想将其作为一个小工具,按照自定义的列表和要实现的功能,反复地运行程序查看结果,优势就很明显了。对比如下:
当如下代码被注释掉的时候,点击显示地图运行主程序,只是单纯地生成了名为差旅协议酒店地图查询工具的HTML文件;而取消注释启用代码后,点击显示地图可直接调用打开浏览器。
Call ShellExecute(0, "Open", ThisWorkbook.Path & "\差旅协议酒店地图查询工具.html")
至此,我们便将所有需求的功能和样式实现了。如需下载Excel源文件,请回复关键词"工具"。
写到这里,该连载系列就正式步入了尾声。借道文件系统对象FSO,我们从VBA成功地生成了HTML文件;通过shell32.dll,我们可以直接调用并打开浏览器,打开HTML文件,完美地实现了即时交互。这也意味着我们可以依托百度地图API接口,基于VBA进行一系列数据地图IT系统的开发,新世界的大门从此打开。本质上还是用Java Script这种直译式脚本语言进行的网页前端编程,其呈现效果堪比任何BI软件或者其他编程语言。本文只做思路上的启发和引导,不再进行更深入的分享。如果有兴趣的小伙伴可以自行深入探索:
1.分指标显示区县色温图
2.分指标显示邮编色温图
3.显示经销商覆盖范围公里环
4.显示客户便利度地图
5.显示销量热力图
正所谓运用之妙,存乎一心。Excel是一种非常强大的工具,即便在Tableau崛起、Python横行的今日,依旧有巨大的学习价值。当然,很多Tableau和Python更擅长的事,也不要强Excel所难。尺有所短,寸有所长,毕竟最终目标是探寻最优方案解决工作中面临的实际问题。
"当你手里有一把锤子时,看什么都像钉子"。不拘泥于某一种工具而是进行多元化的学习,不断突破自身框架束缚,了解多个领域的最佳实践,方为上策!
该连载系列文章合集如下:
1.用Excel开发移动端"APP"
2.连载系列【1】Excel开发移动端"APP"
3.连载系列【2】Excel开发移动端"APP"
4.连载系列【3】Excel开发移动端"APP"