在Excel中使用VBA判断指定名称的工作簿是否已经打开

' 判断名字为 sWorkbookName 的工作簿是否已经打开
Public Function IsOpenedWorkbook(ByVal xlApp As Application, _ByVal sWorkbookName As String) As BooleanDim flag As Booleanflag = FalseIf Len(sWorkbookName) = 0 ThenIsOpenedWorkbook = FalseExit FunctionElseIf xlApp.Workbooks.Count > 0 ThenDim wb As WorkbookFor Each wb In xlApp.WorkbooksIf StrConv(sWorkbookName, vbUpperCase + vbWide) = StrConv(wb.Name, vbUpperCase + vbWide) Then ' 忽略字母大小写，忽略全角半角flag = TrueExit ForEnd IfNextEnd IfEnd IfIsOpenedWorkbook = flag
End Function

在Excel中使用VBA判断指定名称的工作簿是否已经打开相关推荐

excel中定义VBA
http://zhidao.baidu.com/question/127778044 Sub apm() End Sub Function ampm(cel As String) Dim tex As ...
怎样将c++的对话框自动移到指定位置_【Excel技巧】如何批量创建多个指定名称的工作表...
在平时的Excel应用中,经常遇到需要同时创建多个工作表,工作表表格的表头及格式都一样,只是表格输入的具体内容不一样.比如,我们要做学员签到表,从1月至12月,每个月占用一个sheet工作表. 类似这 ...
工具推荐：用VS code 导出、导入和运行Excel中的VBA代码
问题如何使用Excel的VBA 编辑器以外的IDE来编辑VBA代码? 如何导入/导出Excel中的VBA代码? 我能不能在Excel以外的地方运行VBA代码? 如何把Excel中的VBA工程/代码上 ...
VBA一键汇总多个工作簿-名称相同的工作表-的指定区域数据
VBA一键汇总多个工作簿-名称相同的工作表-的指定区域数据日常工作,我们经常需要汇总相同格式的工作簿的某个工作表的数据如1月业绩.2月业绩....12月业绩等姓名数量数据22 22 数据23 ...
vba编程把纯文本转换成html,如何将一列文本与html标签转换为Excel中的vba格式文本...
我想知道如何使用VBA脚本将带有html标签的整列单元转换为格式化文本(基于这些标签).如何将一列文本与html标签转换为Excel中的vba格式文本使用下列内容: Sub Sample() Dim ...
vba mysql 自动化错误_在Excel中运行VBA脚本时出现自动化错误
在Excel 2007中运行VBA代码时出现自动化错误.我尝试连接到远程SQL Server数据库并将数据从Excel加载到SQL Server.在Excel中运行VBA脚本时出现自动化错误我得到的 ...
计算机中除法的函数英文,excel中求除法的函数名称是什么?excle 除法的英文
excel除法结果怎么出现英文字母所说的"英文字母"是否为:#DIV/0! ?,它表示公式中出现了以0为除数的错误. Excel函数的乘和除是哪个英文啊,我都要晕死了? 直接用/ ...
VB判断指定的WORD文档是否被打开
判断指定的WORD文档是否被打开的函数代码如下 Function WordDocIsOpen(ByVal strDocName As String) As Boolean Dim objWordApp ...
VBA小程序_清除工作簿所有Sheet工作表的条件格式
Sub VBA小程序_清除工作簿所有Sheet工作表的条件格式()Dim sht As WorksheetFor Each sht In Worksheetssht.Activatesht.Cells ...

在Excel中使用VBA判断指定名称的工作簿是否已经打开

在Excel中使用VBA判断指定名称的工作簿是否已经打开相关推荐

最新文章

热门文章