Offtop

[Constantine_imported]

Цитата:

Сообщение от Васыо

Constantine я уже потратил на гугл некоторое количество времени. Нет, так не подойдет. И разбираться с VBA нет ни острой необходимости, ни желания. Если можете добавить пару строк нужного кода - добавьте пожалуйста, мне не процесс ловли рыбы интересен, а сразу рыба, причем всего одна порция />/>/>

Ну тогда как-то так:

Sub Create_TXT_Files()
  Const ForReading = 1, ForWriting = 2, ForAppending = 3
  Dim fso As Object, avArr, avArr2, li As Long
  avArr = Range(Cells(1, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1)).Value
  avArr2 = Range(Cells(1, 2), Cells(Cells(Rows.Count, 2).End(xlUp).Row, 2)).Value
  With CreateObject("Scripting.FileSystemObject")
    For li = 1 To UBound(avArr, 1)
      If Len(avArr(li, 1)) Then
        Set fso = .OpenTextFile("C:\for_exchange\" & avArr(li, 1) & ".txt", ForWriting, True)
        fso.write avArr2(li, 1)
        fso.Close
      End If
    Next li
  End With
End Sub