SAPScripting Error_Handling - PullRequest
Новая
       44

SAPScripting Error_Handling

0 голосов
/ 22 мая 2019

мой вопрос касается обработки ошибок в VBA по поводу SAP Scripting.ниже вы можете увидеть мои коды (которые не работают должным образом) Я пытался много раз, чтобы сделать его лучше, но, к сожалению, я не смог

Вскоре я хотел бы изменить дату заказа в соке на основе Excelновая дата, а затем скопировать предыдущую дату из SAP в Excel (существующая дата поставки) Могу ли я попросить вашей помощи, чтобы узнать это лучше?

Ваша помощь будет высоко оценена, спасибо заранее. 


Sub extractingPOOADataScriptd()

    Dim excelApp As Application
    Dim excelWb As ThisWorkbook
    Dim scriptWs As Worksheet
    Dim scriptData As Range
    Dim scriptRow As Range
    Dim session As Object
    Dim system As String
    Dim documentNumber As String
    Dim item As String
    Dim cell As Variant

    Set excelApp = Application
    Set excelWb = excelApp.ThisWorkbook
    Set scriptWs = excelWb.Sheets("Raw Data")

    Set scriptData = scriptWs.Range("A1").CurrentRegion
    Set scriptData = scriptData.Offset(1, 0).Resize(scriptData.Rows.Count - 1, scriptData.Columns.Count)

    excelApp.ScreenUpdating = False
    excelApp.ScreenUpdating = True
On Error Resume Next

    Set session = connectToOpenSAPSession
    session.findById("wnd[0]/tbar[0]/okcd").Text = "/nme23n"
    session.findById("wnd[0]").sendVKey 0

    For Each scriptRow In scriptData.Rows
        checking = scriptRow.Resize(1, 1).Offset(0, 7).Value
        documentNumber = scriptRow.Resize(1, 1).Value
        item = scriptRow.Resize(1, 1).Offset(0, 1).Value
        NewDate = scriptRow.Resize(1, 1).Offset(0, 2).Value

        If Right(item, 1) = "0" Then item = Left(item, Len(item) - 1)
        If Len(item) = 1 Then item = item
        If Len(item) = 2 Then item = item
        If Len(item) = 3 Then item = item
item = item - 1
If documentNumber <> "" Then
            session.findById("wnd[0]/tbar[1]/btn[17]").press
            session.findById("wnd[1]/usr/subSUB0:SAPLMEGUI:0003/ctxtMEPO_SELECT-EBELN").Text = documentNumber
            session.findById("wnd[1]/tbar[0]/btn[0]").press

        If IsObject(WScript) Then
        WScript.ConnectObject session, "on"
        WScript.ConnectObject Application, "on"
        End If
        session.findById("wnd[0]").maximize
        session.findById("wnd[0]/tbar[1]/btn[7]").press
scriptRow.Resize(1, 1).Offset(0, 6).Value = session.findById("wnd[0]/usr/subSUB0:SAPLMEGUI:0013/subSUB2:SAPLMEVIEWS:1100/subSUB2:SAPLMEVIEWS:1200/subSUB1:SAPLMEGUI:1211/tblSAPLMEGUITC_1211/ctxtMEPO1211-EEIND[9," & item & "]").Text

If Err.Number <> 0 Then
scriptRow.Resize(1, 1).Offset(0, 6).Value = session.findById("wnd[0]/usr/subSUB0:SAPLMEGUI:0013/subSUB2:SAPLMEVIEWS:1100/subSUB2:SAPLMEVIEWS:1200/subSUB1:SAPLMEGUI:1211/tblSAPLMEGUITC_1211/ctxtMEPO1211-EEIND[9," & item & "]").Text
scriptRow.Resize(1, 1).Offset(0, 7).Value = "Please check it to be ensure about changing."
session.findById("wnd[0]/usr/subSUB0:SAPLMEGUI:0013/subSUB2:SAPLMEVIEWS:1100/subSUB2:SAPLMEVIEWS:1200/subSUB1:SAPLMEGUI:1211/tblSAPLMEGUITC_1211/ctxtMEPO1211-EEIND[9," & item & "]").Text = NewDate
session.findById("wnd[0]/tbar[1]/btn[7]").press
Else
session.findById("wnd[0]/usr/subSUB0:SAPLMEGUI:0013/subSUB2:SAPLMEVIEWS:1100/subSUB2:SAPLMEVIEWS:1200/subSUB1:SAPLMEGUI:1211/tblSAPLMEGUITC_1211/ctxtMEPO1211-EEIND[9," & item & "]").Text = NewDate
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]").sendVKey 0
scriptRow.Resize(1, 1).Offset(0, 7).Value = "date is updated"
session.findById("wnd[0]/tbar[1]/btn[7]").press
session.findById("wnd[1]/usr/btnSPOP-OPTION1").press
End If
End If
Next scriptRow
    excelApp.ScreenUpdating = True
    excelApp.ScreenUpdating = True
End Sub
...