Сохранения диапазона в текстовый документ с расширением .SCR

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

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

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

Анна

Дата: Воскресенье, 08.12.2013, 22:07 | Сообщение № 1

Группа: Гости

Добрый вечер.
Перед мной возникла потребность сохранения диапазона в текстовый документ с расширением .SCR. Но знаний для этого не хватает, а времени в обрез.
Например у меня в ячейках S5:X2110 содержатся данные. Эти данные нужно сохранить в текстовый документ в следующем порядке:
1. данные записываются последовательно с каждой строки начиная с первого столбца, затем последующие столбцы.
2. данные каждой ячейки с новой строки
3. пустые ячейки игнорируются

Затем этот файл сохраняется с расширением .scr в той же папке, что и исходный (имя файла текущие время и дата).

Может у кого есть что-то похоже. Буду благодарна за любую помощь!

Ответить

doober

Дата: Воскресенье, 08.12.2013, 22:31 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 947

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

Замечаний: 0% ±

Excel 2010

Цитата

а времени в обрез

У меня аналогично.
[vba]

Код

      f$ = "Имя файла.SCR"
      X = Неимзвестный_Лист.Range("S5:X2110")
      Open f$ For Output As #1
      For m = 1 To UBound(X, 2)
          For n = 1 To UBound(X, 1)
              If X(n, m) <> "" Then
                  Print #1, X(n, m)
              End If

          Next
      Next
      Close #1

[/vba]