模块_函数_VBA_API
5568
2017-09-10
VBA使用Shell调用winrar进行压缩和解压缩
调用Winrar压缩文件
Access交流网"
End Sub
调用Winrar解压缩文件
gf_UnZipOrRar()
'将
4722
2017-09-09
VBA压缩与解压缩几种方法的缩合对比
Vb,Access VBA ,Excel VBA实现压缩与解压缩总结出来有以下几种方法
作者:tmtony
来源:Access交流网
1.通过Shell调用Winrar.exe 进行压缩和解压缩
2.通过VBA代码调用zip32.d...
4387
2017-09-08
VBA压缩与解压缩源码
VBA本身没有压缩和解压缩的函数,但可调用zip.dll unzip.dll 或 winrar.exe 命令行方式来实现对文件的压缩与解压缩
1、批量解压缩(一次性解压指定文件夹中所有rar文件)
Sub UnRarFi...
4616
2017-09-08
VBA及VB三种不同压缩解压组件/控件的性能对比报告(zlib.dll,info-zip,xceed zip)
VBA及VB三种不同压缩解压组件/控件的性能对比报告
VB Access Excel本身没有自己的压缩和解压缩函数和组件,必须依赖于第三方的控件或动态链接库,以下是三种不同压缩组件的性能对比详细报告
VB中使用三种不同组件进行内存解压...
8008
2017-09-08
Access函数的调用
Access内置函数库能轻松解决很多问题。如果没有此函数,我们可以自定义函数来处理问题。
这里我们说说如何调用函数。调用内置函数和自定义函数方法是一样的。
一.创建自定义函数
在VBE视图下,插入-模块,新建一个模块后,键入以下函数。一...
4085
2017-09-08
Access VBA 使用API 关闭系统声音和打开系统声音的 方法
Access VBA 使用API 关闭系统声音和打开系统声音的 方法
即让整个系统静音及取消静音的代码如下
------VBA 实现 源码--------------------
Private Declare Function F...
6819
2017-09-07
Access或VB VBA 获取了窗体或控件的句柄 Hwnd, 如果用API 设置焦点到这个控件或窗体上
Access或VB VBA 获取了窗体或控件的句柄 Hwnd, 如果用API 设置焦点到这个控件或窗体上
可使用以下的代码,要准确定位焦点
1. 使用VB API SendMessage来实现
简易使用SendMessage,比Se...
3662
2017-09-07
vba灵活调用shell及vba FSO对文件的操作
在调用SHELL之前,必须要通过以下步骤:(以在E:盘根目录下操作为例)
1、强制改变当前的驱动器: ChDrive "E"
2、强制改变默认的工作目录:chdir "E:/"
完成以上动作之后,再来调用E:/的批处理文件:shell ...
3455
2017-09-07
Access数据库软件版本号保存在INI文件中,然后从INI文件中提取版本号
很久以前帮客户做的一个客户管理系统,有一个取软件版本号的函数,感觉还有点用,与大家分享一下
Access数据库软件版本号保存在INI文件中,然后从INI文件中提取软件的当前版本号(可用来与服务器的最新版本号对比,然后提示是否需要更新)
...
3855
2017-09-07
VBA直接解压文件(不支持压缩)
警告:
本代码不受微软技术支持。当你从一个压缩文件复制文件时会出现一个复制对话筐 (仅在对普通文件夹进行操作时),而且用户可以取消此复制操作。
提示:
不要定义示例中的 strFileNameFolder 变量为String 类型,必须定...
6381
2017-09-06
纯Access VBA从网页下载文件到本地文件
纯Access VBA通过 xmlHTTP对象 从网页下载文件到本地文件
'纯Access VBA从网页下载文件到本地文件
'作者:tmtony
'来源:Office交流网
Function DownloadFileFromUrl(URL...
5609
2017-09-06
比Vba.filecopy更好的复制文件同时并显示文件复制的进度
使用Vba.filecopy 复制文件无法显示文件的复制进度,如果文件比较大的话,用户可能不知道你的Access数据库系统正在处理什么,以为死机或程序崩溃了,如果能够有一个文件复制的函数,在复制大文件的过程中能够显示复制的进度,这样交互性会...
4891
2017-09-06
Access VBA调用Shell.Application出现对象不支持该动作错误
Access VBA使用以下的代码调用Shell.Application出现对象不支持该动作错误,错误号为445
使用各种方法尝试解决,都不得要领,最后从Items的参数的数据类型入门,解决了问题
Set objShell ...
7128
2017-09-06
VBA调用Shell.Application打开我的电脑 我的文档 回收站等
VBA调用Shell.Application打开我的电脑 我的文档 回收站等
当VBA本身没有相应的功能时,我们可以通过 调用Shell 来完成很多工作
Private Sub Comma...
4999
2017-09-05
Access随机生成一个8到10位的整数
有网友问到如何随机产生一个8到10位的纯数字,并且写入表中作为主键?
这里只需要用到Rnd 函数
返回一个包含随机小于 1 但大于或等于 0 的值。
为了生成某个范围内的随机整数,可使用以下公式:
Int((upperboun...
文章分类
联系我们
联系人: | 王先生 |
---|---|
Email: | 18449932@qq.com |
QQ: | 18449932 |
微博: | officecn01 |