Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Сохранение в txt с кавычками, табуляциями и ;, не опять, а снова!) поиском пользовался!
 
Доброго времени суток.
Уважаемые форумчане, возникла проблема - есть листы (будет несколько сотен) с кавычками, пробелами, табуляциями и надо автоматом их сохранять их в тхт.

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

прикрепляю пример excel файла и пример файла, который должен получится на выходе. может быть, кто подскажет способ сохранения?) может быть, как-то использовать питон? макросом могу наделать такие файлы на отдельные листы, а потом пачкой сохранить
 
Пробуйте - сохраняет текущий лист в ту же папку, что текущая книга, дописывая расширение ".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
 
Казанский, работает, как надо, спасибо большое! Пришлите в личку какой-нибудь номер мобилы (с оператором), я вас отблагодарю.
Страницы: 1
Читают тему (гостей: 1)