VFP 愛用者社區

sungkaiho · 註冊時間: 2004-09-14 文章: 8 第 1 樓

各位好，我是用VFP 6.0的，有一個關於memo欄轉到excel的問題想請教大家。

請問有沒有方法可以將MEMO中的文字，匯出至EXCEL中，仍然能保留MEMO文字的格式(包括跳行、縮排)？

以下是我現在的做法，但無法保留跳了行的格式：
我的dbf內有一個memo欄叫remark，我用list TO的方式，先做一個txt檔，然後用excel開啟，用逗號作文字分隔，將欄位的格式都設為文字，最後存為xls檔。

不過由於remark中是一段段的文字，到了excel時就出現怪現象，如下：
原本remark的第一筆資料及格式是
姓名：陳大文<-第一行
年齡：20<-第二行

到了excel後，原以為這筆資料都放在A1中，誰知竟然變成兩筆資料
A1是姓名：陳大文
A2是年齡：20
*A1、A2是指EXCEL裡的欄和列

之前試過利用copy to的方式，但轉為excel檔時remark這欄是不會出現在excel檔中，因此才用LIST TO。
不知各位有沒有方法可以指引，謝謝！

garfield · 發表於: 星期三五月 18, 2005 3:34 pm 文章主題:

對於 memo 欄位須用一格一格的貼上資料
scan
.range( 儲存格座標 ).Select
.Selection.formular1c1= strt( memo欄位 , chr(13),'') &&--只要chr(10)就好了
endscan

sungkaiho · 註冊時間: 2004-09-14 文章: 8 第 3 樓

謝謝回覆，不過有點不明白。

我是不是需要在vfp中呼叫excel檔，然後利用scan的方式把資料貼在excel檔上？
還是我只需令memo中的chr(13)消失就可以呢？

謝謝！

syntech · 發表於: 星期三五月 18, 2005 3:51 pm 文章主題:

應該可以利用 free 或 VFP內建的 cursorToXML 物件,
把TABLE 轉成XML ,
再由 EXCEL 讀入轉成XLS.

Chris Lee · 註冊時間: 2004-03-23 文章: 32 第 5 樓

[quote="syntech"]應該可以利用 free 或 VFP內建的 cursorToXML 物件,
把TABLE 轉成XML ,
再由 EXCEL 讀入轉成XLS.[/quote]

好方法耶！以前沒想過，那是不是要 Excel 2003 才可以讀 XML 檔？

也可以利用 ODBC 喔！因為 OLE Automation 慢得多。

sungkaiho · 註冊時間: 2004-09-14 文章: 8 第 6 樓

可惜我是用vfp6.0，cursorToXML是用不到，而office是97，我不知能否開到xml。
先謝謝syntech兄提供方法。
不過我還是想了解garfield兄所提供的方法，當中的程式有點像vba也有點像vfp，我搞不清應該怎做。
謝謝。

syntech · 發表於: 星期四五月 19, 2005 10:06 am 文章主題:

garfield 兄是利用 OLE automation 建立 excel 物件,
再用 scan .... endscan 逐格逐記錄轉入 excel 中.

還是要用"組合技",
先用copy to 轉成不含memo的xls,
再用OLE automation 法,
填入memo欄位的資料.

vfp 6 也有 free 的 xmltocursor 物件,
公司已經用好幾年了.
不過與vfp 7以上的內建xmltocursor物件稍微不一樣就是.

syntech · 發表於: 星期四五月 19, 2005 10:09 am 文章主題:

office 2000 應該就可以接收 xml 格式的資料吧,
這點先保留一下.
未查證.

但是office xp (office 2002) 確實已經可以接收xml的資料.

garfield · 發表於: 星期四五月 19, 2005 10:13 am 文章主題:

先去搜尋 excel createobject
研究如何開啟 excel 檔, 如果在儲存格填入資料, 你就知道上面的程式在寫什麼.

sungkaiho · 註冊時間: 2004-09-14 文章: 8 第 10 樓

我大致上明白了，我會跟據兩位的指引尋找相關的資料，感激萬分。

sungkaiho · 註冊時間: 2004-09-14 文章: 8 第 11 樓

謝謝各位的指導，我的問題終於解決了，非常感謝。
我一直以來都局限於vfp本身，對於用"組合技"今天總算跨出了第一步，再次感謝各位的虛心教導。