将数据写入文本文件时出错

Question

我正在使用访问权限将数据写入文本文件，但出现此错误

invalid procedure call or argument

在这个过程中我需要修改什么才能成功写入数据？我可以访问该路径，并且该文件已经存在并且在我的代码中拼写正确。

 Function WriteData(fulllocale As String, tblName As String, CString As String)
  Dim fso As Object
  Set fso = CreateObject("Scripting.FileSystemObject")

  Dim Fileout As Object
  Set Fileout = fso.OpenTextFile("C:\Test.txt", ForAppending, True)
  Fileout.Write fulllocale & "," & tblName & "," & CString & vbCrLf
  Fileout.Close
End Function

Answer 1

ForAppending 未声明，并且由于您显然晚绑定了 Scripting.FileSystemObject，它正在初始化为具有默认值的本地 Variant。

您可以通过将 Option Explicit 放在所有模块的顶部来防止将来出现这种情况。

要么添加对 Microsoft Scripting Runtime 的引用（绝对没有理由不这样做），要么使用 IOMode 的整数值。在本例中，ForAppending，即 8:

Set Fileout = fso.OpenTextFile("C:\Test.txt", 8, True)

将数据写入文本文件时出错

Error Writing Data To Text File

ms-access

vba

ms-access-2013