Excel

[Gintaras]

This macro repeatedly copies Excel cells from a single column, and pastes in Notepad. Starts from the selected cell.

Code:

Copy      Help

str s
rep
,act "Excel"
,s.getsel
,s.rtrim("[]")
,if(!s.len) break
,key D
,
,act "Notepad"
,s.setsel
,key Y

This macro does almost the same (gets all cels from column A and pastes in Notepad), but much faster. Needs at least QM 2.1.7.

Code:

Copy      Help

act "Notepad"
spe 0 ;;maximum speed
ARRAY(str) row
foreach row "" FE_ExcelRow
,row[0].setsel ;;gets cell from column A. To get from other columns, use 1, 2, etc.
,key Y

This macro transfers all columns, not only A. Needs at least QM 2.1.7.

Code:

Copy      Help

act "Notepad"
spe 0
ARRAY(str) row
int col
foreach row "" FE_ExcelRow
,for col 0 row.len
,,row[col].setsel
,,key T
,key Y