Нужно перевести номера телефонов из экселя (несколько листов внутри файла) в блокнот - VBA
Формулировка задачи:
Доброго времени суток!
Обращаюсь к гуру макросов, т. к. для меня задача оказалось очень сложной!
Нужно перевести номера телефонов из экселя (несколько листов внутри файла) в блокнот.
Каждый лист в отдельный файл блокнота. https://cloud.mail.ru/public/6SAb/9xaCSjeiT вот тут он находится
Спасибо!!!
Решение задачи: «Нужно перевести номера телефонов из экселя (несколько листов внутри файла) в блокнот»
textual
Листинг программы
Sub copyTXT() Dim Sh As Worksheet, Path$, FSO As Object Path = ActiveWorkbook.Path + "\" ' папка активной книги или свой путь для сохранения Set FSO = CreateObject("Scripting.FileSystemObject") For Each Sh In Sheets With FSO.CreateTextFile(Path & Sh.Name & ".txt", True) .Write Join(WorksheetFunction.Transpose(Sh.Range(Sh.[a2], Sh.Cells(Rows.Count, 1).End(xlUp)).Value), vbNewLine) .Close End With Next Set FSO = Nothing End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д