将Excel文本输入到HostExplorer主机模拟器屏幕上的字段

我正在使用HostExplorer主机终端仿真器。我的VBA知识是基于将我在网上找到的信息拼凑在一起来制作其他宏。将Excel文本输入到HostExplorer主机模拟器屏幕上的字段

我正在制作一个宏，在大型机中输入发票，在几个屏幕之间移动，输入将生成链接的信息，然后使用该链接将文件保存到我的计算机上的预定文件夹。

我被困在输入信息部分。导航到最后一个屏幕后，我需要将文本输入到大型机的特定字段中。

我知道如何识别屏幕上的位置并使用它来创建变量。

我该怎么做，在屏幕上的特定位置输入一个字符串保存在一个变量（或只是一个随机字母）？

Sub MiscFileDownload() 

Dim HostExplorer As Object 
Dim MyHost As Object 
Dim Rc As Integer 

On Error GoTo GenericErrorHandler 

Set HostExplorer = CreateObject("HostExplorer") ' Initialize HostExplorer Object 
Set MyHost = HostExplorer.HostFromProfile("*****") ' Set object for the desired session 
If MyHost Is Nothing Then GoTo NoSession 

Dim ColALastRow As Long 
ColALastRow = Worksheets(1).Columns("A:A").End(xlDown).Row 
Dim Pro As String 
Dim MiscTest As String 
Dim iPSUpdateTimeout 

'enter pro then F2 and F9 

For i = 2 To ColALastRow 

    Pro = Worksheets(1).Cells(i, 1).Value 
    Rc = MyHost.Keys(Pro) 
    iPSUpdateTimeout = 60 
    MyHost.RunCmd ("Enter") 
    Rc = MyHost.WaitPSUpdated(iPSUpdateTimeout, True) 

    If Rc <> 0 Then GoTo OnWaitPSUpdatedTimeout 

    iPSUpdateTimeout = 60 
    MyHost.RunCmd ("PF2") 
    Rc = MyHost.WaitPSUpdated(iPSUpdateTimeout, True) 

    If Rc <> 0 Then GoTo OnWaitPSUpdatedTimeout 

    iPSUpdateTimeout = 60 
    MyHost.RunCmd ("PF9") 
    Rc = MyHost.WaitPSUpdated(iPSUpdateTimeout, True) 

    If Rc <> 0 Then GoTo OnWaitPSUpdatedTimeout 

    MiscTest = Mid(MyHost.Text, 1466, [3])   

    If MiscTest = "YES" Then 'test for Misc if true move to next screen 
     Rc = MyHost.Keys("v") 
     Rc = MyHost.WaitPSUpdated(iPSUpdateTimeout, True) 

     If Rc <> 0 Then GoTo OnWaitPSUpdatedTimeout 

     MyHost.RunCmd ("Tab") 
     Rc = MyHost.WaitPSUpdated(iPSUpdateTimeout, True) 

     If Rc <> 0 Then GoTo OnWaitPSUpdatedTimeout 

     Rc = MyHost.Keys("v") 
     Rc = MyHost.WaitPSUpdated(iPSUpdateTimeout, True) 

     If Rc <> 0 Then GoTo OnWaitPSUpdatedTimeout 

     MyHost.RunCmd ("Tab") 
     Rc = MyHost.WaitPSUpdated(iPSUpdateTimeout, True) 

     If Rc <> 0 Then GoTo OnWaitPSUpdatedTimeout 

    Else 

     MyHost.RunCmd ("PF1") 
     Rc = MyHost.WaitPSUpdated(iPSUpdateTimeout, True) 

     If Rc <> 0 Then GoTo OnWaitPSUpdatedTimeout 

     MyHost.RunCmd ("PF1") 
     Rc = MyHost.WaitPSUpdated(iPSUpdateTimeout, True) 
     If Rc <> 0 Then GoTo OnWaitPSUpdatedTimeout 

     GoTo NextIteration 
    End If 

NextIteration: 
Next i 

Exit Sub

来源

2017-01-20 user2996913

你只是想输入文字吗？我不确定你的主机是什么，但它看起来像你可以使用key（）方法输入！喜欢：MyHost.Keys（“thevalueyouwanttoType”） –

MyHost.Keys（“thevalueyouwanttoType”）的作品来输入字符串，但我需要知道如何将它输入到一个特定的位置，如果这是有道理的？例如，MiscTest = Mid（MyHost.Text，1466，[3]）会将该变量设置为等于从“位置？”开始的字符串。 1466在我的hostexplorer。如何在使用Myhost.keys之前导航到特定位置？ – user2996913

http://vbcity.com/forums/t/42741.aspx这可能会有所帮助。 –

考虑已记录使用蜂鸟应用上面的代码：

一旦你发现在你的屏幕上的位置，可以将变量传递给特定的_________________，对于如; myHost.area(4,2,4,10)是要输入什么位置，

MyHost.Area(4,2,4,10) = "desired_text"

如果你想找到HostExplorer领域，转到立即窗口（按CTRL + 摹），类型?MyHost.area(7,2,7,70)，然后按回车 => 2是起始位置，70是结束位置。

您将从第2个字符到第70个字符获得第7行中的文本或值。

来源

2017-05-09 15:38:36

正是我所期待的，谢谢。 – user2996913

在你的代码中，把手表放在myHost上，并检查.item.fields的proriety。这样您就可以找出每个字段的项目编号。然后你可以使用这个项目输入。

我没有在我面前的代码，但它像 MyHost.fields.item（78）= yourVariable或“30s”为例。

来源

2018-01-23 10:27:02

将Excel文本输入到HostExplorer主机模拟器屏幕上的字段

回答

相关问题