Макрос экспорта данных в txt

[Noober89]

Всем доброго времени суток! Помогите пожалуйста написать макрос. Есть таблица с данными разного типа (числа, буквы). Нужен макрос, который проверял бы на соответствие нужные ячейки и при положительной проверке добавлял данные в создаваемый txt файл.
Многие примеры перелопатил но отредактировать до нужного результата пока не удается. Даже элементарный экспорт из одной ячейки в txt не знаю как написать, и найти не получается. Все, что нашел, это:

Sub ExportAsText()
Open "C:\primer.txt" For Output As #1
Print #1, Join(Application.Transpose([c7:d7].Value), vbLf)
Close #1
End Sub

Но почему то не работает...
В прикрепленных файлах примеры того, что есть и должно быть.
Надеюсь на отзывчивость и адекватность.

[SAS888]

Можно собрать в переменную весь необходимый текст, а затем записать в файл.
Например, так:

Sub Main()
    Dim i As Long, a(), s As String, f As String, fso, ts
    a = [A1].CurrentRegion.Value
    For i = 1 To UBound(a, 1)
        If a(i, 2) <> "" Then s = s & a(i, 1) & a(i, 2) & a(i, 3) & a(i, 4) & Space(Val(a(i, 5))) & a(i, 6) & a(i, 7) & a(i, 8) & Chr(10)
    Next
    f = "C:\primer.txt" 'Подставьте требуемые путь и имя файла
    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.CreateTextFile f: Set ts = fso.OpenTextFile(f, 2): ts.Write s: ts.Close
End Sub

Пример во вложении.

[Noober89]

Сообщение от SAS888

Можно собрать в переменную весь необходимый текст, а затем записать в файл.

Интересно! Спасибо за вариант! Буду думать, как это можно использовать в моем случае...

[Noober89]

Вдруг кому будет интересно, тема так же обсуждается на:
http://www.planetaexcel.ru/forum/ind...#message674215
http://www.excelworld.ru/forum/10-27609-1#193657
http://www.excel-vba.ru/forum/index....686.0#msg25402