求一个判断工作簿存在的代码！

看脱了色彩

我有多个Excel文件。表里的布局是一致的。想把数据全部统一到一张表格里处理。
基本上能做到了。但是出现的问题是，如果少一个工作簿，代码执行就不正常。个人想了很多办法。但才疏学浅。实现不了。相加 IF 判断，又不知道写。
请大神帮忙指点下。万分感谢！！！
        For Each w In Application.Windows
            If InStr(w.Caption, "工作簿1") Then w.Activate
        Next
        '定位A列最后一个有数据的单元格
        i = Cells(Rows.Count, 1).End(xlUp).Row
        Range(Cells(1, 1), Cells(i, 4)).Copy
        For Each w In Application.Windows
            If InStr(w.Caption, "测试") Then w.Activate
        Next
        i = Cells(Rows.Count, 1).End(xlUp).Row + 1
        Range("a" & i).Select
        ActiveSheet.Paste

就是这一段想加一个判断。如果工作簿1不存在。就不执行右面的。

ww87725244

听描述是数据汇总，怎么缺一个工作簿会不正常？不就是数据少一点吗？

liulang0808

For Each w In Application.Windows
            If InStr(w.Caption, "测试") Then
                w.Activate
                '定位A列最后一个有数据的单元格
                i = Cells(Rows.Count, 1).End(xlUp).Row
                Range(Cells(1, 1), Cells(i, 4)).Copy
                Sheets.Add
                Range("A1").Select
                ActiveSheet.Paste
                Exit For
            End If
        Next
楼主看看改成这样是否能满足需求吧

shenjianrong163

楼主的代码里多次重复，可不可以弄简洁些?

小花鹿

推倒重写吧，基本思路就不对

看脱了色彩

liulang0808 发表于 2020-1-30 18:18
For Each w In Application.Windows
            If InStr(w.Caption, "测试") Then
                w.A ...

谢谢版主。你这样我试过。但是“工作簿1”要查询一次，然后数据要复制到 “测试”里面。也要重新查询一次“测试”窗口。
        For Each w In Application.Windows
            If InStr(w.Caption, "工作簿1") Then   ‘如果这两存在工作簿1. 那么要把下面的执行完。
                w.Activate
                '定位A列最后一个有数据的单元格
                i = Cells(Rows.Count, 1).End(xlUp).Row
                Range(Cells(1, 1), Cells(i, 4)).Copy
                Exit For
                For Each w In Application.Windows  ’到这里就执行不下去了
                    If InStr(w.Caption, "测试") Then
                       w.Activate
                       i = Cells(Rows.Count, 1).End(xlUp).Row + 1
                       Range("a" & i).Select
                       ActiveSheet.Paste
                       Exit For
                     End If
            End If
这是根据你的改的。但不知道行得通不。

看脱了色彩

shenjianrong163 发表于 2020-1-30 18:38
楼主的代码里多次重复，可不可以弄简洁些?

我也想简单。但是只会这么多东西。尴尬！！！！！！！

看脱了色彩

liulang0808 发表于 2020-1-30 18:18
For Each w In Application.Windows
            If InStr(w.Caption, "测试") Then
                w.A ...

谢谢版主版主，但是还要复制“工作簿1” 的数据到“测试”里面。
如果工作簿1 不存在，就查找工作簿2，然后将内容复制到 测试 里。以此类推。

看脱了色彩

小花鹿 发表于 2020-1-30 18:54
推倒重写吧，基本思路就不对

找不到其他办法了啊。知识有限。能帮个忙吗？我表达的应该能看明白。我是个小白，请原谅！

liulang0808

看脱了色彩 发表于 2020-1-30 21:10
谢谢版主版主，但是还要复制“工作簿1” 的数据到“测试”里面。
如果工作簿1 不存在，就查找工作簿2， ...

按照楼主的思路，是每个部分都要按照这个要求写
3楼仅仅是针对一段代码

另外建议楼主整体描述下需求，举例说明。