Я хотел бы почистить данные с 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