Sub Send_rows()
AppActivate "Oracle Applications" ' Activate Oracle Applications
DoEvents
' Passes control to operating system until all
' events in queue have been processed
For Each c In Selection ' For all cells selected
Select
Case c.Value
Case "TAB"
Sep = "{TAB}"
' Tab
Content = ""
Case "ENT"
Sep = "{ENTER}"
' Enter
Content = ""
Case "*UP"
Sep = "{UP}"
' Up Arrow
Content = ""
Case "*DN"
Sep = "{DOWN}"
' Down Arrow
Content = ""
Case "*LT"
Sep = "{LEFT}"
' Left Arrow
Content = ""
Case "*RT"
Sep = "{RIGHT}"
' Right Arrow
Content = ""
Case "*FE"
Sep = "%EE"
' Field Editor
Content = ""
Case "*SP"
Sep = "%AA"
' Save and Proceed
Content = ""
Case "*NB"
Sep = "%GB"
' Next Block
Content = ""
Case "*PB"
Sep = "%GV"
' Previous Block
Content = ""
Case "*NF"
Sep = "%GN"
' Next Field
Content = ""
Case "*PF"
Sep = "%GP"
' Previous Field
Content = ""
Case "*NR"
Sep = "%GR"
' Next Record
Content = ""
Case "*PR"
Sep = "%GE"
' Previous Record
Content = ""
Case "*FR"
Sep = "%GF"
' First Record
Content = ""
Case "*LR"
Sep = "%GL"
' Last Record
Content = ""
Case "*ER"
Sep = "%ER"
' Erase Record
Content = ""
Case "*DR"
Sep = "%ED"
' Delete Record
Content = ""
Case "*AA"
Sep = "%A"
' Alt + A
Content = ""
Case "*AB"
Sep = "%B"
' Alt + B
Content = ""
Case "*AC"
Sep = "%C"
' Alt + C
Content = ""
Case "*AD"
Sep = "%D"
' Alt + D
Content = ""
Case "*AE"
Sep = "%E"
' Alt + E
Content = ""
Case "*AF"
Sep = "%F"
' Alt + F
Content = ""
Case "*AG"
Sep = "%G"
' Alt + G
Content = ""
Case "*AH"
Sep = "%H"
' Alt + H
Content = ""
Case "*AI"
Sep = "%I"
' Alt + I
Content = ""
Case "*AJ"
Sep = "%J"
' Alt + J
Content = ""
Case "*AK"
Sep = "%K"
' Alt + K
Content = ""
Case "*AL"
Sep = "%L"
' Alt + L
Content = ""
Case "*AM"
Sep = "%M"
' Alt + M
Content = ""
Case "*AN"
Sep = "%N"
' Alt + N
Content = ""
Case "*AO"
Sep = "%O"
' Alt + O
Content = ""
Case "*AP"
Sep = "%P"
' Alt + P
Content = ""
Case "*AQ"
Sep = "%Q"
' Alt + Q
Content = ""
Case "*AR"
Sep = "%R"
' Alt + R
Content = ""
Case "*AS"
Sep = "%S"
' Alt + S
Content = ""
Case "*AT"
Sep = "%T"
' Alt + T
Content = ""
Case "*AU"
Sep = "%U"
' Alt + U
Content = ""
Case "*AV"
Sep = "%V"
' Alt + V
Content = ""
Case "*AW"
Sep = "%W"
' Alt + W
Content = ""
Case "*AX"
Sep = "%X"
' Alt + X
Content = ""
Case "*AY"
Sep = "%Y"
' Alt + Y
Content = ""
Case "*AZ"
Sep = "%Z"
' Alt + Z
Content = ""
Case Else
Sep = ""
' Move to next value
Content = c.Value
End
Select
SendKeys Content & Sep, True ' Send to Oracle Applications, wait for processing
DoEvents
' Passes control to operating system until all
' events in queue have been processed
' Pause the macro to allow time for save and refresh screen
Dim
PauseTime, Start, Finish
If
c.Value = "*SP" Then
PauseTime = 2
' Set duration.
Start = Timer
' Set start time.
Do While Timer < Start + PauseTime
DoEvents
' Wait
Loop
Finish = Timer
' Set end time.
End
If
Next
End Sub
Return to : Oracle
Database, SQL, Application, Programming Tips