请问vba 写入txt 为什么有的写不进去

[yangfeiwin87]

请问vba 写入txt 为什么有的写不进去

[沐NeMo]

参考：下面把一个表【只有一个关键字段】的记录写到一个文本文件txt里面。

Private Sub ExportIntoText(ItemNoTBHaveOrNot As String, TmpPath As String)
Dim FileObj As Scripting.FileSystemObject
Dim TextObj As Scripting.TextStream
Dim I As Integer
Dim Rst As DAO.Recordset
    Set FileObj = CreateObject("Scripting.FileSystemObject")
    Set TextObj = FileObj.CreateTextFile(TmpPath, True)
    Set Rst = CurrentDb.OpenRecordset(ItemNoTBHaveOrNot)
    If Not (Rst.BOF And Rst.EOF) Then
        Rst.MoveLast
        Rst.MoveFirst
        For I = 1 To Rst.RecordCount
            If Not IsNull(Rst(0)) Then
                TextObj.WriteLine (Trim(Rst(0)))
            End If
            Rst.MoveNext
        Next
    Else
       TextObj.Write ("-->>无记录<<--")
    End If
    Rst.Close
    Set Rst = Nothing
    TextObj.Close
    Set TextObj = Nothing
    Set FileObj = Nothing
End Sub

[鸭梨山大帝]

问题不清楚.可能性很多.
比如被独占的文件无法写入.
贴代码.

[rainlove2010]

问题描述的不是很清楚哎
最后相信说一下或者代码贴出来。