| | | | |

2026年1月15日

摘要：使用freebasic写了一个获取excel版本号的代码。fb通过disphelper库可以很方便使用com组件。代码如下给free basic使用者参考一下: #include "disphelper/disphelper.bi" DISPATCH_OBJ(xlapp) dhInitialize( 阅读全文

posted @ 2026-01-15 10:00 fan2006 阅读(0) 评论(0) 推荐(0)

2025年9月20日

vba里运行miniblink

摘要： miniblink是一个开源的、单文件、且目前已知的最小的基于chromium的，浏览器控件。通过其导出的纯C接口，几行代码即可创建一个浏览器控件。我扫了下下最新的mb132版本,粗略地看了下mb的头文件,看样子是stdcall调用约定,偷闲翻译了一个简单的小例子。测试了下在64位的excel上跑阅读全文

posted @ 2025-09-20 21:48 fan2006 阅读(36) 评论(0) 推荐(0)

2025年7月8日

freebasic里使用sql server数据库

摘要：我写文章懒得啰嗦，只是做做记录，方便道友参考,直接代码开路。 #include "Afx/CADODB/CADODB.inc" DIM pConnection AS CAdoConnection pConnection.Open "Provider=SQLOLEDB;Server=127.0.0.1 阅读全文

posted @ 2025-07-08 21:10 fan2006 阅读(76) 评论(0) 推荐(0)

2024年10月26日

mctrlgrid用法

摘要：摘抄自己以前写的一段代码展示如何在visualfreebasic里使用mctrlgrid. Sub Form1_Shown(hWndForm As hWnd,UserData As Integer) Dim hdr(3) As String={"中","日","俄","欧"} Dim arr(1,3 阅读全文

posted @ 2024-10-26 13:51 fan2006 阅读(51) 评论(0) 推荐(0)

2022年9月15日

wps js宏进行数据匹配

摘要：其实就是对数据源进行vlookup数据查询。下图A-E列为详细数据，H列为需要进行vlookup查询的数据。匹配不到保留下来并保持空项。代码如下,数组arr是需要进行查询的数据，brr则是查询来源的数组。结果写进了sheet2. function 匹配数据(){ let sht=Sheets.It 阅读全文

posted @ 2022-09-15 12:05 fan2006 阅读(2055) 评论(0) 推荐(0)

2022年9月10日

wps js宏制作工作表目录

摘要：制作目录是通过Hyperlinks.Add添加超链接。主要思路是构造工作表索引的连续数字通过map获得表名。效果如下图：代码： function 制作工作表目录(){ var arr=Array.from(new Array(Sheets.Count+1).keys()).slice(2).map 阅读全文

posted @ 2022-09-10 15:09 fan2006 阅读(698) 评论(0) 推荐(0)

2022年9月7日

vfb导出excel里的图表为本地图片

摘要：主要是为了做个记录。 #include Once "Afx/AfxWin.inc" Dim As CObject xl = CreateObject("Excel.Application") Dim As CObject wkb = xl.Get("Workbooks") Dim As String 阅读全文

posted @ 2022-09-07 14:03 fan2006 阅读(186) 评论(1) 推荐(0)

2022年9月5日

扩展wps js宏对com对象的操作

摘要：用exceldna封装了一个Eval函数，调用的是ms的jscript,没有什么ribbon界面,就一个函数.主要用于在wps的js宏里面在com对象操作上做一个补充吧。在网络和本地操作方面束手无策的时候可以换条路试试。下面展示一下运用。 function comobject(){ var s=`v 阅读全文

posted @ 2022-09-05 11:34 fan2006 阅读(3509) 评论(1) 推荐(0)

2022年8月29日

jsa整理数据

摘要： wps对数据进行连接合并整理。如下图：代码1： function zip(...args){ let res=[], idx = 0, len = Math.max(...args.map(x => x.length)); while (idx < len){ res[idx] = args.ma 阅读全文

posted @ 2022-08-29 17:11 fan2006 阅读(269) 评论(0) 推荐(0)

2022年8月12日

初试twinbasic

摘要：以前玩了蛮久的vba,最近关注了一下twinbasic这门语言。今天来尝试一下。虽然目前还有很多不完善的地方，但作者更新很频繁。而且用用还能做点东西出来。作者是用webview2来开发ide的,说实话,反应不是那么快，但是看起来还是比较炫。首先我们来看一下整个界面：整个窗口布局比较现代化。我们可阅读全文

posted @ 2022-08-12 21:46 fan2006 阅读(3295) 评论(3) 推荐(1)