VBA写入文本文件：运行时错误52'错误的文件名或数字'

Question

Public Sub EdgeColor_Click()
    Dim intInFile As Integer
    intInFile = FreeFile

    Open "c:\picturename.csv" For Output As #intFileNo
    Print #intFileNo, "test"

    Close #intFileNo
End Sub

这是我的代码，我得到运行时错误52'错误的文件名或编号'。我尝试过输入并使文件存在，但我得到了同样的错误。

这是Proficy iFix图形中的VBA，并且不能为我的生活弄清楚我做错了什么。

Answer 1

您正在混淆intInFile和intFileNo。

如果你没有使用intFileNo命令，option explicit可能只是设置为零，这可能解释了无效的数字。

这个小命令位于我的VB / VBA文件的每一个的顶部，因为我已经被这么多次烧过了。