Excel VBA工作薄 5.3多个工作薄数据汇总2判断文件是否打开
前景提要
今天我们接着上次的分享来继续，上次我们分享了在合并多个工作薄的过程中，文件夹批量打开的操作，今天我们继续完善昨天的代码，在上节我们留下了一个悬念，如果在合并工作薄的过程中，出现了如下的提示
要如何处理，很多的人会说可以选择Y，没错这样操作的话，程序是可以继续执行的，但是如果不巧这个文件你刚刚修改了某些数据，你这个时候选择了Y，那么不好意思，你之前的所有改动都没有保存，你需要重新做一份新的数据，是不是很烦躁，所以在批量打开工作薄的时候，需要先判断当前工作薄是否已经被打开，如果被打开的话，我们就不要操作再次打开了。听起来似乎就是一个判断，没错，今天我们就来看看这个判断要如何来写。
场景模拟 
我们还是继续之前模拟的数据来分析，假设我们我们现在已经打开了京东2这个工作薄，并对其中的某些数据进行了修改，我们如果还是继续执行上节的代码的话，就会出现提示文件被打开的提示，如果选择Y会导致我们修改的数据没有报错，如果我们选择N，则会提示程序运行被中断，程序结束
方法分析
判断文件是否被打开，我们来想想如果是我们自己手工操作的话，我们如何判断工作薄是否被打开呢，当然就是看看当前已经打开的工作薄中是否有我们将要打开的工作薄，那么要如何去判断呢？很简单遍历所有已经打开的工作薄，然后读取已经被打开的工作薄，看看其中是否有我们要打开的那个工作薄，我们要判断天猫1的工作薄是否被打开，那么我们就遍历读取当前被打开的工作薄，看看他们的名字是否有叫做天猫1的，如果有，我们就不能再次执行打开的操作了，需要跳过打开的命令，直接读取数据，反之如果有没有天猫1的工作薄，我们既可以正常的打开操作了，来看下例子。
代码区
假设我们现在已经提前打开了京东2这个工作薄，并且更改了数据，但是还没有保存，我们执行下汇总程序
有报错，我们在调整下代码
Sub test()Dim pathn, sth As Workbookpathn = ThisWorkbook.Pathf = Dir(pathn & "")Do While f <> "" If f <> "test.xlsm" Then For Each sth In Workbooks If sth.Name = f Then GoTo line End If Next sth Workbooks.Open (pathn & "" & f) End Ifline: f = Dir()LoopEnd Sub
看看效果，在我们已经提前打开京东2这个工作薄的情况下，程序依然能够正常的运行，并且打开其他的工作薄，这样切好也满足了我们的要求，很完美，这里如果可以上传动画的话，效果应该会更加的明显，可以好像无法上传动画，那么脑海中恶补下这个过程吧
代码分析
For Each sth In Workbooks If sth.Name = f Then GoTo line End If Next sth
这里是遍历所有已经被打开的工作薄的意思，For Each sth In Workbooks就这这个目的
然后读取每个工作薄的名字，如果发现这个工作薄的名字正好和我们将要打开的工作薄的名字是相同的，那么就跳转去执行其他的代码，这里的goto line就是这样的意思，调准到line这一行
继续从这一行开始执行新的命令，新的命令就是继续准备打开下一个工作薄，当前已经被我们提前打开的工作薄京东2将会被关闭，也不会被再次打开，所以我们所作的数据操作也不会丢失了。我们来调试下，方便大家理解下程序执行的过程
当循环遍历的时候，如果碰到工作薄的名字等于我们要打开的工作薄的时候，我们看，程序不会执行打开的命令， 反而去执行调准的命令了。
大家领悟到了嘛？
=======================================================
OK。今天就分享到这里了，今天小编工作比较的忙，分享的有点晚了，小编会坚持保持每日更新的，感谢大家的支持。
好了，明晚19：00，准时再见。

	

