Type out contents copied from excel to proprietary software

[Gintaras]

Macro Macro2108

Code:

Copy      Help

;get selected cells in Excel
ExcelSheet es.Init
ARRAY(str) a
es.CellsToArray(a "sel")

;type first selected column in Notepad
act "Notepad" ;;activate window
spe 20 ;;speed
int row
for row 0 a.len
,key (a[0 row]) Y ;;type cell and press Enter