使用VBA导出Access中的模块并统计表、报表和窗体数量

最近需要统计Access文件中各个对象的规模，经过一番查找和尝试用VBA写了一个小工具，只要修改里面的文件路径就可以使用了。

Sub getMdbCount()Dim accapp As Objecttagpth = "D:\access"Set accapp = CreateObject("Access.Application")Set fso = CreateObject("scripting.filesystemobject")Set gfolder = fso.getfolder(tagpth)For Each sfil In gfolder.Files()sfilnm = sfil.NamesfilHz = Right(sfilnm, Len(sfilnm) - InStrRev(sfilnm, "."))sfilNa = Left(sfilnm, InStrRev(sfilnm, ".") - 1)nowFile = sfil.PathIf UCase(sfilHz) = "MDB" Thenaccapp.OpenCurrentDatabase nowFilenewpath = tagpth & "\" & sfilNaIf Not fso.folderexists(newpath) Thenfso.createfolder (newpath)End IfFor Each modu In accapp.CurrentProject.AllModulesaccapp.DoCmd.OutputTo acOutputModule, modu.Name, , newpath & "\" & modu.Name & ".bas"NextSet tagrng = [a65536].End(xlUp).Offset(1, 0)tagrng.Resize(1, 5) = Array(sfilnm, accapp.CurrentData.AllQueries.Count, accapp.CurrentData.AllTables.Count _, accapp.CurrentProject.AllForms.Count, accapp.CurrentProject.AllReports.Count)accapp.CloseCurrentDatabaseEnd IfNextMsgBox ("SUCCESS !!")
End Sub

使用VBA导出Access中的模块并统计表、报表和窗体数量相关推荐

VBA判断ACCESS中的窗体是否存在(并且关闭和删除窗体)
判断窗体中是否有子窗体的模块代码来源:www.accessoft.com 点击数:2744 评论数:3 评论 | 收藏 | 复制时间:2012-01-11 09:35:48 作者:叶海峰 ID ...
access查询设计sol视图_选择查询-在access中如何建立一个选择查询只查询一个信？在access 爱问知识人...
在ACCESS中创建查询像表向导.窗体向导等其他向导一样,Access查询向导能够有效地指导用户顺利地进行创建查询的工作,详细地解释在创建过程中需要做出的选择,并能以图形的方式显示结果. Acce ...
VBA中同一模块Sub过程按顺序调用？
VBA中同一模块Sub过程能否按顺序调用? 有时候,我们希望我们的过程能按顺序执行,这样可以使工作变得清晰.应该怎么实现? 我们可以建一个Sub_Total的过程,然后把子过程依次放在Sub_Tota ...
vba 修改access表的链接地址_VBA中常用的这7种数据类型，你都get到了吗？
关注[新精英充电站]能力提升看得见! 重大消息为方便读者阅读,我们将于12月23日起改为晚上九点更新. 在Access中,我们通过创建表.查询.窗体.报表.页.宏等对象,可以将数据整合在一起,快速建 ...
vba 定义类_什么是模块，VBA中各种模块的有效行为
你已选中了添加链接的内容蓝字关注,加微信NZ9668获资料信息 VBA解决方案系列丛书作者头条百家平台 VBA资深创作者 _______________________________ 大 ...
nodejs中的模块系统：exports导出模块
node中的模块系统示例: 模块作用域成功获取add: module.exports
Access中的MDE文件
认识Access中的MDE文件 MDE文件用于确保Access数据库中的窗体.报表和VBA代码的安全.将Access数据库保存为MDE文件时,若数据库包含VBA代码,则会编译所有的代码,删除所有可编译 ...
access调整字段顺序_Microsoft Access中的顺序行
access调整字段顺序 This is the second article on row numbers in Microsoft Access. 这是有关Microsoft Access中行号的 ...
node.js中模块_在Node.js中需要模块：您需要知道的一切
node.js中模块 by Samer Buna 通过Samer Buna 在Node.js中需要模块:您需要知道的一切 (Requiring modules in Node.js: Everythi ...

使用VBA导出Access中的模块并统计表、报表和窗体数量

使用VBA导出Access中的模块并统计表、报表和窗体数量相关推荐

最新文章

热门文章