function ToExcel():boolean;
var
    y       :integer;
    tsList  :TStringList;
    s       :string;
    aSheet  :Variant;
begin
    result:=true;
    Excel.Connect;                  // 打開Excel
    Excel.Visible[0]:=true;         // 顯示Excel
    Excel.Workbooks.Add(xlWBATWorksheet,0);
    aSheet:=excel.Worksheets.Item[1];

    tsList:=TStringList.Create;
    try
        try
            with qryMaster do
            begin
                Open;
                First;
                While Not Eof do
                begin
                    s:='';
                    for y:=0 to FieldCount-1 do
                    begin
                        s:=s+Fields[y].AsString+#9;
                        application.PRocessMessages;
                    end;
                    tsList.Add(s);
                    // 從表
                    if qryDetail<>nil then
                    begin
                        with qryDetail do
                        begin
                            Open;
                            First;
                            while Not Eof do
                            begin
                                s:='';
                                for y:=0 to FieldCount-1 do
                                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,'數(shù)據(jù)導出完畢！','系統(tǒng)提示',MB_ICONINFORMATION or MB_OK);
end;

作者相關作品：
　　　　　　　◢█████◤
　　　　　　◢◤　　　◢◤
◣　　　　◢◤　凌　◢◤
█◣　　◢◤　　　◢◤
█◥◣◢◤　麗　◢◤
█　◥◤　　　◢◤
█　　　軟　◢◤ http://wosens.com
█　　　　◢◤
█　件　◢◤　　◥█████
█　　◢◤　　　　◥◣　　█
███◤　　　　　　◥███

======== 小燕子娛樂系列 ========
《小燕子信使》
《小燕子字符畫》
《小燕子方塊》

======== 程序員工具箱系列 ========
《內存清潔機》
《酷查詢:CoolQuery》
《口令王:PassWordKing》
《凌麗郵件群發(fā)》
《SQL 數(shù)據(jù)庫生成器》
《網(wǎng)頁攪拌機》
《WinRoute日志分析》
《日記隨手寫》

======== 無敵商務系列 ========
《無敵信使群發(fā)》
《無敵圖像印章》