循环遍历范围中的每个单元格并更新 SAP 数据库

Question

目前，我在 “A1:D10” 范围的每个单元格中都有值。我需要一次将每个单元格值复制到 SAP 应用程序中，我正在使用下面的代码来执行此操作。但问题是它复制了一个单元格 (A1) 4 次，而不是 A1、B1、C1、D1。 A1 到 D1 单元格更新到 SAP 应用程序后，数据将保存在 SAP 应用程序中，宏应该从 B2 到 D2 开始并执行相同操作。这是我目前正在使用的代码。

这是示例

当前代码宏是复制 (A1) 100 4 次，然后移动到 (B1) 10 4 次，移动到 (C1) 1234 4 次，移动到 (D1) BO 4 次，然后它将转到行A2 并做同样的事情。

但我想要的是它应该将 A1 值 100 复制到 session.findById("wnd[8]/usr/ctxtANLA-BRSKT1").Text = cell.Value 和 B1 值 10 到 session.findById("wnd[8]/usr/ctxtANLA-MNSRTS2").Text = cell.Value 和 C1 值 1234 到session.findById("wnd[8]/usr/ctxtANLA-BUHFT3").Text = cell.Value 和D1 值BO 到session.findById("wnd[8]/usr/ctxtANLA-BUYTS4").Text = cell.Value .

希望对你有帮助

Dim rng As Range
Dim Row As Range
Dim Col As Range

Lastrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Set rng = Range("A2:D" & Lastrow)

For Each Row In rng.Rows
    For Each cell In Row.Cells

    If cell.Value <> "" Then

        session.findById("wnd[8]/usr/ctxtANLA-BRSKT1").Text = cell.Value
        session.findById("wnd[8]/usr/ctxtANLA-MNSRTS2").Text = cell.Value
        session.findById("wnd[8]/usr/ctxtANLA-BUHFT3").Text = cell.Value
        session.findById("wnd[8]/usr/ctxtANLA-BUYTS4").Text = cell.Value

    End If

Next cell

Next Row

Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

Answer 1

这是您正在尝试的（未经测试）吗？

Sub Sample()
    Dim i As Long, Lastrow As Long

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

    With ActiveSheet
        Lastrow = .Cells(.Rows.Count, 1).End(xlUp).Row

        For i = 2 To Lastrow 
            If .Cells(i, 1).Value <> "" Then _
            session.findById("wnd[8]/usr/ctxtANLA-BRSKT1").Text = .Cells(i, 1).Value

            If .Cells(i, 2).Value <> "" Then _
            session.findById("wnd[8]/usr/ctxtANLA-MNSRTS2").Text = .Cells(i, 2).Value

            If .Cells(i, 3).Value <> "" Then _
            session.findById("wnd[8]/usr/ctxtANLA-BUHFT3").Text = .Cells(i, 3).Value

            If .Cells(i, 4).Value <> "" Then _
            session.findById("wnd[8]/usr/ctxtANLA-BUYTS4").Text = .Cells(i, 4).Value
        Next i
    End With

    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

对于大范围，我仍然建议使用数组，而不是像我在问题下方的第二条评论中提到的那样遍历行。