百度推广哪种效果好,上海seo网站排名优化公司,wordpress 信息发布,ico 代码 wordpress前三篇文章介绍了百度地图生成器、源代码编辑器、GPS经纬度批量转换工具、源代码编辑器中添加自定义功能按钮和地图控件。这些写好的Java Script代码虽然可以实现所有期望的结果#xff0c;但毕竟不是一个HTML文件#xff0c;不便于传播和使用#xff0c;更无法变成一个类似… 前三篇文章介绍了百度地图生成器、源代码编辑器、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 .htmlEnd 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开发移动端APP2.连载系列【1】Excel开发移动端APP3.连载系列【2】Excel开发移动端APP4.连载系列【3】Excel开发移动端APP
