Как создать отдельные текстовые файлы из строк Excel?⁠⁠

' лови макрос для excel

Sub pass()

'

' в excel левый alt + F11

' правой кнопкой на "эта книга"

' insert - module, вставить весь текст

' запускаем этот макрос

' на диске c: создать папку temp

' по умолчанию сохранение туда, либо поменять путь на свой

' первый столбец - фио

Dim ab As Integer

Dim i As Integer

Dim pth As String

' -------------------- меняем только это ----------------------------

'pth = InputBox("где сохранять файлы? по умолчанию c:\temp")

pth = "c:\temp\"

' -------------------------------------------------------------------

    ab = Cells(Rows.Count, 1).End(xlUp).Row

    For i = 1 To ab

        Call CreateAfile(pth & Cells(i, 1), Cells(i, 2).Text, Cells(i, 3).Text)

    Next i

End Sub

Private Sub CreateAfile(nfile As String, user As String, pass As String)

'

' ф-ция для создания текстового файла с наполнением

'

Dim fs As Object

Dim a As Object

    Set fs = CreateObject("Scripting.FileSystemObject")

    Set a = fs.CreateTextFile(nfile & ".txt", True)

    ' фразу можно менять

    a.WriteLine "Ваш логин и пароль от сериса"

    ' отбивка одной строки

    a.WriteLine ""

    ' пишем имя пользователя

    a.WriteLine user

    ' пишем пароль

    a.WriteLine pass

    a.Close

End Sub

См. "Заказать написание макроса Excel от 500 руб."

Либо несколько строчек на vba, либо сторонние платины экспорта к excel

так вот чьи это user123456 и тд. попался ботовод!)