Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Strange Formular for OLE
Hello,
I like to fill in fields in a UTS60 terminal emulation. (Unisys-Host). The terminal software is Attachemate INFOConnect. The manual says, that you can get an OLE as formular for Excel to read the data from the terminal software. Following formular reads, actively updating itself, a specified area from the terminal software's screen. If I type characters into that area inside the terminal software, excel gets updated. =Accmgr.Session.1|'C:\INFOCN32\ACCMGR32\Integratio n_64.ADP'!\R3C24R3C35M1Page001 Description: - Accmgr.Session.1 is a key in windows.registry for file extensen ADP. ADP is the file extension for attachemate terminal sessions und points to accmgr32.exe. accmgr32.exe accepts 1 argument/parameter. If called with C:\INFOCN32\ACCMGR32\Integration_64.ADP, the terminal emulation opens automaticaly the session, see below - C:\INFOCN32\ACCMGR32\Integration_64.ADP is a valid terminal session configuration file - R3C24R3C35 describs the read area (from row 3, col 24 til row 3, col 35 - M1 seems to be static - Page001 is a "recorded" screen inside the terminal emulation How can I use this information to create OLE or ActiveX objects to read values from the screen once, write them into a file and destroy the allocated objects? Does anyone have another idea how to automatically read and write from/to UTS60 connections? (HLLAPI, OHIO) Thanks in advance! Bjoern |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Strange Formular for OLE
Bjoern,
I don't know this software, but if it exposes any creatable ActiveX objects, you will find them in the list in the VB editor under ToolsReferences (and possibly Browse). If you can set a reference to a suitable component, then you can see its various properties/methods etc in the Object Browser. If it supports events, you can get notification by declaring the variable suitably: Dim WithEvents MySession As <ComponentName Or could evaluate the current function in VBA. How you log the data will depend somewhat on what is returned from the call to "Accmgr.Session.1", but something like this: Private Sub CommandButton1_Click() MsgBox LogSessionData("C:\LogData.txt", "R3C24R3C35") End Sub Private Function LogSessionData(TextFile As String, _ Optional SeesionRange As String, _ Optional ConfigFile As String = "C:\INFOCN32\ACCMGR32\Integration_64.ADP", _ Optional StaticVal As String = "M1", _ Optional PageNum As String = "Page001") As Boolean Dim FileNum As Long Dim ConnStr As String Dim RetVal As Variant Const BaseStr As String = "=Accmgr.Session.1|'<ConfigFile'!\<SessionRange< StaticVal<PageNum" ConnStr = Replace(BaseStr, "<ConfigFile", ConfigFile) ConnStr = Replace(ConnStr, "<SessionRange", SessionRange) ConnStr = Replace(ConnStr, "<StaticVal", StaticVal) ConnStr = Replace(ConnStr, "<PageNum", PageNum) RetVal = Evaluate(ConnStr) If IsEmpty(RetVal) = False Then FileNum = FreeFile Open TextFile For Append As #FileNum Put #FileNum, , RetVal '<<< Close #FileNum LogSessionData = True Else 'No data ? LogSessionData = False End If End Function NickHK "Bjoern" wrote in message ... Hello, I like to fill in fields in a UTS60 terminal emulation. (Unisys-Host). The terminal software is Attachemate INFOConnect. The manual says, that you can get an OLE as formular for Excel to read the data from the terminal software. Following formular reads, actively updating itself, a specified area from the terminal software's screen. If I type characters into that area inside the terminal software, excel gets updated. =Accmgr.Session.1|'C:\INFOCN32\ACCMGR32\Integratio n_64.ADP'!\R3C24R3C35M1Pag e001 Description: - Accmgr.Session.1 is a key in windows.registry for file extensen ADP. ADP is the file extension for attachemate terminal sessions und points to accmgr32.exe. accmgr32.exe accepts 1 argument/parameter. If called with C:\INFOCN32\ACCMGR32\Integration_64.ADP, the terminal emulation opens automaticaly the session, see below - C:\INFOCN32\ACCMGR32\Integration_64.ADP is a valid terminal session configuration file - R3C24R3C35 describs the read area (from row 3, col 24 til row 3, col 35 - M1 seems to be static - Page001 is a "recorded" screen inside the terminal emulation How can I use this information to create OLE or ActiveX objects to read values from the screen once, write them into a file and destroy the allocated objects? Does anyone have another idea how to automatically read and write from/to UTS60 connections? (HLLAPI, OHIO) Thanks in advance! Bjoern |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
formular | Excel Worksheet Functions | |||
another formular help please | Excel Discussion (Misc queries) | |||
Formular | Excel Worksheet Functions | |||
formular | New Users to Excel | |||
I still need help with formular? | Excel Worksheet Functions |