Доброго времени суток всем.
Пролистал форум, нашел 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 |
