Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » 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". Как от этого избавиться?
Заранее благодарю!
К сообщению приложен файл: primer.xlsm (14.3 Kb)
 
Ответить
СообщениеЗдравствуйте!
Код:
[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". Как от этого избавиться?
Заранее благодарю!

Автор - ceHnau
Дата добавления - 15.04.2024 в 14:32
Nic70y Дата: Понедельник, 15.04.2024, 14:50 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 8791
Репутация: 2293 ±
Замечаний: 0% ±

Excel 2010
а так?[vba]
Код
For i = 1 To Cells(Rows.Count, "a").End(xlUp).Row
[/vba]


ЮMoney 41001841029809
 
Ответить
Сообщениеа так?[vba]
Код
For i = 1 To Cells(Rows.Count, "a").End(xlUp).Row
[/vba]

Автор - Nic70y
Дата добавления - 15.04.2024 в 14:50
ceHnau Дата: Понедельник, 15.04.2024, 15:03 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 18
Репутация: 0 ±
Замечаний: 20% ±

2016
Nic70y, Благодарю! Всё пашет!
 
Ответить
СообщениеNic70y, Благодарю! Всё пашет!

Автор - ceHnau
Дата добавления - 15.04.2024 в 15:03
Hugo Дата: Вторник, 16.04.2024, 13:57 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3255
Репутация: 707 ±
Замечаний: 0% ±

2019
Да и тот код нормально отработал, если есть числа 1-26


excel@nxt.ru
webmoney: E265281470651 Z422237915069
 
Ответить
СообщениеДа и тот код нормально отработал, если есть числа 1-26

Автор - Hugo
Дата добавления - 16.04.2024 в 13:57
Мир MS Excel » Вопросы и решения » Вопросы по VBA » VBA создания файлов .txt из списка - создаёт лишний файл (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!