Dim site As String        Dim FolderName As String        Dim FolderName1 As String        Dim Rarexe As String        Dim Source As String        Dim Target As String        Dim FileString As String        Dim Result As Long FolderName = Sheet6.Rang

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

调用winRAR进行压缩 using System; using System.Collections.Generic; using System.Linq; using System.Text; using System.Threading.Tasks; namespace testZIPEXE { class Program { static void Main(string[] args) { String exePath = "C:\\Program Files (x86)\\WinRA

QT中QProcess调用命令行的痛苦经历   阅读目录 创建压缩包的方法 在QT中调用命令行 在QT中调用C++创建的dll 在QT程序中需要将某些目录和文件压缩为一个rar的压缩包,于是想到了在QT中通过QProcess类调用命令行的rar.exe来达到效果,但是没想到QProcess类用起来很麻烦,而且达不到效果,折腾了2天仍然没找到原因,使用另外一种办法解决了. 回到顶部 创建压缩包的方法 在windows平台创建压缩包,可以直接使用rar.exe,该程序在安装winrar之后,在其安装

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

using System; using System.Collections.Generic; using System.Web; using System.IO; using System.Linq; using System.IO.Compression; using System.Text; using System.Collections; using System.Diagnostics; using Microsoft.Win32; namespace RarHelper { pub

在实际项目应用中会偶尔使用文件的压缩上传以及服务器端的加压处理,故写此文记录以备不时之需. 1.自己编写的ZipHelper类. public static class ZipHelper { private static string pathExe = AppDomain.CurrentDomain.BaseDirectory + @"Resource\WinRAR.exe"; /// <summary> /// 使用Gzip方法压缩文件 /// </summar

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

命令: winrar a 参数  压缩后的文件 压缩源文件 如压缩apk文件,代码如下 echo apk文件不能直接下载,所以压缩apk成rar来下载 d: cd D:\Program Files\WinRAR (切换到WinRAR安装目录) winrar a -ep1 -o+ -inul -r -iback D:\CI\jenkins-1.620\xxx.rar D:\CI\jenkins-1.620\xxx.apk echo 压缩完成 其中,a是压缩命令,-ep1 -o+ -p -inul

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.要导出

源数据是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

原始链接 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

RAR控制台日常备份策略 run.batrar a -ep1 -agYYYY{年}MM{月}DD{日} 备份 @list.txt-ep1是忽略原文件路径,rar包里是一堆文件,没有目录结构-ag附加命名规则@list.txt如下C:\Program Files\Opera\profile\notes.adrC:\Program Files\Opera\profile\opera6.adrC:\Program Files\Opera\profile\opera6.iniC:\Program Fil

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

随着苹果ibooks对国内的开放,最近接了个麻烦的需求: 把现有的APK转化支持苹果ibooks电子书的epub格式 apk,基本都知道就是安卓的应用程序 epub,是ibooks支持的电子书格式 (xhtml组成的静态多页面) 这apk与epub两个完全不是一个世界的东西,怎么能关联并转化? 因为我司产出的APK应用是通过phonegap打包的SPA应用,这也是一套黑科技,通过ppt批量生成应用,本质上还是web那一套,所以给epub转化提供契机 通过H5写应用已经流行几年了,这里也不多说了,

关于本文档的说明 本文档使用WinRAR方式来进行简单的压缩和解压动作,纯干货,实际项目这种压缩方式用的少一点,一般我会使用第三方的压缩dll来实现,就如同我上一个压缩类博客,压缩的是zip文件http://www.cnblogs.com/wohexiaocai/p/5469253.html,实际项目中也会用到rar压缩,所以总结了一下代码,之后简单的几个函数. 欢迎传播分享,必须保持原作者的信息,但禁止将该文档直接用于商业盈利. 本人自从几年前走上编程之路,一直致力于收集和总结出好用的框架和通