全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1666
推到 Plurk!
推到 Facebook!

Delphi .net 如何匯出excel檔

尚未結案
zonhon
一般會員


發表:4
回覆:5
積分:1
註冊:2004-09-13

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-09-13 14:58:33 IP:211.23.xxx.xxx 未訂閱
小弟在C#.net中可先加入"Microsoft Excel Object Library"參考,所以可正確匯出資料到excel, 但在Delphi .net 中我找不到相關的Reference, 所以想請教一下各位高手, 因該如何處理????????
pgdennis
資深會員


發表:41
回覆:526
積分:443
註冊:2002-05-23

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-09-13 23:53:46 IP:211.74.xxx.xxx 未訂閱
1.這問題應該po在.NET專區比較適合 class="code">簡單的範例(範例是.NET WINFORM專案,非VCL專案) procedure TWinForm.Button1_Click(sender: System.Object; e: System.EventArgs); var MyExcel :Excel.Application; sheet :Excel.worksheet; workbook:Excel.Workbook; begin try MyExcel := CreatecomObject(ProgIDToClassID('Excel.Application')) ; if not assigned(MyExcel) then messagebox.Show('class not found!!!'); workbook:=MyExcel.Workbooks.Add(XlWBATemplate.xlWBATWorksheet); //MyExcel.Workbooks.Open('c:\test.xls',0, false,5,'','',false, // Excel.XlPlatform.xlWindows,'',false,false,0,false,false,false); sheet:=(workbook.ActiveSheet as worksheet); sheet.Cells.Item[1,1]:='test'; MyExcel.Save('c:\test.xls'); finally MyExcel.Quit; end; end; 5.大功告成 星期一,星期二...星期日..星期一..無窮迴圈@@
------
星期一,二...無窮迴圈@@
zonhon
一般會員


發表:4
回覆:5
積分:1
註冊:2004-09-13

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-09-14 16:53:57 IP:211.23.xxx.xxx 未訂閱
感謝pgdennis的幫忙.... 可否再請教一個問題...... 按照你說的方式已經可以正常執行,我將當案裡面的東西copy到 另外一台電腦它會出現File not found:'Excel.dcuil' 是因為我這電腦少加入什麼東西嗎?????? 發表人 - zonhon 於 2004/09/14 17:27:55
系統時間:2024-06-27 1:10:10
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!