Excel檔案另存成TXT的問題 |
|
答題得分者是：P.D.
|
|
skywillnosky
一般會員   發表：12 回覆：11 積分：4 註冊：2012-12-14 發送簡訊給我 |
|
|
P.D.
版主   發表：603 回覆：4038 積分：3874 註冊：2006-10-31 發送簡訊給我 |
我想這應該不難
msexcel.Workbooks.Add; msexcel.Workbooks[1].Worksheets[1].Name:= 'Sheet1'; Worksheet:= msexcel.Workbooks[1].Worksheets['Sheet1']; 重點在第三行, 指定目前的 worksheet 是 sheet1, 然後接下來, 把excel表內的資料讀入到 TStringList 或 TMemo中, 最後 savetofile 就可以指定那一份Sheet 轉存 text ===================引 用 skywillnosky 文 章=================== 如果Excel有多個活頁簿(Sheet) 請問要如何指定哪個Sheet 再將他轉成TXT檔案 我爬到的文都是 直接另存成TXT檔 可是這樣可能無法得到我需要的那一頁 (因為TXT沒有活頁簿的機制，所以不做處理一定是第一頁) 如果這是可以實做出來的話 可以給我一個的方向嗎？ 感謝大家 |
|
skywillnosky
一般會員 發表：12 回覆：11 積分：4 註冊：2012-12-14 發送簡訊給我 |
|
|
P.D.
版主 發表：603 回覆：4038 積分：3874 註冊：2006-10-31 發送簡訊給我 |
因為你只提到要輚到TXT, 一般TXT 是不具排版功能, 只要把輸出的欄位依序放入就好了, 所以才會建議用TStringList
===================引 用 skywillnosky 文 章=================== 謝謝 我已經找到答案了 做法是將指定Sheet number 前面的Sheet都刪掉 再用SaveAs存成TXT檔 版主大的作法應該更好 可是 把excel表內的資料讀入到 TStringList 好像是要Loop Excel的Field 變成要自己排版是嗎？ |
發表時間：2012-12-24 15:33:17
IP:61.220.xxx.xxx 訂閱
系統時間：2024-11-23 17:56:10
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |