nbsp;                      begin
                                    s:=s+Fields[y].AsString+#9;
                                    Application.ProcessMessages;
                                end;
                                tsList.Add(s);
                                next;
                            end;
                        end;
                    end;
                    next;
                end;
                Close;
            end;
            Clipboard.AsText:=tsList.Text;
        except
            result:=false;
        end;
    finally
        tsList.Free;
    end;

    Excel.Disconnect;
    aSheet.Paste;
    MessageBox(Application.Handle,''数据导出完毕！'',''系统提示'',MB_ICONINFORMATION or MB_OK);
end;