Как создать из excel файл txt?

[ru3000]

Нужно макросом создать файл test.txt с относительным путем, т.е. там же, где лежит и сам файл excel. И сохранить внутри test.txt текст, например: "бла-бла-бла текст из ячейки A1 бла-бла-бла текст из ячейки A2".

[С.М.С]

pute = ThisWorkbook.Path
transkr = Cells(1, 1)
Open pute & "\text.txt" For Append As #1 'если файла нет, то
'создаётся новый файл, если файл существует, то значение ячейки А1 'записывается в конец документа.
Print #1, Format$(transkr)
Close #1

[tolikman]

Цитата из справки самого Excel

Enables input/output (I/O) to a file.

Syntax

Open pathname For mode [Access access] [lock] As [#]filenumber [Len=reclength]

The Open statement syntax has these parts:

Part Description
pathname Required. String expression that specifies a file name — may include directory or folder, and drive.
mode Required. Keyword specifying the file mode: Append, Binary, Input, Output, or Random. If unspecified, the file is opened for Random access.
access Optional. Keyword specifying the operations permitted on the open file: Read, Write, or Read Write.
lock Optional. Keyword specifying the operations restricted on the open file by other processes: Shared, Lock Read, Lock Write, and Lock Read Write.
filenumber Required. A valid file number in the range 1 to 511, inclusive. Use the FreeFile function to obtain the next available file number.
reclength Optional. Number less than or equal to 32,767 (bytes). For files opened for random access, this value is the record length. For sequential files, this value is the number of characters buffered.

Remarks

You must open a file before any I/O operation can be performed on it. Open allocates a buffer for I/O to the file and determines the mode of access to use with the buffer.

If the file specified by pathname doesn't exist, it is created when a file is opened for Append, Binary, Output, or Random modes.

If the file is already opened by another process and the specified type of access is not allowed, the Open operation fails and an error occurs.

The Len clause is ignored if mode is Binary.


Important In Binary, Input, and Random modes, you can open a file using a different file number without first closing the file. In Append and Output modes, you must close a file before opening it with a different file number.


Example
This example illustrates various uses of the Open statement to enable input and output to a file.

The following code opens the file

TESTFILE

in sequential-input mode.

Open "TESTFILE" For Input As #1
' Close before reopening in another mode.
Close #1

This example opens the file in Binary mode for writing operations only.

Open "TESTFILE" For Binary Access Write As #1
' Close before reopening in another mode.
Close #1

The following example opens the file in Random mode. The file contains records of the user-defined type

Record

.

Type Record    ' Define user-defined type.
    ID As Integer
    Name As String * 20
End Type

Dim MyRecord As Record    ' Declare variable.
Open "TESTFILE" For Random As #1 Len = Len(MyRecord)
' Close before reopening in another mode.
Close #1

This code example opens the file for sequential output; any process can read or write to file.

Open "TESTFILE" For Output Shared As #1
' Close before reopening in another mode.
Close #1

This code example opens the file in Binary mode for reading; other processes can't read file.

Open "TESTFILE" For Binary Access Read Lock Read As #1

[ru3000]

Спасибо большое. Только вот у меня не получается всавить сразу два вида тескта: "Мой текст" и Cells(1, 1). Как правильно написать эти вставки после transkr =, чтобы вставлялось одной строкой и в итоге получилось бы: "Мой текст Cells(1, 1)"?

[ru3000]

Все, сам нашел!
transkr = "Мой текст" & Cells(1, 1)

[denis402]

Друзья,изменил вышеприведенный макрос для создания файла куда будут присаться значения из первой ячейки,второй ,третьей и четвертой (первый столбец).Все работает как надо,но проблема в том,что теоретически ячеек с данными в первом столбце может быть сотня,как его видоизменить макрос дабы они брал все заполненые ячейки первого столбца?

Sub Macro()

Dim path As String
Dim ext As String
ext = "txt"
path = ThisWorkbook.path
Kill path & "\text.txt"
pute = ThisWorkbook.path
transfer1 = Cells(1, 1)
Open pute & "\text.txt" For Append As #1Print #1, Format(transfer1)
Close #1
transfer1 = Cells(2, 1)
Open pute & "\text.txt" For Append As #2
Print #2, Format(transfer1)
Close #2
transfer1 = Cells(3, 1)
Open pute & "\text.txt" For Append As #3
Print #3, Format(transfer1)
Close #3
transfer1 = Cells(4, 1)
Open pute & "\text.txt" For Append As #4
Print #4, Format(transfer1)
Close #4