Сохранение файла в формате txt с разделителем

Старая форма входа

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сохранение файла в формате txt с разделителем (Макросы/Sub)

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)

Ответить

Pelena

Дата: Суббота, 28.09.2019, 10:41 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19179

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

Замечаний: ±

Excel 365 & 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]