VBA создания файлов .txt из списка - создаёт лишний файл

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/VBA создания файлов .txt из списка - создаёт лишний файл - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

VBA создания файлов .txt из списка - создаёт лишний файл (Макросы/Sub)

VBA создания файлов .txt из списка - создаёт лишний файл

ceHnau

Дата: Понедельник, 15.04.2024, 14:32 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 18

Репутация: 0 ±

Замечаний: 20% ±

2016

Здравствуйте!
Код:
[vba]

Код

Sub Greate_files()
' Макрос создаёт txt файлы из списка
For i = 1 To 26
    fl = "C:\Создать список\" & Cells(i, 1).Value & ".txt"
    Open fl For Output As 1
         Print #1, Range("A1").Value
    Close 1
Next
End Sub

[/vba]
Исправно создаёт файлы из столбца А в заданной в пути папке. Только вот всегда создаёт один лишний, с названием ".txt". Как от этого избавиться?
Заранее благодарю!