Нужно перевести номера телефонов из экселя (несколько листов внутри файла) в блокнот - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

10   голосов , оценка 3.7 из 5
Похожие ответы