源数据是A1:G18,需求是在K列显示A1:A18中各单元格重复出现的次数.在L列中是用countif函数直接计算的, Private Sub test() Dim rng As Range, i As Integer i = For Each rng In Range("A1:A18") Range("I" & i) = Application.WorksheetFunction.CountIf(Range("A" & i &a

access生成sql脚本,通过VBA调用ADOX. 使用 MS Access 2016 的VBA,读取mdb文件中的所有表结构(数据类型/长度/精度等),生成对应的SQL create table语句,将结果SQL脚本保存到文件,每个表一行. access数据库中提取表结构,生成sql查询语句,通过sql脚本可以建表 原文来自http://access911.net/fixhtm/72fab11e16dcebf3.htm?tt= 对原文代码做出的修改: 原来的代码在生成文件后又使用了生成的sq

在ArcMap中引用动态链接库       我在VB6下编译生成了一个动态链接库文件VBAPrj.dll,其中有一类模块VBACls,此类模块有一个方法Test(Doc As Object).        常见的方法有三种(作者:张业新): 1.打开VBA编辑器,点"工具"菜单下的"引用"命令,在引用对话框中引用该动态链接库.        调用代码如下:          Dim VBACls As New VBAPrj.VBACls          VBAC

我开发了一个用于求解数独的dll文件,只需要双击一下注册表文件,就可以在VBA中调用这个功能了.具体步骤如下: 下载:https://share.weiyun.com/5dpcNqx 找到ExcelSudoku.zip,下载后解压,假设解压到了 D:\Temp. 第一步:用记事本打开并且编辑ExcelSudoku.reg文件,在该文件中总共可以找到两处如下内容: @="E:\\ExcelSudoku\\ExcelSudoku.dll"请把双引号中的路径替换你电脑中解压后的路径,然后保存

Set wsh = VBA.CreateObject("WScript.Shell") 'wsh.Run strExePath & " g", vbHide, True Set wshOut = wsh.exec(strExePath & " g").StdOut While Not wshOut.AtEndOfStream sLine = wshOut.ReadLine Debug.Print sLine Wend run可以隐

本文阐述如何用C#创建COM组件,并能用VB6.0等调用.附有完整测试通过的代码.该功能总体看来很简单,实际值得注意的地方还是挺多.因为很少有人写这类文章,有些代码也是转来转去的不全,有些甚至让人误入歧途.后来在C# help上面看一个老外写的文章 (上面有一个完整的SQL SERVER实例),才完成该功能.拿来分享. 开发工具:VS2008 附:本文适用任何VS系列工具. 在用C#创建COM组件时,一定要记住以下几点: 1.所要导出的类必须为公有: 2.所有属性.方法也必须为公有: 3.要导出

原始链接 https://www.cnblogs.com/Charltsing/p/DllExport.html 这两年,我在VBA应用方面一直有几大痛点:1.多音字转拼音:2.64位下的GZIP解压缩:3.数学公式计算:4.离线中文OCR识别(见二楼). 为了解决这几个个长期困扰我的问题,以及未来经常会遇到的其它问题(例如AES加解密.验证码图片处理.文本编解码.大数的数学运算.多线程等等),我考虑在VBA中调用C#的dll来彻底解决. 正常情况下,vba调用C#的dll要通过com方式先注册

VBA是一种强大的编程语言,可用于自定义Microsoft Office解决方案.通过使用VBA处理一个或多个Office应用程序对象模型,可以容易地修改Office应用程序的功能或者能够使两个或多个Office应用程序协同工作以完成单个应用程序无法完成的任务.然而,使用VBA仅能控制操作系统的一小部分.Windows API提供了控制操作系统绝大多数方面的功能.下面,介绍在VBA中使用Windows API的一些知识. 理解APIs API只是一组函数,可用于处理组件.应用程序或操作系统.通常

前一篇我测试了vba调用htmlfile做反混淆,并执行js加密函数的代码.本文换成C#实现. 联系QQ:564955427 C#操作JS函数,可以通过ScriptControl组件,但这个组件只能在x86进程下运行.如果在X64下,可以使用Htmlfile组件. C#调用com组件需要使用CreateInstance,当然也可以通过调用vb.net中的CreatObject来实现,或者反编译vb.net里面的CreatObject来修改成C#代码,只要解决了这个问题,剩下的就好办了. 通过调用

本文地址:http://www.cnblogs.com/Charltsing/p/JSEval.html 联系QQ:564955427 类似下面的代码是登陆 全国企业信用信息公示系统(安徽)(网址:http://www.ahcredit.gov.cn/search.jspx)时得到的,需要反混淆. eval(function(p,a,c,k,e,d){e=function(c){return(c<a?'':e(parseInt(c/a)))+((c=c%a)>32?String.fromCha

1.合并字符串A1&A22.拆分字符串LEFT(A2,SEARCH("-",A2)-1)3.下拉选项Data->Data validation->List 1.在工具栏上显示开发选项 2.新建个Module就可以在几个sheet里共享变量 Public cn As New ADODB.Connection Public strCn As String Public strCom As String Public rs As New ADODB.Recordset P

VBA调用InternetExplorer操作IE浏览器,自动弹出文件选择对话框时,VBA会处于阻塞状态,你必须手工关闭文件选择对话框,VBA才能继续向后运行. 例如下面网址,就有一个文件浏览按钮: http://www.zytxs.com/web1/upload.aspx 我做了一个exe文件,可以在另一个进程中来处理文件对话框. Sub Test() Dim File As MSHTML.HTMLInputFileElement Dim WSH As Object Set File = IE

我们知道,Excel中有很多内置的函数,比如求和,求平均,字符串操作函数,金融函数等等.在有些时候,结合业务要求,这些函数可能不能满足我们的需求,比如我想要一个函数能够从WebService上获取某只股票的最新价:我想要一个函数能够获取当前的天气情况,这些需求我们可以通过编写Excel自定义函数(User Define Function ,UDF )来实现,这样,在Excel中直接调用我们的自定义函数即可满足特定的业务需求,一般地,因为这种自定义函数的粒度相对较小,所以我们可以根据业务需求编写很

Excel4 和 Excel12 函数使得 DLL 可以调用 Excel 工作表函数.宏表函数.命令.XLL特定函数或命令.最近的一些 Excel 版本都支持 Excel12 函数.这两个函数支持下面两种形式. 来自于 Excel4/Excel12 可变长度参数列表 来自于Excel4v/Excel12v 数组参数 除了将参数传递给这两个函数方法不同以外,这两种形式的功能是相同的.两二种形式的完整描述在 Excel4/Excle12 中.Excel4v/Excel12v 包含了关于这种形式的其它

导出Excel之Epplus使用教程1(基本介绍) 导出Excel之Epplus使用教程2(样式设置) 导出Excel之Epplus使用教程3(图表设置) 导出Excel之Epplus使用教程4(其他设置) 1.嵌入VBA代码 首先将vba代码保存成txt文本格式,然后用epplus去调用这个txt文本文件即可,非常简单,当然要想vba调用成功,前提是你的vba代码是没问题的喽! worksheet.CodeModule.Name = "sheet" ; worksheet.CodeM

最近客户在咨询着怎么把SharePoint上面的用户列表给到出Excel,查看了一下,SharePoint并没有提供直接可用的导出功能(虽然都是List,但就是不让你导出...) 网上搜索了一下,方法多种多样,按需而用吧. 方法一: 1. 打开你要导出的SharePoint Group页面. 2. 复制该页面URL. 3. 打开Excel > Data > From Web,然后将上一步复制的URL粘贴过去,然后点击GO. 你会看到页面上有很多黄色箭头,选择User Group的表格,然后点击

浅谈Excel开发:四 Excel 自定义函数   我们知道,Excel中有很多内置的函数,比如求和,求平均,字符串操作函数,金融函数等等.在有些时候,结合业务要求,这些函数可能不能满足我们的需求,比如我想要一个函数能够从WebService上获取某只股票的最新价:我想要一个函数能够获取当前的天气情况,这些需求我们可以通过编写Excel自定义函数(User Define Function ,UDF )来实现,这样,在Excel中直接调用我们的自定义函数即可满足特定的业务需求,一般地,因为这种自定

http://www.cnblogs.com/Charltsing/p/OneNoteOCR.html 有需要技术咨询的,联系QQ564955427 前段时间有人问我能不能通过OneNote扫描图片,并返回文本.经过几天的测试,以及对网上若干个代码的测试,写了一个OneNote 2013下的OCR导入导出工具. 在测试的时候,发现OneNote 2013 提供的API还是有一些问题的,总结如下: 1.OneNote 2013务必升级到最新版,否则调用API的时候,可能会发生异常.本人目前的版本是

文章地址:https://www.cnblogs.com/Charltsing/p/OneNoteOCR.html 前段时间有人问我能不能通过OneNote扫描图片,并返回文本.经过几天的测试,以及对网上若干个代码的测试,写了一个OneNote 2013下的OCR导入导出工具. 在测试的时候,发现OneNote 2013 提供的API还是有一些问题的,总结如下: 1.OneNote 2013务必升级到最新版,否则调用API的时候,可能会发生异常.本人目前的版本是15.0.4787.1000简体中

7.1 设置阶段 代码清单7.1:使用Parent属性获得一个对象的父对象的指针 '使用Parent属性获得一个对象的父对象的指针 Sub MeetMySingleParent() 'Declare a worksheet variable named ws Dim ws As Worksheet 'set ws to refer to sheet 1 Set ws = ThisWorkbook.Worksheets("Sheet1") 'please meet my parent -