分享

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

 互利互读一辈子 2024-02-29 发布于北京

《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

l选择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

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多