Reflections VBA to Excel copy and paste (Screen Scrape)

[kroters]

i am looking to copy data from Reflections workspace using VBA. i want to copy data on a page and paste into excel. i have done a macro in refelections to get the correct areas to select and copy. i then want to paste the data into excel go back to reflections and copy the next page and paste into excel (not overiding previous data). the below will copy current text on screen then Y to next screen.

'Select and copy text from the screen
osCurrentScreen.SelectText 9, 1, 22, 77, RegionOption_Wrapped
' Press EditCopy (Copy the selection and put it on the Clipboard).
osCurrentScreen.copy
osCurrentScreen.SendKeys "y"
'Wait for a string on the host screen before continuing
' returnValue = osCurrentScreen.WaitForString3(ESC & "[63C", NEVER_TIME_OUT, WaitForOption.WaitForOption_AllowKeystrokes)
' End If
Exit Sub

 

[sijpie]

Is the macro run from an Excel workbook?
What sheet and which starting cell does the data need to be pasted in?

 

[jase28r]

Hi Anychance you can share the full code from DIM Settings so i can have Excel take data from Reflections, enter in the home section etc

 

[sijpie]

Is this of any use?

How To's and Example Code

www.microfocus.com

 

[jase28r]

i am looking to copy data from Reflections workspace using VBA. i want to copy data on a page and paste into excel. i have done a macro in refelections to get the correct areas to select and copy. i then want to paste the data into excel go back to reflections and copy the next page and paste into excel (not overiding previous data). the below will copy current text on screen then Y to next screen.

'Select and copy text from the screen
osCurrentScreen.SelectText 9, 1, 22, 77, RegionOption_Wrapped
' Press EditCopy (Copy the selection and put it on the Clipboard).
osCurrentScreen.copy
osCurrentScreen.SendKeys "y"
'Wait for a string on the host screen before continuing
' returnValue = osCurrentScreen.WaitForString3(ESC & "[63C", NEVER_TIME_OUT, WaitForOption.WaitForOption_AllowKeystrokes)
' End If
Exit Sub

Kroters, can you detail the settings you used for both the reflections workspace and how you identified them in the VBA in Excel also please.

for example did you have to name a session and refer directly to it in the vba, if you did the detail on how this was done and then how you entered maybe a sendkey from VBA to the session. this will help me out massively
thanks

 

[jase28r]

Hi,
can someone help detail the settings you used for both the reflections workspace and how you identified them in the VBA in Excel also please.

for example did you have to name a session and refer directly to it in the vba, if you did the detail on how this was done and then how you entered maybe a sendkey from VBA to the session. this will help me out massively
thanks