|
|
#12 |
|
Участник
|
Цитата:
Сообщение от Васыо
А по VBA есть специалисты?
/>/>Дано: два столбца. Первый столбец - Код, второй столбец - Описание. Необходимо для каждой строки создать отдельный текстовый файл Код.txt, внутри которого будет значение второго столбца соответствующей строки, то есть Описание. Гугл помог макросом, который создает по такому алгоритму пустые файлы: Код: Sub Create_TXT_Files()
Dim fso As Object, avArr, li As Long
avArr = Range(Cells(1, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1)).Value
With CreateObject("Scripting.FileSystemObject")
For li = 1 To UBound(avArr, 1)
If Len(avArr(li, 1)) Then Set fso = .CreateTextFile("C:\" & avArr(li, 1) & ".txt", True)
Next li
End With
End Sub |
|
|