Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Сохранение файла в формате txt с разделителем - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сохранение файла в формате txt с разделителем (Макросы/Sub)
Сохранение файла в формате txt с разделителем
sasha1982161082 Дата: Суббота, 28.09.2019, 06:55 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 1 ±
Замечаний: 0% ±

Excel 2016
Коллеги, помогите пожалуйста решить такую задачу.
Необходимо сохранить простой файл с таблицей (во вложении Загрузочный файл.xlsm) в виде текстового файла с разделителями табуляции.
Записал такое сохранение макрорекодером, получился файл (во вложении Загрузочный файл2.txt)
Когда же запустил получившийся макрос, то в сохраненном текстовом файле изменился разделитель целой и дробной части, была запятая, а стала точка
Как сделать, чтобы макрос сохранял текстовый файл с разделителями в виде запятых?
Я уже пробовал изменять формат столбца, не дало пока результата.
(к сожалению не могу вложить третий файл в это сообщение, ограничение по количеству я так понял)

PS Я использую текстовый файл для загрузки данных в программу SAP, разделитель в виде точки при загрузке не учитывается
К сообщению приложен файл: 6070028.xlsm(13.2 Kb) · _2.txt(0.2 Kb)
 
Ответить
СообщениеКоллеги, помогите пожалуйста решить такую задачу.
Необходимо сохранить простой файл с таблицей (во вложении Загрузочный файл.xlsm) в виде текстового файла с разделителями табуляции.
Записал такое сохранение макрорекодером, получился файл (во вложении Загрузочный файл2.txt)
Когда же запустил получившийся макрос, то в сохраненном текстовом файле изменился разделитель целой и дробной части, была запятая, а стала точка
Как сделать, чтобы макрос сохранял текстовый файл с разделителями в виде запятых?
Я уже пробовал изменять формат столбца, не дало пока результата.
(к сожалению не могу вложить третий файл в это сообщение, ограничение по количеству я так понял)

PS Я использую текстовый файл для загрузки данных в программу SAP, разделитель в виде точки при загрузке не учитывается

Автор - sasha1982161082
Дата добавления - 28.09.2019 в 06:55
Pelena Дата: Суббота, 28.09.2019, 10:41 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 14585
Репутация: 3196 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Может, построчно попробовать
[vba]
Код
Sub ExportAsText()
    x = Range("A1").CurrentRegion.Value
    Open "C:\Users\user\Desktop\Загрузочный файл.txt" For Output As #1
    For i = 1 To UBound(a)
        Print #1, a(i, 1) & vbTab & a(i, 2) & vbTab & a(i, 3)
    Next
    Close #1
End Sub
[/vba]


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеМожет, построчно попробовать
[vba]
Код
Sub ExportAsText()
    x = Range("A1").CurrentRegion.Value
    Open "C:\Users\user\Desktop\Загрузочный файл.txt" For Output As #1
    For i = 1 To UBound(a)
        Print #1, a(i, 1) & vbTab & a(i, 2) & vbTab & a(i, 3)
    Next
    Close #1
End Sub
[/vba]

Автор - Pelena
Дата добавления - 28.09.2019 в 10:41
RAN Дата: Суббота, 28.09.2019, 12:14 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 5154
Репутация: 1028 ±
Замечаний: 0% ±

2010
Лучше попробовать сохранять правильно
[vba]
Код
Local:=True
[/vba]


Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеЛучше попробовать сохранять правильно
[vba]
Код
Local:=True
[/vba]

Автор - RAN
Дата добавления - 28.09.2019 в 12:14
sasha1982161082 Дата: Воскресенье, 29.09.2019, 19:06 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 1 ±
Замечаний: 0% ±

Excel 2016
RAN, Спасибо! Ваш способ сработал!
 
Ответить
СообщениеRAN, Спасибо! Ваш способ сработал!

Автор - sasha1982161082
Дата добавления - 29.09.2019 в 19:06
sasha1982161082 Дата: Воскресенье, 29.09.2019, 19:14 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 1 ±
Замечаний: 0% ±

Excel 2016
Pelena, ваш способ у меня пока не получается, выдает ошибку Run-Time error '13'
на стоке For...
Возможно я что то путаю. Еще поразбираюсь.
 
Ответить
СообщениеPelena, ваш способ у меня пока не получается, выдает ошибку Run-Time error '13'
на стоке For...
Возможно я что то путаю. Еще поразбираюсь.

Автор - sasha1982161082
Дата добавления - 29.09.2019 в 19:14
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сохранение файла в формате txt с разделителем (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!