access vba的問題

Question

請問 將某 list 所顯示的資料

要匯出成純文字檔的檔案 要怎麼寫??

很急@@" 請大家幫幫忙 謝謝!!

謝謝!!! 可以匯出了 !!

但有一個小小的問題..

可以設定欄位間的距離嗎??

匯出之後的文字檔看了好吃力@@"

謝謝!!

Answer 1

'我的版本是2000的不知道合不合用
圖片參考：http://tw.yimg.com/i/tw/blog/smiley/33.gif

Private Sub Command1_Click()
Dim R%, C%, S$

For R = 0 To List0.ListCount - 1
For C = 0 To List0.ColumnCount - 1
S = S & List0.Column(C, R) & " " '欄與欄位間之資料以空格隔間
Next
Mid$(S, Len(S)) = vbCr
Next

Open "C:\Test.txt" For Output As #1
Print #1, Replace(Left(S, Len(S) - 1), vbCr, vbCrLf)
Close #1
MsgBox "已將List0之內容輸出至""C:\Test.txt"""
End Sub

2006-12-20 20:17:22 補充：
C:Test.txt 改成 C:＼Test.txt (半形的＼)　　
＼　被吃掉了 看

2006-12-21 00:03:56 補充：
這裡很難再補充說明,方法大致上可採用固定字串長度的方式,譬如說姓名欄就給予定為5個字串長度:Dim S As String * 5 或是 S=String(5," ")那輸出時就能對齊了;..乾脆我把檔案寄給你好了.