感謝你們對我的指教! 感謝不盡! 初出到來，還記各位高手們指教! 我現在dbgrid中的資料想匯出到EXCEL中，請你們指教! 謝謝!

您好： 搜尋一下『dbgrid excel』 提供你一範例http://delphi.ktop.com.tw/topic.php?TOPIC_ID=19473 ~~應無所住而生其心~~

suntao008你好： 插一个花： 这里也有 站长大大的【發表】將資料庫直接轉入EXCEL檔(不用OLE/不用ADO) http://delphi.ktop.com.tw/topic.php?TOPIC_ID=22849 你也可以自己去查找，在上面“KTOP搜寻”输入你要查找的关键字，比如‘EXCEL’你可以找到很多相关的资料，站内资源丰富得很 ——行径窄处，留一步与人行——

感謝兩位的指導： 不知兩位有沒有看過應用程序，如何看過就會發現： 我些我的程序中的按他們的方法運行，結果出現錯誤，可語句的錯誤，請各位大大，能否告訴我，如何去實現轉成Excel檔，謝謝!

您好： 小弟曾試過沒問題，不知道是什ㄇ錯？提出來討論 ~~應無所住而生其心~~

大哥： 我在我的程序中，按你的方法設置，還會出現無法運行？ 請問大哥： 請寫出轉換成EXCEL檔的語法，好嗎？謝謝! 感謝不盡!

你可以說明你出現的錯誤嗎？你又沒有說明你使用了那一個 sample ，就只說出現錯誤，你都要貼上你自己的原程式碼，好讓這裡的高手可以研究，就只有兩個字「錯誤」，我們不知從何入手喔。

引言: 感謝兩位的指導： 不知兩位有沒有看過應用程序，如何看過就會發現： 我些我的程序中的按他們的方法運行，結果出現錯誤，可語句的錯誤，請各位大大，能否告訴我，如何去實現轉成Excel檔，謝謝!

問題最好明確一點,這樣大夥比較容易切入您的問題核心! 1.比如您的程式從哪裡下載的,網址連結? 2.採用的Delphi版本 D5 / D6 / D7 ? 3.出現的錯誤訊息畫面為何 ? 4.您的作業系統為何 ? 這樣可以讓回覆更有效率! ～～～Delphi K.Top討論區站長～～～

function TForm1.SaveToExcel(vFileName: string): Boolean; //存成Excel檔 var index, i, j: Integer; BookMark: TBookmarkStr; Excel, workbook, worksheet: variant; begin result := False; DBGrid1.DataSource.DataSet.DisableControls; try Excel := CreateOleObject('Excel.Application'); if Application.MessageBox('是否進入 Excel 編修模式？', '程式執行確認', MB_YesNo MB_DEFBUTTON1 MB_IconQuestion MB_ApplModal) = IDYES then Excel.Application.Visible := True else Excel.Application.Visible := False; workbook := Excel.WorkBooks.Add; worksheet := Excel.WorkSheets['sheet1']; try index := 1; j := 1; //寫入製表日期時間 worksheet.Cells[index, j] := '產生日期時間：'; Inc(j); Excel.WorkSheets[1].Columns[j].NumberFormatLocal := '@'; worksheet.Cells[index, j] := FormatDateTime('yyyy/mm/dd hh:mm', now); Inc(index); //記錄位置 Bookmark := DBGrid1.DataSource.DataSet.Bookmark; DBGrid1.DataSource.DataSet.First; j := 1; //標題 for i := 0 to DBGrid1.Columns.Count - 1 do if not DBGrid1.Columns[i].Field.IsBlob and //not Blob Type (DBGrid1.Columns[i].Visible) then //Is Visible begin worksheet.Cells[index, j] := DBGrid1.Columns[i].Title.Caption; //worksheet.Cells[index, j].Alignment := 'Center'; //worksheet.Cells[index, j].Range(IntToStr(index) GetX(j)).HorizontalAlignment := 'xlCenter'; //定義欄位為字串時, 靠左對齊 case DBGrid1.Columns[i].Field.DataType of ftString: Excel.WorkSheets[1].Columns[j].NumberFormatLocal := '@'; end; Inc(j); end; Inc(index); //內容 while not DBGrid1.DataSource.DataSet.Eof do begin j := 1; for i := 0 to DBGrid1.Columns.Count - 1 do if not DBGrid1.Columns[i].Field.IsBlob and //not Blob Type (DBGrid1.Columns[i].Visible) then //Is Visible begin worksheet.Cells[index, j] := DBGrid1.Columns[i].Field.DisplayText; inc(j); end; Inc(index); DBGrid1.DataSource.DataSet.next; end; //最適欄寬 j := 1; for i := 0 to DBGrid1.Columns.Count - 1 do begin if not DBGrid1.Columns[i].Field.IsBlob and //not Blob Type (DBGrid1.Columns[i].Visible) then //Is Visible begin //定義最適欄寬 Excel.WorkSheets[1].Columns[j].AutoFit; Excel.WorkSheets[1].Columns[j].ColumnWidth := Excel.WorkSheets[1].Columns[j].ColumnWidth 1; inc(j); end; end; // worksheet.SaveAs(vFileName '.xls'); beep; ShowMessage('已產生 "' vFileName '.xls' '" 檔案 "'); result := True; finally if not Excel.Application.Visible then begin Excel.WorkBooks.Close; Excel.Quit; end; DBGrid1.DataSource.DataSet.Bookmark := Bookmark; DBGrid1.DataSource.DataSet.EnableControls; end; except ShowMessage('無法啟動Excel!!'); end; end; 以上程式有幾個問題： 一。是執行該程式的那電腦必須要有Excel，否則會沒有做用。 二。是資料量多的時候，會比較慢。 三。在Delphi 5.0(含)以上才有做用。 希望對你有些幫助。 對了在必須把ComObj，Uses 進去才能使用喔。