Доброго времени суток всем.
Пролистал форум, нашел 2 похожих макроса. К сожалению не получилось переделать их под себя, маловато знаний и опыта. Если кто сможет помочь, буду весьма признателен.
Условие задачи:
В ячейку А1 и В1 вносятся переменные (в виде текста). С данными из этих ячеек необходимо создать папку с именем "А1 В1" в каталоге где находится текущий файл excel.
В ячейке А3 вводится произвольный текст. Текстовый файл содержащий текст из ячейки А3 необходимо в формате "Новый текстовый документ.txt" сохранить в папке сформированной с параметрами заданными выше.
Было бы просто великолепно, если бы все это объединилось в одном макросе.
Пролистал форум, нашел 2 похожих макроса. К сожалению не получилось переделать их под себя, маловато знаний и опыта. Если кто сможет помочь, буду весьма признателен.
Условие задачи:
В ячейку А1 и В1 вносятся переменные (в виде текста). С данными из этих ячеек необходимо создать папку с именем "А1 В1" в каталоге где находится текущий файл excel.
В ячейке А3 вводится произвольный текст. Текстовый файл содержащий текст из ячейки А3 необходимо в формате "Новый текстовый документ.txt" сохранить в папке сформированной с параметрами заданными выше.
Было бы просто великолепно, если бы все это объединилось в одном макросе.
Код |
---|
Sub createFolders() Dim fso As Object Set fso = CreateObject("Scripting.FilesystemObject") For Each el In Range([G2], [G1].Offset([A2].End(xlDown).Row - 1, 0)) If Not fso.FolderExists(ThisWorkbook.Path & "\" & el.Value) Then fso.CreateFolder (ThisWorkbook.Path & "\" & el.Value) End If Next End Sub |
Код |
---|
Sub Экспорт() Open ThisWorkbook.Path & "\ResultExcel.txt" For Output As #1 Print #1, Join(Application.Transpose(Application.Transpose([A2:O2].Value)), vbNewLine) Close #1 End Sub |