Запись в текстовый файл - содержимого диапазона (построчно)

@perven · Регистрация: 02.10.2017

Author24 — интернет-сервис помощи студентам

Добрый вечер, программисты vba.
Помогите решить вопрос.

Есть макрос, который вписывает текст с ячейки C6 - в первую строку определенного файла txt (в данном случае 1.txt).

Как заставить макрос подобным образом вписывать в файл 1.txt не содержимое одной ячейки, а диапазона ячеек C10

17 (построчно) ?

(Пустая ячейка - означает пустую строку)

Visual Basic

Sub Test()
    Open ThisWorkbook.Path & "\" & [C5] For Output As #1
         Print #1, [C6]
    Close #1
End Sub

@pashulka · 04.10.2017, 07:38

Например так :

Visual Basic

Private Sub Test()
    Open ThisWorkbook.Path & "\" & [C5] For Output As #1
         Dim iCell As Range
         For Each iCell In [C10:D17]
             If Not IsEmpty(iCell) Then
                Print #1, iCell
             Else
                Print #1,
             End If
         Next
    Close #1
End Sub

@perven · 04.10.2017, 08:17 **[ТС]**

pashulka , все нормально.
Благодарю.

@pashulka · 04.10.2017, 17:54

perven, В Вашем случае, когда нет необходимости отделять пустые ячейки - от ячеек, содержащих формулы, которые возвращают "" можно даже проще :

Visual Basic

Private Sub Test2()
    Open ThisWorkbook.Path & "\" & [C5] For Output As #1
         Dim iCell As Range
         For Each iCell In [C10:D17]
             Print #1, iCell
         Next
    Close #1
End Sub

@perven 0 / 0 / 0 Регистрация: 02.10.2017 Сообщений: 18
	04.10.2017, 08:17 [ТС]	3
	pashulka , все нормально. Благодарю. 0

	04.10.2017, 17:54

Запись в текстовый файл - содержимого диапазона (построчно)

Решение