不知道为什么用快捷键代码不能正常执行完

衣欣不xi

我觉得奇怪的是我用快捷键Ctrl+Shift+C时，代码只能执行到打开指定的工作薄，打开工作薄之后的代码就无法再执行了，但我用调试的方法又可以正常执行所有的代码，这是为什么啊？

Sheets("船运木片信息").Activate                                          
        With Sheets("船运木片信息")
            Dim RO As String, arr
            RO = .UsedRange.Rows.Count
            arr = .Range("G" & RO)
        End With
    ActiveWorkbook.Close

    Range("H" & RO2) = arr
    Range("G" & RO2).Value = Range("H" & RO2).Value + Range("I" & RO2).Value
    Range("H" & RO2).ClearContents
    Range("A2").Select

这段代码是哪里出问题了吗？

jsxjd

为什么要关闭工作簿？
ActiveWorkbook.Close

jpj123

ActiveWorkbook.Close

关闭工作薄后，那后面的代码谁来执行？

衣欣不xi

jsxjd 发表于 2015-4-16 22:34
为什么要关闭工作簿？
ActiveWorkbook.Close

代码我是放置在个人宏工作薄中的，首先是从OA系统中导出原始数据（也就量压缩包里数据源），然后再通过快捷键来处理数据源，得到某月某日蓝桉汇总，到这里都没有问题，问题出在我想要把昨天的总重累加到今天的总重上，但我打开昨天的工作薄时，后面的操作就无法自动进行了，问题就出在这里

jsxjd

衣欣不xi 发表于 2015-4-17 19:03
代码我是放置在个人宏工作薄中的，首先是从OA系统中导出原始数据（也就量压缩包里数据源），然后再通过快 ...

把 close 注释掉会是什么情况？

衣欣不xi

jsxjd 发表于 2015-4-17 20:20
把 close 注释掉会是什么情况？

现在的问题是用快捷键时代码只能运行到打开工作薄那里，打开工作薄后，代码就不能再往下继续了

衣欣不xi

jpj123 发表于 2015-4-16 23:43
ActiveWorkbook.Close

关闭工作薄后，那后面的代码谁来执行？

我的代码是放在个人宏工作薄中的运行的，不是放在工作薄中运行的

衣欣不xi

jsxjd 发表于 2015-4-16 22:34
为什么要关闭工作簿？
ActiveWorkbook.Close

我之所以要打开前一天的工作薄只是需要提取里面的累计总重而已，得到累计的总重后就把刚打开的工作薄关闭了，

jsxjd

衣欣不xi 发表于 2015-4-17 22:51
我之所以要打开前一天的工作薄只是需要提取里面的累计总重而已，得到累计的总重后就把刚打开的工作薄关闭 ...

偿试一下不关闭

qihang15

ActiveWorkbook.Close
放到代码的最后呢，要不ActiveWorkbook.Close后的代码无法执行了。