Сохранение в txt с кавычками, табуляциями и ;

Сохранение в txt с кавычками, табуляциями и ;, не опять, а снова!) поиском пользовался!

Пользователь

Сообщений: 119 Регистрация: 21.04.2013

10.04.2015 10:16:56

Доброго времени суток.
Уважаемые форумчане, возникла проблема - есть листы (будет несколько сотен) с кавычками, пробелами, табуляциями и надо автоматом их сохранять их в тхт.

пробовал найденные на форуме FileFormat:=xlText, FileFormat:=xlTextPrinter - сохраняет не так, как надо. стандартные способы тоже пробовал. без кавычек в получаемом файле нельзя - они загружаются в другую прогу, где кавычки требуются.

прикрепляю пример excel файла и пример файла, который должен получится на выходе. может быть, кто подскажет способ сохранения?) может быть, как-то использовать питон? макросом могу наделать такие файлы на отдельные листы, а потом пачкой сохранить

Прикрепленные файлы

test_tab21.txt (970 Б)
1.xlsx (8.83 КБ)

Казанский

Пользователь

Сообщений: 8839 Регистрация: 11.01.2013

10.04.2015 16:54:38

Пробуйте - сохраняет текущий лист в ту же папку, что текущая книга, дописывая расширение ".txt".

Код

Sub Peat()
Dim i&, j&
Open ThisWorkbook.FullName & ".txt" For Output As #1
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
  j = Cells(i, Columns.Count).End(xlToLeft).Column
  If j > 1 Then
    Print #1, Join(Application.Index(Cells(i, 1).Resize(, j).Value, 1, 0))
  Else
    Print #1, Cells(i, 1)
  End If
Next
Close #1
End Sub

peat Пользователь Сообщений: 119 Регистрация: 21.04.2013	#3 13.04.2015 08:39:15 Казанский, работает, как надо, спасибо большое! Пришлите в личку какой-нибудь номер мобилы (с оператором), я вас отблагодарю.