VB及VBA获取操作系统版本的通用模块 Option Explicit Public OSNameAs String'操作系统名称（简称），方便程序控制时根据操作系统取值 Public Type OSVERSIONINFO d...

VB及VBA获取网页内容、下载进度条及乱码问题解决 在用vb做“天气预报自动更新系统”的时候，需要从中 国气象网、百度天气搜索等网站提取天气信息，因而对用vb提取网页内容进行了一番研究，重点在于解决乱码问题和字符串提取。 1.下面是一个...

纯VBA VBScript从网站下载压缩文件并保存在本地文件，并自动解压到指定目录 strFileURL = "http://www.office-cn.net/test.zip" strWinRARFileURL = "http://...

vba 如何控制 textbox控件 在 按回车键后 焦点转移，正常是设置2个文本框控件的Tab键顺序。 但有否其它办法来实现 有两个 textbox 控件  在 第一个 textbox 输入完了后 按 回车 （ente...

VBA获取操作系统的版本号（支持windows xp,windows 2003 ,win7 ,win10) Public GetOsVersion() As String Dim objWMIService, colItems,...

API获取其它程序如记事本的弹出消息框 Public Declare Function IsWindow Lib "user32" (ByVal hwnd As Long) As Long Public Declare Function...

正常windows xp 与windows 7都自带 zip解压缩功能 但最近在客户某些电脑使用shell解压缩zip文件 在代码: ShellApp.Namespace(FileNameZip).CopyHere FileNames(i)...

vba通过findwindow获取窗口句柄后并判断是否为活动窗口 '定义Findwindow windows API 函数 Private Declare Function FindWindow Lib "user32" Alias "...

系统自带CMD本身不支持rar的，可以自己找一台安装了winrar的电脑，从文件夹里面提取出来。有些人喜欢丢到windows目录下，其实就是方便调用而已。 RAR.exe 负责的功能是压缩文件  UnRAR.exe 负责的功能...

由于Access VBA及Excel VBA没有直接压缩和解压缩的函数和工具，所以一般都是借助于rar.exe通过命令行的方式来实现对rar压缩解压缩或生成rar压缩文件。 但rar.exe能否支持zip文件的压缩与解压缩呢？ 我们尝试使用...

纯VB代码写的zip压缩和解压缩类模块 Option Explicit 'VB性能大讨论: 顶级专家用VB写的压缩算法居然比C++编写的WinRar压缩算法慢100倍, '该代码是一位俄罗斯专家写的,极具收藏价值和实用价值,只可惜速度...

使用微软未公开的函数 Application.SaveAsText 将整个Access数据库所有对象包括窗体 报表  宏 查询 模块等的内容及定义写到文本文件中去 相当于对整个Access数据库做一个完整的程序备份（不含...

Windows 64位调用zip32.dll及zipfldr.dll压缩和解压缩文件失败的解决办法 这几天一直调试一个VB写的压缩文件夹的dll，因历史原因此dll没有源文件，只知道是调用zip32.dll及zipfldr.dl。原服...

注意，PostMessage是马上返回，而SendMessage则会等待执行完成后才返回 确实遇到过用sendMessage发送消息时有时候写的软件卡住了  用PostMessage就可以   '用类似的方法可以实现...

有时候，我们需要在Access VBA中压缩文件作为我们工作流程的一部分。但在VBA实现压缩的痛点是，不依赖于第三方控件或程序，没有真正简单的方法来压缩或解压缩文件，下面的压缩通用函数是使用内置到Windows资源管理器的压缩功能 幸运...