excel - 使用 Do Loop VBA 选择 SAP 字段

Question

我正在研究一个宏以进入 SAP 并选择列中的单元格以提取到 Excel。现在，如果这是 excel，这将没有问题，因为我会简单地使用 do 循环沿列复制。我在 SAP GUI 中，但是它与 VBA 兼容，但有点不同。我录制了一个脚本，我点击一个列来查看代码是如何变化的。这就是我得到的。

session.findById("wnd[0]").maximize
session.findById("wnd[0]/usr/lbl[12,13]").setFocus
session.findById("wnd[0]/usr/lbl[12,13]").caretPosition = 6
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/usr/lbl[12,14]").setFocus
session.findById("wnd[0]/usr/lbl[12,14]").caretPosition = 4
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/usr/lbl[12,15]").setFocus
session.findById("wnd[0]/usr/lbl[12,15]").caretPosition = 5
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/usr/lbl[12,16]").setFocus
session.findById("wnd[0]/usr/lbl[12,16]").caretPosition = 5
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/usr/lbl[12,17]").setFocus
session.findById("wnd[0]/usr/lbl[12,17]").caretPosition = 5
session.findById("wnd[0]").sendVKey 0

当我向下移动该列时，您可以看到特定值从 13 增加到 17。我想我可以合并一个 do 循环，然后沿着列向下移动并复制值。这是我的相关代码

i = 13

Do

session.findById("wnd[0]").maximize
Current_Batch = session.findById("wnd[0]/usr/lbl[12,i]").Text
session.findById("wnd[0]/usr/lbl[12,i]").caretPosition = 6
session.findById("wnd[0]").sendVKey 0

If Current_Batch = "" Then
Exit Do
End If

Cells(i - 11, 4) = Current_Batch


i = i + 1

Loop

但是，这不起作用，因为它不将 i 识别为变量。它给了我错误 619(找不到 ID)

有谁知道使这项工作的方法？

Answer 1

是的，我实现了相同的脚本。您需要构造字符串，同时将 i 转换为字符串:
session.findById("wnd[0]/usr/lbl[12," & CStr(i) & "]").caretPosition = 6CStr(i)转换为字符串，而 &将字符串连接在一起。

我只更改了一行，但你应该能够正确地做到这一点，因为你已经确定了你的问题，所以你对事情是如何工作的有一定的了解。祝你好运，