VBA即用型代码手册之根据对话框选择打开文件

发布时间:2024年01月17日

我给VBA下的定义:VBA是个人小型自动化处理的有效工具。可以大大提高自己的劳动效率,而且可以提高数据的准确性。我这里专注VBA,将我多年的经验汇集在VBA系列九套教程中。

作为我的学员要利用我的积木编程思想,积木编程最重要的是积木如何搭建及拥有积木。在九套教程中我给出了大量的积木,同时讲解了如何搭建。为了让学员拥有更多的积木,我开始着手这部VBA即用型代码手册(汉英)》的创作这部手册约600页,集合约500多个的案例,案例我用汉语和英语同时发布,一方面学员从中可以更好的领会和掌握VBA中用到的一些英语知识,另一方面,大家可以看到各种各样的积木。这部手册是大家学习和工作中的不可多得的实用资料。今日的内容是: VBA即用型代码手册之根据对话框选择打开文件2f53419e93ac8a60342d242a8a6b8050.jpeg

分享成果,随喜正能量】佛陀从不勉强别人去做他不喜欢的事情,佛陀只是告诉众生,何者是善?何者是恶?善恶还是要靠自己去分辨,生命还是要自己去掌握!。

第三章 工作薄代码

Workbook Codes

17 根据对话框选择打开文件Workbook Open File Dialog

Sub mynzvba_open_dialog()

Dim strFile As String

strFile = Application.GetOpenFilename()

Workbooks.Open (strFile)

End Sub

36425851d84a10e1d94079334383c431.jpeg

  • 本节内容参考程序文件:Chapter03-2.xlsm

18 检查工作簿文件是否打开Check if a Workbook is Open

Sub mynzvba_check_openworkbook()

Dim WB As Workbook

Dim myWB As String

myWB = InputBox(Prompt:="输入工作薄名称(含扩展名).")

For Each WB In Workbooks

If WB.Name = myWB Then

WB.Activate

MsgBox "Workbook Found!"

Exit Sub

End If

Next WB

MsgBox "Not Found"

End Sub

11464cee21cb97ce29c535313c03747e.jpeg

  • 本节内容参考程序文件:Chapter03-2.xlsm

19 如果禁用宏,EXCEL将无法继续工作EXCEL Cannot Continue to Work If Macro is Disabled

Private sh As Worksheet

Private Sub Workbook_BeforeClose(Cancel As Boolean) '第21讲 如何做到如果禁用VBA将无法继续工作

Sheets("空白").Visible = True

For Each sh In ThisWorkbook.Sheets

If sh.Name <> "空白" Then

sh.Visible = xlSheetVeryHidden

End If

Next

ActiveWorkbook.Save

End Sub

Private Sub Workbook_Open() '第21讲 如何做到如果禁用VBA将无法继续工作

For Each sh In ThisWorkbook.Sheets

If sh.Name <> "空白" Then

sh.Visible = xlSheetVisible

End If

Next

Sheets("空白").Visible = xlSheetVeryHidden

End Sub

7afbe23b08ef9bdb54dac39dd108dca7.jpeg

  • 本节内容参考程序文件:Chapter03-3.xlsm

b1f8603d4a3821f9078c5891f336299a.jpeg

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

3fdbff0928b57ede470a5f7714935eed.jpeg


a1d0cb9bfa05c058707c550bbd147fdc.jpeg

文章来源:https://blog.csdn.net/VBA6337/article/details/135658315
本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。