移动端导出excel_连载系列【4】Excel开发移动端"APP"

前三篇文章介绍了百度地图生成器、源代码编辑器、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文件代码进行分隔，然后在分隔处插入自定义的部分。

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"