use Record Macro to copy text from screen coordinates

Posted on 2008-11-07
Last Modified: 2013-12-06
On iSeries Access for Windows version 8, I am accessing an AS400.

I am trying to record a Macro using the "Record" function that will copy certain text.  I can press "control + v" during record to copy the entire screen, but I only want it to copy either coordinates or what I select with the mouse.

Any help would be great!
Question by:cmushaun

    Accepted Solution

    sub subSub1_()

    dim curcol, currow, maxcol, cval
    curcol = 21
    currow = 6
    maxcol = autECLSession.autECLPS.NumCols
    if (curcol > maxcol) then
    exit do
    end if
    cval = autECLSession.autECLPS.GetText(currow, curcol, 1)
    if (cval = " ") then
    exit do
    end if
    autECLMacro "[mark right]"
    curcol = curcol + 1
    autECLMacro "[edit-copy]"

    end sub

    Author Comment

    Figured it out myself, see above if interested

    Featured Post

    6 Surprising Benefits of Threat Intelligence

    All sorts of threat intelligence is available on the web. Intelligence you can learn from, and use to anticipate and prepare for future attacks.

    Join & Write a Comment

    Just about everyone has an old PC laying around.  Ask anyone in the IT industry, whether they are a professional or play in it as a hobby.  From outdated Desktops to cheap "throwaway" laptops, they are all around and not as hard to "fix up" as you m…
    #Citrix #POC #XenDesktop #vCenter #VMware #ESX
    Access reports are powerful and flexible. Learn how to create a query and then a grouped report using the wizard. Modify the report design after the wizard is done to make it look better. There will be another video to explain how to put the final p…
    Polish reports in Access so they look terrific. Take yourself to another level. Equations, Back Color, Alternate Back Color. Write easy VBA Code. Tighten space to use less pages. Launch report from a menu, considering criteria only when it is filled…

    734 members asked questions and received personalized solutions in the past 7 days.

    Join the community of 500,000 technology professionals and ask your questions.

    Join & Ask a Question

    Need Help in Real-Time?

    Connect with top rated Experts

    24 Experts available now in Live!

    Get 1:1 Help Now