D
Dan Tabla
I have an application that supports VBA and I'm trying to copy some values
from its
screen into Excel using VBA. If I do it manualy, wont be a problem. Cliping
the text manualy from "Session"
and pasting in Excel gives me the wanted result.(text in Excel will be
pasted in different lines like
the in the original in "Session")
Session Excel
9889790 9889790
9889791 9889791
9889792 9889792
But, when I use the VBA code bellow, the text in Excel wont be in 3
different lines,cells like when I do it manually.
The whole string value will be assigned to same cell and I want to be like
the original cliptext from Session.
Session Excel
9889790 9889790 9889791 9889792
9889791
9889792
Dim Sessions As Object
Dim System As Object
Set System = CreateObject("EXTRA.System")
Set Sessions = System.Sessions
Dim Sess0 As Object
Set Sess0 = System.ActiveSession
Set MyScreen = Sess0.Screen
Set myarea = MyScreen.Area(StartRow, StartCol, EndRow, EndCol, , 3)
myarea.Select
myarea.Copy
ActiveSheet.Cells(Row, Col).Value = myarea.Value
THANKS EVERYONE FOR ANY SUGGESTION AND COMPILE SUCCESFULLY!
from its
screen into Excel using VBA. If I do it manualy, wont be a problem. Cliping
the text manualy from "Session"
and pasting in Excel gives me the wanted result.(text in Excel will be
pasted in different lines like
the in the original in "Session")
Session Excel
9889790 9889790
9889791 9889791
9889792 9889792
But, when I use the VBA code bellow, the text in Excel wont be in 3
different lines,cells like when I do it manually.
The whole string value will be assigned to same cell and I want to be like
the original cliptext from Session.
Session Excel
9889790 9889790 9889791 9889792
9889791
9889792
Dim Sessions As Object
Dim System As Object
Set System = CreateObject("EXTRA.System")
Set Sessions = System.Sessions
Dim Sess0 As Object
Set Sess0 = System.ActiveSession
Set MyScreen = Sess0.Screen
Set myarea = MyScreen.Area(StartRow, StartCol, EndRow, EndCol, , 3)
myarea.Select
myarea.Copy
ActiveSheet.Cells(Row, Col).Value = myarea.Value
THANKS EVERYONE FOR ANY SUGGESTION AND COMPILE SUCCESFULLY!