Запись текстового файла

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Запись текстового файла (Макросы/Sub)

A_3485

Дата: Среда, 28.05.2014, 13:39 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 146

Репутация: 0 ±

Замечаний: 40% ±

2007

Добрый день, уважаемы форумчане!

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

[vba]

Код

Sub test()

Open "C:\Documents and Settings\" & "Строки.txt" For Output As #1
     For Index = 1 To 3
         Данные_1 = Sheets("Лист1").Cells(Index, 1)
         Данные_2 = Sheets("Лист1").Cells(Index, 2)
         Данные_3 = Sheets("Лист1").Cells(Index, 3)
         Данные_4 = Sheets("Лист1").Cells(Index, 4)

                 Строчка = Данные_1 & String$(8 - Len(Данные_1), " ") & Данные_2 & String$(6 - Len(Данные_2), " ") & _
                     Данные_3 & String$(13 - Len(Данные_3), " ") & Данные_4


                 Print #1, Строчка

     Next Index

     Close #1
End Sub

[/vba]

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

К сообщению приложен файл: 2705449.xlsx (9.4 Kb) · 9802458.txt (0.1 Kb)

Ответить

RAN

Дата: Среда, 28.05.2014, 14:06 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

[vba]

Код

Строчка = String$(2 - Len(Данные_1), " ") & Данные_1 & String$(9 - Len(Данные_2), " ") & Данные_2 & _
String$(11 - Len(Данные_3), " ") & Данные_3 & String$(6, " ") & Данные_4

[/vba]

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Среда, 28.05.2014, 14:23

Ответить

A_3485

Дата: Среда, 28.05.2014, 14:27 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 146

Репутация: 0 ±

Замечаний: 40% ±

2007

Спасибо, все получилось

Ответить

Запись текстового файла (Макросы/Sub)

Страница 1 из 1
1