设为首页收藏本站 Access中国

开启辅助访问切换到宽版

官方QQ群

Office中国论坛/Access中国论坛 › 日志

日志

網羅天下| 我的作品| 我的作品| 电脑网络| API| 心情故事|

分享快速统计文件中指定字符串的数量: andymark 2007-12-29 14:27; Function CountMatches(ByVal strFic As String, ByVal strSearch As String) As Long ' 需引用 Microsoft VBScript Regular Expressions 5.5 library ' 统计文本文件指定的字符串的个数 ' 用法: ?countmatches("c:\SoftwareList.txt","ERP") Dim reg As VBScript_RegExp_55.RegExp &nb ...; 个人分类: 網羅天下|133 次阅读|0 个评论

分享 [转]取消Outlook 发EMAIL的安全警示: andymark 2007-9-5 00:21; Here's the Outlook 2003 VBA code: (copy and paste into the ThisOutlookSession VBA module) Public Function FnSendMailSafe(strTo As String, _ &nb ...; 个人分类: 網羅天下|199 次阅读|0 个评论

分享当文件到达一定大小才压缩数据库: andymark 2007-8-24 22:56; '在程序退出前调用下面代码,即可实现当文件到达一定大小才压缩数据库 Public Function AutoCompactCurrentProject() Dim fs, f, s, filespec Dim strProjectPath As String, strProjectName As String strProjectPath = Application.CurrentProject.Path &nb ...; 个人分类: 網羅天下|107 次阅读|1 个评论

|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )

GMT+8, 2024-5-12 11:06 , Processed in 0.059748 second(s), 13 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

返回顶部