馬上就要回家了，卻突然冒出了好多問題，真的是好煩人！但是也沒有辦法啊，事終歸是要做的，就趕緊抓緊時間處理問題吧！
昨天碰到一個客戶反映他們系統的導出數據有問題，說是什么結果不正確，數據導出不完全！就查了下代碼：
導出數據寫txt文本文件代碼如下：
??? Dim objFileSys As New FileSystemObject
??? Dim objStream As TextStream
??? Dim strDate As String

??? Set objStream = objFileSys.OpenTextFile(App.Path & "\App.Path & "\hr.bin", ForWriting)
??? Do While rsAccess.EOF = False
?????????? objStream.WriteLine rsAccess!Field
?????????? rsAccess.MoveNext
??? Loop

在執行過程中，有時沒有問題，但是有時候會報出以下信息：
”Invalid procedure call or argument“

單步檢查錯誤，發現問題是在rsAccess!Field上！當rsAccess!Field出現亂碼時就會報出以上錯誤信息！

找到問題，然后解決之；
考慮到寫文件時正常數據沒有問題，只有在寫亂碼的時候出錯，應該是TextStream不支持寫這類數據；就改了寫文件的方法！代碼如下

????? Open App.Path & "\hr.bin"?For Append As #1
??????Print #1, rsAccess!Field
??????Close #1
或者如下：
??????? Open App.Path & "\hr.bin" For Binary As #1
??????? Put #1,? rsAccess!Field
??????? Close #1

讀文件時如下：
??????? Open App.Path & "\hr.bin"For Input As #1
??????? While Not EOF(1)
??????????? Line Input #1, str
??????? Wend

?????????str即為文本文件內容！

轉載于:https://www.cnblogs.com/MyFavorite/archive/2006/01/24/322538.html

總結

以上是生活随笔為你收集整理的关于写文本文件的问题的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。