;/exe 1 act "Excel" ExcelSheet es.Init rep ,Excel.Range r=es.ws.Application.Selection ,str s=r.Value ,out s ,if(s.len=0) break ,key D