Сохранение данных в конкретный файл

[Olper]

Уважаемые знатоки, профи и просто любители Excel.
Подскажите плиз, как можно оперативно выгрузить данные из Excel, в обычный bat'ник, имя которого берется из столбца B, а в качестве переменной этого bat'ника выступает строка из столбца А. Сокращенный пример файла прилагается. Спасибо всем кто откликнется.

[EducatedFool]

Берём функцию сохранения в текстовый файл здесь:
http://excelvba.ru/code/txt

и пишем простенький макрос:

Sub СозданиеBATфайлов()
    Dim cell As Range, ra As Range: Application.ScreenUpdating = False
    Set ra = Range([A1], Range("A" & Rows.Count).End(xlUp))
    folder$ = ThisWorkbook.Path & "\файлы BAT\"
    On Error Resume Next: MkDir folder$    ' создаём папку, если её нет

    For Each cell In ra.Cells    ' перебираем все ячейки в первом столбце
        ' сохраняем текстовый файл
        SaveTXTfile folder$ & cell.Next, cell
    Next cell
End Sub

Function SaveTXTfile(ByVal filename As String, ByVal txt As String) As Boolean
    On Error Resume Next: Err.Clear
    Set fso = CreateObject("scripting.filesystemobject")
    Set ts = fso.CreateTextFile(filename, True)
    ts.Write txt: ts.Close
    SaveTXTfile = Err = 0
    Set ts = Nothing: Set fso = Nothing
End Function

Пример в файле: http://excelvba.ru/XL_Files/Sample__...__14-56-41.zip

Нажмёте кнопку - и моментально создадутся ваши BAT файлы:

[Olper]

EducatedFool!!!
Спасибо как всегда четко, грамотно, красиво!!!