Question

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

无效的过程调用或参数

在此过程中我需要更改哪些内容才能成功写入数据？我有权访问该路径，该文件已经存在，并且在我的代码中拼写正确。

 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

/tmp尚未声明，并且由于您显然已将您的ForAppending延迟限制，因此已将其初始化为本地Scripting.FileSystemObject并且＃＆＃ 39; s默认值。

您可以将Variant放在所有模块的顶部，以防止此情况发生。

添加引用Microsoft Scripting Runtime（绝对没有理由不这样做），或者使用Option Explicit的整数值。在这种情况下，IOMode，即8：

ForAppending

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

1 个答案: