>On this line >copy to forceext(m.ab4 + juststem(m.mtablename),'xls') type xl5 > >error messages appears as >ole error code 0x80030003: unknown COM status code
Ok, let's do in two steps.
lcXlsFile = forceext(m.ab4 + juststem(m.mtablename),'xls')
=messagebox(lcXlsFile) && to make sure we created a good file nametrycopyto (m.lcXlsFile) typexl5catchto loEx
** we may have problems preventing us from copying the file
endtry