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

如何解决VBA写入文本文件：运行时错误52\'错误的文件名或数字\'

||

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，无法终生了解我做错了什么。     

解决方法

        您正在混合

intInFile

和

intFileNo

。 如果您未使用

option explicit

命令，则

intFileNo

可能会被简单地设置为零，这可能解释了无效的数字。 这个小命令位于我的VB / VBA文件的每个文件的顶部，因为之前已经被我烧死了很多次。