Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
2 / 2 / 0
Регистрация: 19.10.2015
Сообщений: 163
1

(VBA Excel) Экспорт в txt не смежных колонок

29.06.2017, 13:27. Показов 1550. Ответов 8
Метки нет (Все метки)

Доброго дня, помогите с макросом экспорта данных из Excel в текстовый файл не смежных колонок (А и C) чтобы данные в текстовом файле копировались построчно. Кое-что попытался сделать, но, увы. Примеры в прикрепленных файлах.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Sub ExPort_to_TXT()
Dim rng1 As Range, qq As Range
Set rng1 = ActiveSheet.UsedRange
DeHb = Format(Now(), "dd.mm.yyyy")
Set fs = CreateObject("Scripting.FileSystemObject")
Set f1 = fs.CreateTextFile("D:\STOP_" & DeHb & ".txt", True)
For Each qq In rng1
    If qq.Value <> "" Then f1.WriteLine (qq.Value)
Next
f1.Close
    Application.ScreenUpdating = True
End Sub
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Вложения
Тип файла: txt Stop_29.06.2017.txt (434 байт, 6 просмотров)
Тип файла: xlsx STOP_forum.xlsx (9.5 Кб, 4 просмотров)
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.06.2017, 13:27
Ответы с готовыми решениями:

Импорт-Экспорт из Excel таблицы Списка в 5 колонок
Здравствуйте. Помогите разобраться как реализовать правильно следющую задачу: 1. Приходит от...

Vba экспорт в excel по vba-фильтру
Работает VBA-фильтр, как сделать экспорт выбранных данных в Excel по средствам кнопки. Прошу о...

Создать массивы из колонок excel либо txt
Есть таблица в excel либо в txt с запятыми в качестве разделителей. Подскажите как создать массив...

Экспорт данных из txt в excel по заданным параметрам
Добрый день коллеги, работаю давненько программистом но с языком VBA на практике познакомился грубо...

8
6846 / 2784 / 525
Регистрация: 19.10.2012
Сообщений: 8,470
29.06.2017, 14:06 2
Visual Basic
1
if qq.column<>2 then
не будет достаточно?
0
2 / 2 / 0
Регистрация: 19.10.2015
Сообщений: 163
29.06.2017, 16:44  [ТС] 3
Уже лучше, но всё-равно формат в текстовом файле не тот что нужен. нужно:
STOP 07:26:44:19
а получается:
07:26:44:19
STOP
0
6846 / 2784 / 525
Регистрация: 19.10.2012
Сообщений: 8,470
29.06.2017, 16:47 4
А так?
Visual Basic
1
2
3
For Each qq In rng1.column(1)
    If qq.Value <> "" Then f1.WriteLine qq.Value & " " & qq.offset(,2).value
Next
0
2 / 2 / 0
Регистрация: 19.10.2015
Сообщений: 163
29.06.2017, 16:52  [ТС] 5
Выдаёт ошибку
Compile error:
Wrong number of arguments or invalid property assignment
в этой строке
Visual Basic
1
For Each qq In rng1.Column(1)
0
6846 / 2784 / 525
Регистрация: 19.10.2012
Сообщений: 8,470
29.06.2017, 17:03 6
Тогда вероятно правильно писать columns(1) - вечно путаю...
0
2 / 2 / 0
Регистрация: 19.10.2015
Сообщений: 163
29.06.2017, 17:18  [ТС] 7
Теперь выдаёт:

Run-time error '13':
Type mismatch

Visual Basic
1
    If qq.Value <> "" Then f1.WriteLine qq.Value & " " & qq.Offset(, 2).Value
0
6846 / 2784 / 525
Регистрация: 19.10.2012
Сообщений: 8,470
29.06.2017, 17:40 8
Лучший ответ Сообщение было отмечено lapin9126 как решение

Решение

Вот:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Sub ExPort_to_TXT()
Dim rng1 As Range, qq As Range
Set rng1 = ActiveSheet.UsedRange
DeHb = Format(Now(), "dd.mm.yyyy")
Set fs = CreateObject("Scripting.FileSystemObject")
Set f1 = fs.CreateTextFile("D:\STOP_" & DeHb & ".txt", True)
For Each qq In rng1.Columns(1).Cells
    If qq.Value <> "" Then f1.WriteLine qq.Value & " " & qq.Offset(, 2).Value
Next
f1.Close
    Application.ScreenUpdating = True
End Sub
1
2 / 2 / 0
Регистрация: 19.10.2015
Сообщений: 163
29.06.2017, 17:53  [ТС] 9
Спасибо за помощь, теперь то что нужно!!!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.06.2017, 17:53

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Экспорт данных ячеек Excel в txt файл
Мне нужно из xmlx файла (Microsoft excel 2010) выполнить экспорт данных в ячейке в txt файл. Однако...

Автоматический Экспорт из excel в txt всех файлов из папки
Здравствуйте, у меня есть готовый макрос, который определенным образом обрабатывает открытую книгу...

VBA, экспорт в excel без автосохранения работает
Очередной раз вопрос по работе с книгой Эксель (не получается с ней работать). :sorry: Проблема -...

Экспорт из excel в базу MySQL средствами VBA
Помогите записать данные из книги эксель в базу MySQL. Это нужно макросом делать - обратный путь...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.