Reflections WRQ copy to Excel

[Robertson1995]

I am using VBA in a program called Reflections WRQ. I am trying to create a code that will copy the screen display into excel. When I try to run this I get "Object doesnt support this property or method" and the error is on the "displaytext = .gettext" line. Any help would be much appreciated. Thanks.

Sub text2()

Dim displaytext As String

With Session

displaytext = .gettxt(.ScreenTopRow, 0, .ScreenTopRow + .DisplayColumns, .DisplayColumns)

End With

Dim word As word.Application

Set word = CreateObject("word.application")

word.Visible = True
word.Documents.Add
word.Selection.TypeText text:=displaytext

End Sub

 

[ZVI]

Hi,

I don't know anything about Reflections WRQ. Your code is for copying of the text into Word document, but not into the Excel sheet as you’ve mentioned.

There is no internal Session class object in VBA Excel.
If you add the topmost line Option Explicit then you will get debugger error on Session.
Seems, that you should set reference to external library (usually it’s DLL file) with Session object. In VBA the reference can be set from VBE – menu Tools – References. Have a look on the manual of Reflections WRQ if exist, or contact to supporting team of this tool.

Vladimir

 

[Wolfshead]

Hi
I dont think that Reflections has a gettxt method - try changing it to GetDisplayText instead - it works for me

Wolfshead