大型机（reflection会议） – 从Excel中确定光标位置

从Excel控制主机时，可以使用几种function来导航和抓取数据。 其中一些函数包括.GetString（x，y），.Putstring（x，y）和.MoveTo（x，y）等等。 （x表示行＃，y表示列＃，认为这些像坐标）

我在网上看了很多， （IBM红皮书，白皮书，谷歌，堆栈，reflectionapi / vba的manauls，技术提示，网站严格专用于大型机等）

我一直无法find的一个function; 一个返回游标在Mainframe窗口中的当前位置的函数。

有什么办法可以做到吗？

Answer 1

我想通过在reflection的VBE中运行下面的代码来获取光标位置

Sub getCoordinates() Dim ibmCurrentTerminal As IbmTerminal Dim ibmCurrentScreen As IbmScreen Dim returnValue As Integer Set ibmCurrentTerminal = ThisFrame.SelectedView.control Set ibmCurrentScreen = ibmCurrentTerminal.Screen '--------------------------------------------------------------------- ibmCurrentTerminal.Productivity.ScreenHistory.ClearAllScreens ibmCurrentTerminal.Productivity.RecentTyping.ClearAllItems Dim CursorColumn As Integer Dim valueColumn As Integer Dim CursorRow As Integer Dim valueRow As Integer ibmCurrentScreen.CursorColumn = valueColumn ibmCurrentScreen.CursorRow = valueRow valueColumn = ibmCurrentScreen.CursorColumn valueRow = ibmCurrentScreen.CursorRow MsgBox "(" & valueRow & ", " & valueColumn & ")" End Sub 

如果你想检索光标的位置，虽然通过msgbox，这工作