前景提要
今天我们接着上次的分享来继续，上次我们分享了在合并多个工作薄的过程中，将文件夹内Excel文件批量打开的操作，今天我们继续完善昨天的代码，在上节我们留下了一个悬念，如果在合并工作薄的过程中，出现了如下的提示
要如何处理，很多的人会说可以选择Y，没错这样操作的话，程序是可以继续执行的，但是如果不巧这个文件你刚刚修改了某些数据，如果你这个时候选择了Y，那么不好意思，你之前的所有改动都没有保存，你需要重新做一份新的数据，是不是很烦躁，所以在批量打开工作薄的时候，需要先判断当前工作薄是否已经被打开，如果被打开的话，我们就不要操作再次打开了。听起来似乎是一个判断，没错，今天我们就来看看这个判断要如何来写。
场景模拟
我们还是继续之前模拟的数据来分析，假设我们我们现在已经打开了京东2这个工作薄，并对其中的某些数据进行了修改，我们如果还是继续执行上节的代码的话，就会出现提示文件被打开的提示，如果选择Y会导致我们修改的数据没有报错，如果我们选择N，则会提示程序运行被中断，程序结束
方法分析
判断文件是否被打开，我们来想想如果是我们自己手工操作的话，我们如何判断工作薄是否被打开呢，当然就是看看当前已经打开的工作薄中是否有我们将要打开的工作薄，那么要如何去判断呢？很简单遍历所有已经打开的工作薄，然后读取已经被打开的工作薄，看看其中是否有我们要打开的那个工作薄，我们要判断天猫1的工作薄是否被打开，那么我们就遍历读取当前被打开的工作薄，看看他们的名字是否有叫做天猫1的，如果有，我们就不能再次执行打开的操作了，需要跳过打开的命令，直接读取数据，反之如果有没有天猫1的工作薄，我们既可以正常的打开操作了，来看下例子。
代码区
假设我们现在已经提前打开了京东2这个工作薄，并且更改了数据，但是还没有保存，我们执行下汇总程序
有报错，我们在调整下代码
Sub test()Dim pathn, sth As Workbookpathn = ThisWorkbook.Pathf = Dir(pathn & "\")Do While f <> ""    If f <> "test.xlsm" Then        For Each sth In Workbooks            If sth.Name = f Then                GoTo line            End If        Next sth        Workbooks.Open (pathn & "\" & f)    End Ifline:    f = Dir()LoopEnd Sub
看看效果，在我们已经提前打开京东2这个工作薄的情况下，程序依然能够正常的运行，并且打开其他的工作薄，这样切好也满足了我们的要求，很完美，这里如果可以上传动画的话，效果应该会更加的明显，可以好像无法上传动画，那么脑海中恶补下这个过程吧
代码解析
For Each sth In Workbooks            If sth.Name = f Then                GoTo line            End If        Next sth
这里是遍历所有已经被打开的工作薄的意思，For Each sth In Workbooks就是这个目的
然后读取每个工作薄的名字，如果发现这个工作薄的名字正好和我们将要打开的工作薄的名字是相同的，那么就跳转去执行其他的代码，这里的goto line就是这样的意思，调准到line这一行
继续从这一行开始执行新的命令，新的命令就是继续准备打开下一个工作薄，当前已经被我们提前打开的工作薄京东2将会被关闭，也不会被再次打开，所以我们所作的数据操作也不会丢失了。我们来调试下，方便大家理解下程序执行的过程
当循环遍历的时候，如果碰到工作薄的名字等于我们要打开的工作薄的时候，我们看，程序不会执行打开的命令， 反而去执行调准的命令了。
大家领悟到了嘛？

Excel VBA工作薄 5.3多个工作薄数据汇总2判断文件是否打开
前景提要
今天我们接着上次的分享来继续，上次我们分享了在合并多个工作薄的过程中，文件夹批量打开的操作，今天我们继续完善昨天的代码，在上节我们留下了一个悬念，如果在合并工作薄的过程中，出现了如下的提示
要如何处理，很多的人会说可以选择Y，没错这样操作的话，程序是可以继续执行的，但是如果不巧这个文件你刚刚修改了某些数据，你这个时候选择了Y，那么不好意思，你之前的所有改动都没有保存，你需要重新做一份新的数据，是不是很烦躁，所以在批量打开工作薄的时候，需要先判断当前工作薄是否已经被打开，如果被打开的话，我们就不要操作再次打开了。听起来似乎就是一个判断，没错，今天我们就来看看这个判断要如何来写。
场景模拟 
我们还是继续之前模拟的数据来分析，假设我们我们现在已经打开了京东2这个工作薄，并对其中的某些数据进行了修改，我们如果还是继续执行上节的代码的话，就会出现提示文件被打开的提示，如果选择Y会导致我们修改的数据没有报错，如果我们选择N，则会提示程序运行被中断，程序结束
方法分析
判断文件是否被打开，我们来想想如果是我们自己手工操作的话，我们如何判断工作薄是否被打开呢，当然就是看看当前已经打开的工作薄中是否有我们将要打开的工作薄，那么要如何去判断呢？很简单遍历所有已经打开的工作薄，然后读取已经被打开的工作薄，看看其中是否有我们要打开的那个工作薄，我们要判断天猫1的工作薄是否被打开，那么我们就遍历读取当前被打开的工作薄，看看他们的名字是否有叫做天猫1的，如果有，我们就不能再次执行打开的操作了，需要跳过打开的命令，直接读取数据，反之如果有没有天猫1的工作薄，我们既可以正常的打开操作了，来看下例子。
代码区
假设我们现在已经提前打开了京东2这个工作薄，并且更改了数据，但是还没有保存，我们执行下汇总程序
有报错，我们在调整下代码
Sub test()Dim pathn, sth As Workbookpathn = ThisWorkbook.Pathf = Dir(pathn & "")Do While f <> "" If f <> "test.xlsm" Then For Each sth In Workbooks If sth.Name = f Then GoTo line End If Next sth Workbooks.Open (pathn & "" & f) End Ifline: f = Dir()LoopEnd Sub
看看效果，在我们已经提前打开京东2这个工作薄的情况下，程序依然能够正常的运行，并且打开其他的工作薄，这样切好也满足了我们的要求，很完美，这里如果可以上传动画的话，效果应该会更加的明显，可以好像无法上传动画，那么脑海中恶补下这个过程吧
代码分析
For Each sth In Workbooks If sth.Name = f Then GoTo line End If Next sth
这里是遍历所有已经被打开的工作薄的意思，For Each sth In Workbooks就这这个目的
然后读取每个工作薄的名字，如果发现这个工作薄的名字正好和我们将要打开的工作薄的名字是相同的，那么就跳转去执行其他的代码，这里的goto line就是这样的意思，调准到line这一行
继续从这一行开始执行新的命令，新的命令就是继续准备打开下一个工作薄，当前已经被我们提前打开的工作薄京东2将会被关闭，也不会被再次打开，所以我们所作的数据操作也不会丢失了。我们来调试下，方便大家理解下程序执行的过程
当循环遍历的时候，如果碰到工作薄的名字等于我们要打开的工作薄的时候，我们看，程序不会执行打开的命令， 反而去执行调准的命令了。
大家领悟到了嘛？
=======================================================
OK。今天就分享到这里了，今天小编工作比较的忙，分享的有点晚了，小编会坚持保持每日更新的，感谢大家的支持。
好了，明晚19：00，准时再见。

判断工作表是否打开
通过遍历当前应用程序所有已打开的工作簿文件(Workbooks 集合)，判断指定名称的工作簿是否打开。
Sub test()
    Dim wb As Workbook
    For Each wb In Workbooks
        If wb.Name = "1.xlsx" Then
            MsgBox "1文件已经打开"
            Exit Sub
        End If
    Next
    MsgBox "1文件已经没有打开"
End Sub