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文件的顶部,因为我已经被这么多次烧毁了.