Запись 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 «неверное имя или номер файла».Я попытался сделать как Ввод и заставить файл существовать, но я получаю ту же ошибку.

Это VBA внутри графика Proficy iFix, и я не могу понять, что я делаюнеправильно.

Answer 1

Вы смешиваете intInFile и intFileNo.

Возможно, что intFileNo просто установлен в ноль, если вы не используете команду option explicit, которая может объяснить неправильное число.

Эта небольшая команда идет вверху каждого моих VB / VBA-файлов, потому что я был сожжен этим много раз раньше.