如何通过 VBA 在 SAP 中使用导出的数据作为输入

Question

我正在编写一个 VBA 脚本来检查所有测量点，其中一部分选择有检查订单。 为此，我需要提取大量测量点（约 2721 年）并将它们用作另一个交易的输入。

我遇到的问题是：从 SAP 中提取/导出大量数据的最有效方法是什么，我可以将它们粘贴为 SAP 中的输入？

我可以导出，但我无法通过 VBA 访问导出的 Excel 文件。 我可以遍历数据行并复制每个单元格，但这非常慢，如下所示。

row = 1
For i = 1 To session.FindById("wnd[0]/usr/cntlGRID1/shellcont/shell").RowCount - 2
    session.FindById("wnd[0]/usr/cntlGRID1/shellcont/shell").CurrentCellRow = i    
    ThisWorkbook.Sheets("Output2").Cells(row, 1) = session.FindById("wnd[0]/usr/cntlGRID1/shellcont/shell").GetCellValue(i - 1, "TPLNR")
    ThisWorkbook.Sheets("Output2").Cells(row, 2) = session.FindById("wnd[0]/usr/cntlGRID1/shellcont/shell").GetCellValue(i - 1, "POINT")
    row = row + 1
Next

Answer 1

你应该

• 使用数组 - 而不是直接写入工作表
• 使用with不调用session.FindByID...多次

Dim arrData As Variant, i As Long

With session.FindById("wnd[0]/usr/cntlGRID1/shellcont/shell")
    
    ReDim arrData(1 To .RowCount - 2, 1 To 2)
    
    For i = 1 To .RowCount - 2
        .CurrentCellRow = i
        arrData(i, 1) = .GetCellValue(i - 1, "TPLNR")
        arrData(i, 2) = .GetCellValue(i - 1, "POINT")
    Next
    
End With

With ThisWorkbook.Sheets("Output2")
    .Resize(UBound(arrData, 1), 2).Value = arrData
End With

但也许值得研究 Powerquery 来实现你想要的。