| |
| | |
| Can the terminal program allow read/write of data into Microsoft Excel? |
|
| | |
| Product: Distinct Intelliterm | Topic: DDE | Last updated: 3/31/2008 | | | | Q.: Can the terminal program allow read/write of data into Microsoft Excel? | A.: Yes, here's some sample code that should help you with this. This macro takes all the text from Intellitem's session and puts it into cell (1,1) of the current worksheet:
Sub test()
On Error GoTo ErrorHandler
crlf = Chr(13) + Chr(10)
iChanNum = DDEInitiate("ITERM", "1")
iNumRows = DDERequest(iChanNum, "Rows")(1)
iNumCols = DDERequest(iChanNum, "Columns")(1)
data = ""
If iChanNum Then
For Row = 1 To iNumRows
request = "P" + Mid(Str(1 + ((Row - 1) * iNumCols)), 2) + "L" + LTrim(Str(iNumCols))
request = request + crlf
r = DDERequest(iChanNum, request)(1)
data = data + r
Next Row
ThisWorkbook.ActiveSheet.Cells(1, 1).Value = data
Else 'could not open session
MsgBox "Could not open DDE Session with program."
End If
ErrorHandler:
DDETerminate iChanNum
End Sub
|
If you did not find what you are looking for:
|
![]()
|
|