>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 name

try
   copy to (m.lcXlsFile) type xl5
catch to loEx
   ** we may have problems preventing us from copying the file
endtry