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

將06值寫到EXCEL中,仍維持06的問題

尚未結案
iecs
一般會員


發表:21
回覆:10
積分:6
註冊:2003-02-22

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-03-11 22:05:10 IP:218.170.xxx.xxx 未訂閱
小弟目前已能將資料庫中的資料正確的寫至EXCEL中。但目前有一問題 想請各位先進幫小弟。 小弟目前將 06 或 其他以 0 開頭的字串寫至EXCEL後,至EXCEL中 資料會變成 6 或 所有以 0 開頭的字串,0 皆不見了。 不知如何由Delphi中解決此問題,謝謝。
junlin
初階會員


發表:66
回覆:94
積分:42
註冊:2002-03-13

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-03-11 22:33:42 IP:140.129.xxx.xxx 未訂閱
if DataSet.Fields[j].DataType = ftString    OleExcel.Cells[i+1 , j].NumberFormatLocal := '@';   ------>key point
deity
尊榮會員


發表:90
回覆:876
積分:678
註冊:2003-05-09

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-03-11 23:09:37 IP:218.15.xxx.xxx 未訂閱
你好: 用站长大大的“將DBGrid資料轉至Excel檔的程式範例” http://delphi.ktop.com.tw/topic.php?TOPIC_ID=19473 将不会出现你这个问题,试试看。 ——行径窄处,留一步与人行——
luowy651
高階會員


發表:257
回覆:313
積分:114
註冊:2003-04-09

發送簡訊給我
#4 引用回覆 回覆 發表時間:2004-03-12 09:41:06 IP:218.72.xxx.xxx 未訂閱
您好: 只要在delphi中在需导出的column上加上''''就可以了,如下例,不知是否对您有用。 MyExcel.WorkBooks[1].WorkSheets[1].Cells[y,x] := '''' dbgrid.Fields[x-1].AsString;
系統時間:2024-06-26 18:29:52
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!