注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

精品资源 仓库

不是精品,我不收藏——好资源 大家共享!

 
 
 

日志

 
 

2-2、当前工作簿与活动工作簿  

2014-05-21 11:10:22|  分类: 【Excel VBA】 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

2-2、当前工作簿与活动工作簿

2-2、当前工作簿与活动工作簿 - zibo139 - 学习笔记——备忘录

  

thisworkbook当前工作簿,代码所在工作簿

activeworkbook活动工作簿,被激活的工作簿

 

Option Explicit

 

Sub 当前与活动工作簿区别实例()

MsgBox ThisWorkbook.Name & "---" & ActiveWorkbook.Name

End Sub

 

Sub 运用()

MsgBox ThisWorkbook.Path & Chr(10) & ThisWorkbook.FullName  ‘Chr(10)换行

End Sub

 

Sub 验证当前工作簿是否已打开()

Dim wk As Workbook, a

For Each wk In Workbooks

a = wk.Name

    If wk.Name = "学习VBA.xlsm" Then

        wk.Activate

        MsgBox "已激活工作簿" & wk.Name

        Exit Sub

    End If

Next wk

MsgBox "没有发现工作簿:学习VBA.xlsm"

End Sub

 

思考题:用workbooks.countwindows.count来做上面这道题?

 

  

本文视频教程学习网址 http://www.51zxw.net/study.asp?vip=8662538

 

 

 

  评论这张
 
阅读(66)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017