VBA高级应用30例应用1:确保打开文件时响应事件

VBA语言専攻 2024-02-27 18:42:44

《VBA高级应用30例》(版权10178985),是我推出的第十套教程,教程是专门针对高级学员在学习VBA过程中提高路途上的案例展开,这套教程案例与理论结合,紧贴“实战”,并做“战术总结”,以便大家能很好的应用。教程的目的是要求大家在实际工作中分发VBA程序,写好的程序可以升级。

本套教程共三册三十个专题,VBA高级应用30例应用1:确保打开文件时响应事件

【分享成果,随喜正能量】 日子是活给自己看的,不是来源于别人的指指点点;日子是活给时光看的,别让时光的压力把咱压得喘不过气来。。

应用1 在EXCEL中构建加载项9 确保打开文件时响应事件

最后,我们希望在工作簿打开时就会调用代码,以便外接程序立即开始响应这些事件。因此,在这个工作簿中,我添加了如下代码:

Private Sub Workbook_Open()

Application.OnTime Now, "'" & ThisWorkbook.FullName & "'!Init"

End Sub

上述代码中我使用OnTime方法,可以确保Excel在调用Init之前加载所有内容。有时,Excel甚至在完成内部管理之前就触发工作簿打开事件。

10 创建外接程序

创建外接程序非常简单,只需单击“文件”“另存为”,在保存文件类型中选择“Excel加载宏”选项:

另存为对话框:

选择保存类型:

我们也可以换成自己喜欢的名称,我提供的程序文件中加载宏文件为:mynzSheetTools.xlma

选择Excel加载项时,Excel会将文件夹更改为系统上的标准加载项文件夹,这足让人感到困惑。因为我们从来都不想在那里保存我的加载项,这让们人很恼火。我们只需单击“上一步”按钮即可返回上次打开文件(或将文件保存到)的原始文件夹:

11 验证我们的程序

我们随便打开一个工作薄:

然后找到我们的刚才建立的加载宏,mynzSheetTools.xlma。双击打开,此时刚才打开的工作薄会出现下面的变化:

我们点击“工作表工具”:

此时我们就可以利用刚才我们的工具了,点击“Table of contents”:

同时,我们在选择工作表的选项中选择工作表,选择后该工作表会自动激活:

到此,我们从立项到任务完成就全部完成了。

结论: 利用VBA创建我们自己的应用程序接口是一项十分有意义的工作,本专题中我讲解了一个应用程序如何立项,如何规范用户的需求,一直到各个功能的实现,都进行了详细的讲解。最后给大家展示了我们的成果。本文涉及到了很多的VBA知识点,包括高级类的内容。希望本专题的内容对于大家开发应用程序有所帮助。

今日内容回向:

1 应用程序立项过程要完成那些工作?

2 如何实现高版本office功能区的自定义?

3 如何把我们的应用程序另存为加载项?

本讲内容参考程序文件:高级应用01.xlsm第三方应用软件:OfficeRibbonXEditor-NETFramework-Installer.EXE实现的外接应用程序:mynzSheetTools.xlma

我20多年的VBA实践经验,全部浓缩在下面的各个教程中:

0 阅读:77

VBA语言専攻

简介:专注VBA