Совсем точно ответить не могу. Можно попробовать с этим. В данной функци в текстовой файл выводятся данные из двух первых столбцов.

Sub WriteFile()

ThisFile = ThisWorkbook.Path & Application.PathSeparator & "Results.txt"
' Удалить предыдущую версию файла
On Error Resume Next Kill (ThisFile)
On Error GoTo 0
' Открыть файл
Open ThisFile For Output As #1
FinalRow = Range("A65536").End(xlUp).Row
' Записать файл
For j = 1 To FinalRow
Print #1, Cells(j, 1).Value; Tab; Cells(j, 2).Value
Next j
Close #1
MsgBox ThisFile & " completed."
End Sub


В качестве параметров вывода print можно поэкспериментировать.
Текст справки:

Print # Statement Example
This example uses the Print # statement to write data to a file.

Open "TESTFILE" For Output As #1 ' Open file for output.
Print #1, "This is a test" ' Print text to file.
Print #1, ' Print blank line to file.
Print #1, "Zone 1"; Tab ; "Zone 2" ' Print in two print zones.
Print #1, "Hello" ; " " ; "World" ' Separate strings with space.
Print #1, Spc(5) ; "5 leading spaces " ' Print five leading spaces.
Print #1, Tab(10) ; "Hello" ' Print word at column 10.

' Assign Boolean, Date, Null and Error values.
Dim MyBool, MyDate, MyNull, MyError
MyBool = False : MyDate = #February 12, 1969# : MyNull = Null
MyError = CVErr(32767)
' True, False, Null, and Error are translated using locale settings of
' your system. Date literals are written using standard short date
' format.
Print #1, MyBool ; " is a Boolean value"
Print #1, MyDate ; " is a date"
Print #1, MyNull ; " is a null value"
Print #1, MyError ; " is an error value"
Close #1 ' Close file.

nosorog2 mari_karo

спасибо но ваш макрос дает ошибку
Compile error : Syntax error
на строке
On Error Resume Next Kill (ThisFile)


Разбейте на две строчки, они нечаянно в одну слились.
On Error Resume Next
Kill (ThisFile)

Print #1, Cells(j, 1).Value; Tab; Cells(j, 2).Value

Cells(j, 1 ).Value

1 - это номер столбца, далее идет разделитель (Tab), далее опять столбец Cells(j, 2).Value (уже второй столбец) - сколько нужно, столько и добавляйте по аналогии.
Print #1, Cells(j, 1).Value; Tab; Cells(j, 2).Value; Tab; Cells(j, 3).Value

nosorog
я не силен в VBA но подозреваю что количество символов табуляции
можно задавать в макросе. Подскажите как это сделать ???

Это как вариант. :)

Print #1, Cells(j, 1).Value; Tab(90); Cells(j, 2).Value; Tab(180); Cells(j, 3).Value

White OwlТо что писал(а) mari_karo в данном случае не поможет. Его(ее) код может дать только другой "танец" столбцов. Но плясать они будут все равно.

Я - это она. ;)
Ну почему не поможет. Я так понимаю, что если известна заранее ширина столбцов, то можно и задать месторасположение следующего. В крайнем случае - можно просто высчитывать максимальную ширину столбца по длине содержимого ячейки... Вариантов масса. Просто нужно знать, что в итоге нужно.
И повторюсь, я сразу сказала, что с моим вариантом можно попробовать))) -
это ведь только вариант.

nosorog
в русском Excel только два формата сохранения в ТХТ файл возможны
1. Форматированный текст (разделитель - пробелы) файлы (*.prn)
2. Текстовые файлы (с разделителями табуляции) файлы (*.txt)
при этом :
в (*.prp) файле все колонки выровнены по своему левому краю но за счет обрезания "лишних" символов в соседней колонке что левее это не подходит тк теряется важная инфа в некоторых строках
в (*.txt) файле строки "пляшут" то вправо то "влево" но смысл текста понять можно
это подходит если есть возможность задавать разное количество символов табуляции между столбцами при сохранении.
Я тоже не нашла нормальный вариант экспорта в текстовой файл...
Либо что-то "плывет", либо что-то "съедается". :)

nosorog
женщина которая знает VBA - великая сила !!!
Спасибо большое за комплимент, ;) однако я еще в принципе относительный "новичок" в VBA и достаточно много не знаю))). Потихоньку воюю, то с одним, то с другим...

k-nike2
Не выложите ли свою фотографию в опровержение моей теории? Я думаю меня многие поддержат.

По-моему, этот форум явно для этого не предназначен. :) Однако, смею вас заверить, что с моими внешними данными - все в полном порядке!
А вообще, не во внешности дело.

k-nike[quot vkodor]Что получил пдтверждение или опровержение?
К счастью, опровержение.
Ну это... блондинка (крашеная) с голубыми глазами, волосы до плеч. Любит белые и черные тона.
От себя (я так думаю): не стерва, обладает хорошим чувством юмора, себе на уме, распутная (шутка).

Блондинка... КРАШЕНАЯ? Я?!!!!

Вы нарочно или специально?! Вообще то это мой родной - РУСЫЙ цвет волос. ;))))

Ну вот... Сработала потрясающая женская логика: фраза "блондинка (крашеная)" меня доконала. :(

Ох, докатилась. Вместо Office - я обсуждаю свою внешность!!!