四时宝库

程序员的知识宝库

VBA之Excel应用:工作簿和工作表的属性和方法

《VBA之Excel应用》(版权10178983)是非常经典的,是我推出的第七套教程,定位于初级,目前是第一版修订。这套教程从简单的录制宏开始讲解,一直到窗体的搭建,内容丰富,实例众多。大家可以非常容易的掌握相关的知识,这套教程共三册,十七章,都是我们在利用EXCEL工作过程中需要掌握的知识点,希望大家能掌握利用。今日讲解的内容是:VBA之Excel应用第三章第二节:工作簿和工作表的属性(Properties)和方法(Methods)

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

第三章 工作簿(Workbook)和工作表(Worksheet)对象(Object)

大家好,我们今日开始讲解工作簿(Workbook)和工作表(Worksheet)对象(Object),我们经常讲的面向对象编程,这里的工作表和工作簿就是所谓的对象。对象是一个名词,每个对象有着自己的属性和方法。这些属性和方法就是我们要利用的工具。这个章节中我们将讲解到对象的层次结构、集合、属性和方法,同时还会讲解到工作簿的打开和关闭以及工作表的循环处理。由于这套教程是针对EXCEL而写的,所以这章内容非常重要。

第二节 工作簿和工作表的属性(Properties)和方法(Methods)

大家好,我们这讲讲解工作簿和工作表集合的一些属性和方法。什么是属性和方法呢?属性是对象的固有性质,它是对对象的描述,而方法则是对象能做的一些事情。下面我们来讲解一下工作表和工作簿的一些常见的属性和方法。

1 Workbooks集合和Worksheets集合的Add方法

Workbooks集合的Add方法将创建一个新工作簿,Worksheets集合的Add方法将创建一个新的工作表。

我们来看下面的代码:

Sub mynzD() 'Workbooks集合和Worksheets集合的Add方法

Worksheets.Add

Workbooks.Add

End Sub

代码截图:

代码讲解:Worksheets.Add将增加一个工作表,Workbooks.Add将添加一个新的工作簿。

2 Workbooks集合和Worksheets集合的Count属性

Workbooks集合的Count属性将统计活动工作簿的数量,Worksheets集合的Count属性将统计活动工作表的数量。

我们来看下面的代码:

Sub mynzE() 'Workbooks集合和Worksheets集合的Count属性

MsgBox "当前打开的工作簿有" & Workbooks.Count & "个"

MsgBox "当前工作簿有" & Worksheets.Count & "个工作表"

End Sub

代码截图:

3 Path属性和FullName属性

Excel VBA中的Path属性返回工作簿(Excel文件)的完整保存路径,Excel VBA中的FullName属性返回完整的保存路径,包括工作簿的名称。

我们看下面的代码:

Sub mynzF() 'Path属性和FullName属性

MsgBox "当前打开工作簿的路径为:" & Workbooks("工作簿03.xlsm").Path

MsgBox "当前打开工作簿的路径及名称为:" & Workbooks("工作簿03.xlsm").FullName

End Sub

代码截图:

4 Close和Open方法

Excel vba中的Close和Open方法可以用来关闭和打开工作簿。工作簿集合包含当前打开的所有工作簿对象。

为了应用上述方法,我们要记住下面的语句:

关闭某个文件: Workbooks("工作簿03.xlsm").Close

关闭第一个打开或创建的工作簿:Workbooks(1).Close

关闭当前活动的工作簿:ActiveWorkbook.Close

关闭当前打开的所有工作簿:Workbooks.Close

打开某个文件:Workbooks.Open ("工作簿03.xlsm")

5 Application对象的GetOpenFilename方法

为了应用Workbooks.Open方法打开一个文件,我们可以先取得这个文件的文件名,这时我们可以用GetOpenFilename方法,GetOpenFilename实际上并没有打开文件,只是取得一个文件的文件名。

我们看下面的代码:

Sub mynzG() 'GetOpenFilename方法

Dim MyFile As String

MyFile = Application.GetOpenFilename()

Workbooks.Open (MyFile)

End Sub

代码截图:

代码解读:

上面的代码中利用GetOpenFilename方法打开一下选择文件的对话框,然后打开这个文件。

今日内容回向:

1) Workbooks集合和Worksheets集合的Add方法是什么意义?

2) Workbooks集合和Worksheets集合的Count属性是什么意义?

3) Path属性和FullName属性是什么意义?

4) Close和Open方法是什么意义?

5) GetOpenFilename方法的作用是什么?

本讲内容参考程序文件:工作簿03.xlsm


我20多年的VBA成果全在下面的资料中:

发表评论:

控制面板
您好,欢迎到访网站!
  查看权限
网站分类
最新留言
    友情链接