移动端导出excel_连载系列【4】Excel开发移动端quot;APPquot;

前三篇文章介绍了百度地图生成器、源代码编辑器、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”前的复选框,然后单击“确定”。

807d7bea535e7433c2c4bfe716a98184.png

之后,可以用如下语句定义该对象:

Dim fs As New FileSystemObject;

二、创建法:

通过CreateObject方法创建一个FSO对象:

Set fs = CreateObject("Scripting.FileSystemObject")

本例中使用创建法。创建之后,就可以利用创建的对象模型的方法进行相关操作了。

02

使用CreateTextFile方法

CreateTextFile方法创建一个新的文件并返回其TextStream对象,微软Office 开发人员中心对其解释如下:

a11f8a371cad213ceb81e0a9f07e4b25.png

在本例中通过以下代码,实现了对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文件代码进行分隔,然后在分隔处插入自定义的部分。

ac5398f232f7886f71e724fdd9bffcb2.png

2.这里Call CombinePlotter调用了一个自定义子过程,其作用是将之前生成的协议酒店列表组装成一个字符串,然后写入txt文件的指定位置。

b342f3db1300e321d1ece8324d8b4f9a.png

其中子过程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文件,其优势尚不明显;若后续想将其作为一个小工具,按照自定义的列表和要实现的功能,反复地运行程序查看结果,优势就很明显了。对比如下:

aa9acfc1230ec7ee2ac57967754eed01.gif

当如下代码被注释掉的时候,点击显示地图运行主程序,只是单纯地生成了名为差旅协议酒店地图查询工具的HTML文件;而取消注释启用代码后,点击显示地图可直接调用打开浏览器。

Call ShellExecute(0, "Open", ThisWorkbook.Path & "\差旅协议酒店地图查询工具.html")

至此,我们便将所有需求的功能和样式实现了。如需下载Excel源文件,请回复关键词"工具"。

写到这里,该连载系列就正式步入了尾声。借道文件系统对象FSO,我们从VBA成功地生成了HTML文件;通过shell32.dll,我们可以直接调用并打开浏览器,打开HTML文件,完美地实现了即时交互。这也意味着我们可以依托百度地图API接口,基于VBA进行一系列数据地图IT系统的开发,新世界的大门从此打开。本质上还是用Java Script这种直译式脚本语言进行的网页前端编程,其呈现效果堪比任何BI软件或者其他编程语言。本文只做思路上的启发和引导,不再进行更深入的分享。如果有兴趣的小伙伴可以自行深入探索:

1.分指标显示区县色温图

5facfc859ea36385ba59576867fd2447.gif

2.分指标显示邮编色温图

2839f3c17394e7c59a069ef17308d096.png

3.显示经销商覆盖范围公里环

d904dead9e96bd888d882cb15a5d7869.png

4.显示客户便利度地图

5b53867efa7514fd8dbb91717b1472f9.png

5.显示销量热力图

ca7e0b8ceb7151e2aa8a20b9020653ef.png

正所谓运用之妙,存乎一心。Excel是一种非常强大的工具,即便在Tableau崛起、Python横行的今日,依旧有巨大的学习价值。当然,很多Tableau和Python更擅长的事,也不要强Excel所难。尺有所短,寸有所长,毕竟最终目标是探寻最优方案解决工作中面临的实际问题。

"当你手里有一把锤子时,看什么都像钉子"。不拘泥于某一种工具而是进行多元化的学习,不断突破自身框架束缚,了解多个领域的最佳实践,方为上策!

该连载系列文章合集如下:

1.用Excel开发移动端"APP"

2.连载系列【1】Excel开发移动端"APP"

3.连载系列【2】Excel开发移动端"APP"

4.连载系列【3】Excel开发移动端"APP"

3ce39027f348170298483ad4f18df301.png

本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处:http://www.mzph.cn/news/454180.shtml

如若内容造成侵权/违法违规/事实不符,请联系多彩编程网进行投诉反馈email:809451989@qq.com,一经查实,立即删除!

相关文章

《操作系统》OS学习(二):启动、中断、异常

Bootloader:加载OS。操作系统一开始是放在DISK(硬盘)中,并不是放在内存中。 BIOS:基本I/O处理系统。存放在ROMRead-Only Memory)只读存储中 BIOS(Basic Input/Output System)基本输入输出系统。…

常用css属性集(持续更新…)

禁止换行,超出部分显示…:a. 代码:.hide_word{ max-width: 100px; white-space:nowrap; overflow:hidden; text-overflow:ellipsis; } b. 效果: 本文转自 bilinyee博客,原文链接: http://blog.51cto.co…

parallels网络初始化失败_33 个神经网络「炼丹」技巧

自然语言处理Andrej Karpathy 是深度学习计算机视觉领域、与领域的研究员。博士期间师从李飞飞。在读博期间,两次在谷歌实习,研究在 Youtube 视频上的大规模特征学习,2015 年在 DeepMind 实习,研究深度强化学习。毕业后&#xff0…

《操作系统》OS学习(三):系统调用

例子 首先看一个标准C库的例子:当我们程序中使用了C库中的printf()函数,实际在底层是在内核态中调用了write()函数。图中右侧则是将程序代码与C库都算到应用程序中,内核提供了一个系统调用接口。 从这个例子我们可以得到以下几点&#xff1a…

JavaScript服务器端开发技术(对象属性的枚举与查询)

