作成者	カテゴリ	返答の対象		公開
U_STA_HIAD 09/08/2003 05:30 PM		全フィールド値をCSVﾌｧｲﾙに書き出すには？

解決しました！
ずっとItemクラスのValueをつかって
フィールド値を取得しようとしてたので
複数値はどうするんだろう？など悩んでいました。
textプロパティをつかえばよかったんですね。

それから、ForAllをつかわなくてもForでできました。
みなさん、ありがとうございます！


filenum% = Freefile()
filename$ = PathName_2 & "\Body.txt"

Open filename$ For Output As filenum%
For i=0 To Ubound(doc.Items)
Print #filenum%, doc.Items(i).name+":"+doc.items(i).text
Next
Close filenum%