VBA常用技巧代码解析

Hoer

我也单独给第2章做了个目录，在附件中。
修改成与网上的内容一致了，纯手工，别见笑~

yuanzhuping

原帖由 Hoer 于 2009-2-19 21:36 发表


你转到页面视图看看~
1、技巧33和技巧35出现“错误！未定义书签。”
2、技巧40 保护所有工作表 网页上没有

我明白了，是Word的目录有问题，这是修改前的，忘记了更新，抱歉，已更新了，或者在目录上[右键]》[更新域]就能修改为正确的目录，谢谢Hoer。

Hoer

袁版辛苦，为我们编写那么好的VBA资料。
主要是自己太笨，对WORD的操作也一知半解，不知可以用“更新域”解决，还傻乎乎的手工制作目录，看样子还得好好学习WORD操作，下次袁版还可以开个“WORD常用技巧解析”~~

googoonets

入门中，appreciated for great effort on VBA...

poor.456

太感谢了
楼主真棒啊

poor.456

收藏了。谢谢yuanzhuping版主。

yuanzhuping

技巧40         工作簿的引用方法
       VBA中，在不同的工作簿之间转换需要指定引用的工作簿，通常有下面几种方法。
40-1        使用工作簿的名称
       工作簿名称是指Excel文件的文件名，可以使用Workbooks集合引用方式来引用工作簿，如下面的代码所示。

1. #001  Sub WbQuote_1()
   
2. #002      MsgBox "路径为：" & Workbooks("技巧40 工作簿的引用方法.xls").Path
   
3. #003  End Sub

复制代码

代码解析：
       WbQuote_1过程显示工作簿“技巧40 工作簿的引用方法.xls”的路径。应用于Workbook对象的Path属性将完整路径返回给应用程序，语法如下：
expression.Path
       参数expression是必需的，一个有效的对象。
       运行WbQuote_1过程结果如图所示。


40-2        使用工作簿的索引号
       工作簿索引号是指工作簿打开的顺序，Excel根据工作簿打开的顺序以1开始进行编号。下面的代码显示应用程序打开的第一个工作簿的名称。

1. #001  Sub WbQuote_2()
   
2. #002      MsgBox "第一个打开的工作簿名字为：" & Workbooks(1).Name
   
3. #003  End Sub

复制代码

代码解析：
       WbQuote_2过程显示应用程序打开的第一个工作簿的名称。应用于Workbook对象的Name属性返回对象的名称，语法如下：
expression.Name
       参数expression是必需的，一个有效的对象。
       运行WbQuote_2过程，如果本工作簿是第一个打开的，结果如图所示。

       如果需要返回包含完整路径的工作簿名称则使用Workbook对象的FullName属性，如下面的代码所示。

1. #001  Sub WbQuote_3()
   
2. #002      MsgBox "包括完整路径的工作簿名称为：" & Workbooks(1).FullName
   
3. #003  End Sub

复制代码

WbQuote_3过程显示应用程序打开的第一个工作簿的完整路径和名称。FullName属性返回对象的名称，包括其磁盘路径的字符串，此属性等价于在Path属性后加上当前文件系统的分隔符，然后加上Name属性。
       运行WbQuote_3过程，如果本工作簿是第一个打开的，结果如图所示。


40-3        使用ThisWorkbook
       使用ThisWorkbook属性返回当前宏代码运行的工作簿，如下面的代码所示。

1. #001  Sub WbQuote_4()
   
2. #002      ThisWorkbook.Save
   
3. #003  End Sub

复制代码

代码解析：
       WbQuote_4过程使用Save方法保存当前宏代码运行的工作簿所做的更改。
       ThisWorkbook属性返回一个Workbook对象，该对象代表当前宏代码运行的工作簿。
       应用于Workbook对象的Save方法保存指定工作簿所做的更改。
       注意 本属性仅可在 Microsoft Excel内使用。不能使用此属性访问任何其他应用程序的工作簿。

40-4        使用ActiveWorkbook
       使用ActiveWorkbook代表活动窗口（最上面的窗口）的工作簿，如下面的代码所示。

1. #001  Sub WbQuote_5()
   
2. #002      MsgBox "当前活动工作簿名字为：" & ActiveWorkbook.Name
   
3. #003  End Sub

复制代码

代码解析：
       WbQuote_5过程显示活动工作簿的名称，ActiveWorkbook属性返回一个Workbook对象，该对象代表活动窗口（最上面的窗口）的工作簿。如果没有打开任何窗口或者活动窗口为信息窗口或剪贴板窗口，则返回Nothing。
       运行WbQuote_5过程结果如图所示。

xsxcym

yuan版主，你太....太.....牛了！！！！！！！！！

mikko

谢谢楼主分享！

hehz

经典，感谢奉献