既然对象是属性的集合,那么检测与枚举集合中的属性就是一项重要任务。对此,我们来分别看一下ES3和ES5提供的解决方案。 1) ES3枚举方案 示例代码: var contacts{ ID:[0,1,2,3,4,5], names:["Zero","One","Two&q…

treelistview 所有节点失去焦点_垃圾询盘过滤,焦点科技的 Milvus 实践

文章作者:黎阳,焦点科技软件开发工程师李成龙,Zilliz 数据工程师Milvus (https://milvus.io/) 向量搜索引擎开源半年以来,全球已经有数百家企业或组织用户。焦点科技是一家以 B2B 外贸交易为主营业务的科技公司,也是 M…

《操作系统》OS学习(四):计算机体系结构、内存层次和地址生成

计算机除了计算能力之外还有存储能力,存储能力即计算机拥有一系列的存储介质,我们可以在存储介质上存储我们的代码和数据。计算机体系结构中约定了哪些地方可以用来存储数据:CPU内的寄存器、内存和外存。不同的存储介质,容量、速度…

GCC中SIMD指令的应用方法

X86架构上的多媒体应用开发,如果能够使用SIMD指令进行优化, 性能将大大提高。目前,IA-32的SIMD指令包括MMX,SSE,SSE2等几级。 在GCC的开发环境中,有几种使用SIMD指令的方式,本文逐一介绍。X86的…

使用angular4和asp.net core 2 web api做个练习项目(二), 这部分都是angular

上一篇: http://www.cnblogs.com/cgzl/p/7755801.html 完成client.service.ts: import { Injectable } from angular/core; import { Http, Headers } from angular/http; import { Observable } from rxjs/Observable; import { ErrorHandler } from angular/core; import rxj…

leelen可视对讲怎么接线_楼宇对讲系统怎么布线 楼宇对讲系统布线方式【介绍】...

随着智能小区规模不断增加,楼宇可视对讲系统应用越来越广泛,因而视频信号的传输方式与布线设计显得越来越重要。视频信号与数据和音频信号不同,可行的一种传输方式为视频信号基带传输,下面小编就简要介绍一下这种传输方式和布线方…

路由汇总实例

5.2.2.2 路由汇总策略 之前提到过,在网络管理员计划好子网选择并进行预期地路由汇总时,手动路由汇总工作能取得最佳效果。例如,之前的例子设定好了一个考虑周全的计划,管理员只使用远离Yosemite路由器并以10.2开头的子网。这个规定…

《操作系统》OS学习(五):连续内存分配 内存碎片、动态分配、碎片整理、伙伴系统

内存碎片 在没有其他方式辅助的情况下,我们分配给一个进程的内存是连续的。在分配时候我们需要有动态分配与碎片处理。如何理解呢?就是每个进程需要一块内存,我们要选取合适的位置的内存分配给它。当有的进程先结束了内存还给操作系统&#…

世界之窗浏览器删除文本框信息_文本框——Excel里的便利贴

工作表里面的单元格应该是足够我们来记录数据和信息了。但是文本框这个功能在工作表中还是存在,可以理解为便利贴功能。插入文本框1.点击“插入”选项卡。2.然后点击“文本框”。3.在下拉菜单里面,有两种可供选择:横排文本框和垂直文本框。在…

RHEL 5服务篇—常用网络配置命令

常用网络配置命令 在“Linux系统管理”的文章中,大家已经学习了Linux系统的基本管理命令和技巧,为了进一步学习Linux网络服务打下了良好的基础。所以我作者以后将陆续推出Linux网络服务的相关文章。希望大家能给与我大大的支持。 今天我们就来学习一下…

清华大学《操作系统》(六):非连续内存分配 段式、页式、段页式存储管理

背景 连续内存分配给内存分配带来了很多不便,可能所有空闲片区大小都无法满足需求大小,这个分配就会失败。基于这种现状,就有了非连续内存分配的需求。非连续分配成功的几率更高,但也面对更多的问题,比如分配时是不是…

C语言第三次博客作业---单层循环结构

一、PTA实验作业。 题目1 1.实验代码 int n,i; double height1,height2;//1为输入身高&#xff0c;2为输出身高。 char sex; //1<height1<3; //N<1; scanf("%d",&n); while(n--){getchar();scanf("%c%lf",&sex,&height1);switch(sex)…

清华大学《操作系统》(七):虚拟存储、覆盖、交换

接下来几节都是对虚拟存储的讲解。虚拟存储是非连续存储管理的扩展。通过将内存中的数据暂存到外存的方式&#xff0c;为进程提供更大的内存空间。虚拟存储出现的主要原因是因为程序规模的增长速度远远大于存储器容量的增长速度&#xff0c;导致内存空间不够用。其实针对内存空…

遵义大数据中心项目工程概况_市委书记张新文到曹州云都大数据中心等项目现场调研建设情况...

4月25日&#xff0c;市委书记张新文到曹县调研重点项目建设情况&#xff0c;研究推进措施。市委常委、秘书长任仲义参加活动。张新文首先来到曹州云都大数据中心项目建设现场&#xff0c;查看项目推进情况。曹州云都大数据中心&#xff0c;是涵盖云计算区、研发办公区、公寓生活…

linux 可执行文件的分析(gcc GUN BUILEIN)

1、GCC The History of GCC 1984年&#xff0c;Richard Stallman发起了自由软件运动&#xff0c;GNU (Gnus Not Unix)项目应运而生&#xff0c;3年后&#xff0c;最初版的GCC横空出世&#xff0c;成为第一款可移植、可优化、支持ANSI C的开源C编译器。GCC最初的全名是GNU C Com…

Cassandra 的数据存储结构——本质是SortedMapRowKey, SortedMapColumnKey, ColumnValue

Cassandra 的数据存储结构 Cassandra 的数据模型是基于列族&#xff08;Column Family&#xff09;的四维或五维模型。它借鉴了 Amazon 的 Dynamo 和 Googles BigTable 的数据结构和功能特点&#xff0c;采用 Memtable 和 SSTable 的方式进行存储。在 Cassandra 写入数据之前&a…