Excel VBA - 将每个单元分别复制并粘贴到另一个程序

Question

我对 VBA 还很陌生，但对它有点了解（有点）。 我需要做的是获取一个宏集来复制一个单元格中的数据，切换到另一个程序（2315），输入“6”，[ENTER]，粘贴数据，[ENTER]切换回Excel，select下一行，复制，切换，粘贴，切换，直到它到达列的末尾。 这就是我所拥有的，适用于第一个单元格。 我只需要弄清楚如何循环它直到它到达终点。 感谢您的任何帮助/建议！

Range("A2").Select
Selection.Copy
AppActivate "2315"
Application.SendKeys "6~^V~"
Application.SendKeys "%{TAB}"

再次感谢！

Answer 1

我怀疑这行得通，但你说它行得通，你的问题是关于循环的。 这是循环。

Dim R       As Long

For R = 2 To Cells(Rows.Count, "A").End(xlUp).Row
    Cells(R, "A").Copy
    AppActivate "2315"
    Application.SendKeys "6~^V~"
    Application.SendKeys "%{TAB}"
Next R

为了 Excel，您不需要 select 任何东西。 上面的代码将遍历活动选项卡的 A 列中所有使用的单元格。 如果您的应用程序“2315”需要选择，请在复制指令之前添加Cells(R, "A").Select 。

我的怀疑是基于您不能使用 VBA 将参数发送到应用程序“2315”的事实。 这包括指令“2315”将控制权交还给 Excel 及其 VBA。 也许您已经通过 SendKeys 找到了这种方法。 如果是这样，代码将起作用。 如果不是，它将在第一个循环后卡住。

从逻辑上讲，代码应该一直运行到 AppActivate “2315”，这意味着在其他应用程序返回控制权之前永远不会发送 SendKeys。 如果这是正在发生的事情，那么必须有更好的方式来表达你完成的两条指令。 但这不应该是你的直接关注。 如果您可以使用Enter之类的简单命令让“2315”将控制权交还给 Excel，并且如果上述宏真的从中断的地方恢复工作，那么您的大部分问题都应该得到解决。 我希望这个:-)