Как отсканировать экран от AS400 с помощью Excel VBA? - PullRequest
0 голосов
/ 30 мая 2019

Я хотел бы почистить данные с AS400. Я провел некоторые исследования и считаю, что это возможно, но я изо всех сил. Эмулятор «System i Navigator». Это то, что я пытался подключить к AS400, но получил сообщение об ошибке activex на линии Set Mainframe.

Sub as400connect()

    Dim Mainframe As Object

    Set Mainframe = CreateObject("saahlapi.dll").CurrentHost
    Mainframe.Activate
    Mainframe.Maximize

    Mainframe.Keys ("{Enter}")

    Set OUTPUTSHEET = ActiveWorkbook.Sheets("Sheet1")


    End Sub
...