добрый день. есть макрос, который создает файлы тхт в папке. как указать для создания файлов тхт адрес другой папки? например, создавать файлы тхт в папке 200 по адресу C:\200.
Код |
---|
Sub TXT() For i = 1 To Range("E2") fl = ActiveWorkbook.Path & "\" & Cells(i, 3).Value & ".txt" Open fl For Output As 1 Print #1, Range("A1").Value Close 1 Next End Sub |