Передать ссылку на текстовый файл в процедуру - VBA

Формулировка задачи:

Здравствуйте! Есть пример кода для добавления информации в текстовый файл

                    Листинг программы
                
Open "D:\1.txt" For Output As #1
Write #1, s
Close #1

Как для такого формата передавать ссылку на файл в процедуру? P.S. Найти решение не получилось, гугл меня совершенно не так понимает

Решение задачи: «Передать ссылку на текстовый файл в процедуру»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Test()
    Dim iFileNumber%
    iFileNumber = FreeFile
    
    Open "D:\1.txt" For Output As #iFileNumber
        PrintTextFile iFileNumber
    Close #iFileNumber
End Sub
 
Private Sub PrintTextFile(iFileNumber%)
    Print #iFileNumber, "Наш текст"
End Sub

Оцени полезность:

7 голосов , оценка 4.429 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы