Дата: Воскресенье, 08.12.2013, 22:07 |
Сообщение № 1
Группа: Гости
Добрый вечер. Перед мной возникла потребность сохранения диапазона в текстовый документ с расширением .SCR. Но знаний для этого не хватает, а времени в обрез. Например у меня в ячейках S5:X2110 содержатся данные. Эти данные нужно сохранить в текстовый документ в следующем порядке: 1. данные записываются последовательно с каждой строки начиная с первого столбца, затем последующие столбцы. 2. данные каждой ячейки с новой строки 3. пустые ячейки игнорируются
Затем этот файл сохраняется с расширением .scr в той же папке, что и исходный (имя файла текущие время и дата).
Может у кого есть что-то похоже. Буду благодарна за любую помощь!
Добрый вечер. Перед мной возникла потребность сохранения диапазона в текстовый документ с расширением .SCR. Но знаний для этого не хватает, а времени в обрез. Например у меня в ячейках S5:X2110 содержатся данные. Эти данные нужно сохранить в текстовый документ в следующем порядке: 1. данные записываются последовательно с каждой строки начиная с первого столбца, затем последующие столбцы. 2. данные каждой ячейки с новой строки 3. пустые ячейки игнорируются
Затем этот файл сохраняется с расширением .scr в той же папке, что и исходный (имя файла текущие время и дата).
Может у кого есть что-то похоже. Буду благодарна за любую помощь!Анна
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]
Цитата
а времени в обрез
У меня аналогично. [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