«Не удается найти ошибку файла» из SAP VBScript - PullRequest
Новая
       68

«Не удается найти ошибку файла» из SAP VBScript

0 голосов
/ 17 января 2019

Я запускаю скрипт, который извлекает из SAP несколько N архивов (на основе входного файла, который содержит имя каждого файла). Сценарии считывают данные для каждого файла из входного текстового файла и записывают состояние после каждого запуска в файл Excel.

После каждого запуска файл генерируется, но перед сохранением он дает ошибка .

Текст ниже

'Windows не может найти' filename.zip '. Убедитесь, что вы правильно ввели имя, а затем повторите попытку '

Я отключил параметр «Только чтение» для папки, в которой я сохраняю отчет, я запустил sfc /scannow на случай, если в моей системе есть какие-либо поврежденные файлы, и я также проверил переменные Path на случай, если они были отсутствует, но безрезультатно.

Вот код 

If Not IsObject(application) Then
   Set SapGuiAuto  = GetObject("SAPGUI")
   Set application = SapGuiAuto.GetScriptingEngine
End If
If Not IsObject(connection) Then
   Set connection = application.Children(0)
End If
If Not IsObject(session) Then
   Set session    = connection.Children(0)
End If
If IsObject(WScript) Then
   WScript.ConnectObject session,     "on"
   WScript.ConnectObject application, "on"
End If

Set filesysobj = CreateObject("Scripting.FileSystemObject")
Set list = CreateObject("Scripting.Dictionary")
Set file = filesysobj.OpenTextFile("fullpath\to\input\file\.txt", 1)

' wb - workbook(the file), ws-worksheet(the first sheet of the excel file)
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("fullpath\to\excel\output\file")
objExcel.Visible = False
Set sheet = objWorkbook.sheets("Sheet1")

' Reading from the input file
nr = 0
Do until file.AtEndOfStream
    request = file.ReadLine
    list.Add nr, request
    nr = nr + 1
Loop
file.Close

' Indexes for the lines and rows in the excel file
i = 2 ' Second Row
j = 5 
For Each line in list.Items
On Error Resume Next
    session.findById("wnd[0]").maximize
    session.findById("wnd[0]/tbar[0]/okcd").text = "controlpanel\path"
    session.findById("wnd[0]").sendVKey 0
    session.findById("wnd[0]/tbar[1]/btn[2]").press

    ' line - name from file
    session.findById("wnd[0]/usr/ctxtZQT1D-REQ").text = line
    session.findById("wnd[0]/usr/ctxtZQT1D-REQ").caretPosition = 9
    session.findById("wnd[0]").sendVKey 0
    session.findById("wnd[0]/usr/tabsREQUEST_OBJECTS/tabpREQUEST_OBJECTS_FC6/ssubREQUEST_OBJECTS_SCA:/SYMSOFT/CP_ZQTMS010_NEW:0917/cntlCONTAINER/shellcont/shell").currentCellColumn = "DATE"
    session.findById("wnd[0]/usr/tabsREQUEST_OBJECTS/tabpREQUEST_OBJECTS_FC6/ssubREQUEST_OBJECTS_SCA:/SYMSOFT/CP_ZQTMS010_NEW:0917/cntlCONTAINER/shellcont/shell").selectedRows = "0"
    session.findById("wnd[0]/usr/tabsREQUEST_OBJECTS/tabpREQUEST_OBJECTS_FC6/ssubREQUEST_OBJECTS_SCA:/SYMSOFT/CP_ZQTMS010_NEW:0917/cntlCONTAINER/shellcont/shell").pressToolbarButton "ATT_DISP"

    ' define of the output path for the file & the filename
    session.findById("wnd[1]/usr/ctxtDY_PATH").text = "fullpath\saving\folder"
    session.findById("wnd[1]/usr/ctxtDY_FILENAME").text = line & ".zip"
    session.findById("wnd[1]/usr/ctxtDY_PATH").setFocus
    session.findById("wnd[1]/usr/ctxtDY_PATH").caretPosition = 26
    session.findById("wnd[1]/tbar[0]/btn[0]").press

'  -------Writing the errors
' End If
If Err.Number <> 0 Then
    sheet.Cells(i, j).Value = "Error " & Err.Description
    i = i + 1
Else
    sheet.Cells(i, j - 1) = line
    sheet.Cells(i, j) = "has been completed"
    i = i + 1
End If
next

objExcel.ActiveWorkbook.Save 
objExcel.Quit

Архивы сохранены правильно, но без нажатия кнопки OK при появлении ошибки скрипт не пройдет 1 итерацию и не сохранит архив.

...