![]() |
#11 |
Участник
|
А по 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 |
|