VPF::Создание файлов на VBA - Форум программистов

Emmk

Дата 24.9.2011, 02:14 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 24.9.2011

Репутация: нет
Всего: нет

Доброе время суток! Скажу сразу - в программировании под офис я новичок, поэтому не судите строго за глупость вопроса.
Суть проблемы - есть код, который ищет в таблице ячейки иного типа чем General.

Код


While Cells(j, i).Value <> Empty
    While Cells(i, j).Value <> Empty
        
        If Cells(i, j).NumberFormat <> "General" Then

        End If

        i = i + 1
    Wend
    i = 1
    j = j + 1
Wend

Найденные таким образом ячейки, я хочу записывать в текстовый файл. Формата "Координаты ячейки" - "Значение ячейки".
Проблема в том, что не могу найти функцию создания текстового файла. Возможно ли это реализовать?

Либо вариант 2 - найденные ячейки писать на новый лист в подобном же формате, но как переключатся между листами вообще не представляю.
Подскажите как лучше быть. Заранее большое спасибо!

Данкинг

Дата 24.9.2011, 10:29 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 1
Всего: 130

Что, забыл уже старый добрый GwBasic и прочие QBasic'и ? smile

Код


Private Sub Кнопка0_Click()
 ccor = 10
 vval = 20
 Open "i:\Progi\prg\Delphi\cdrom\textfile.txt" For Output As #1
  Print #1, "Координаты: " + Str(ccor) + "; Значение: " + Str(vval)
 Close #1
End Sub

Добавлено через 2 минуты и 38 секунд

Цитата(Emmk @ 24.9.2011, 03:14

)

Либо вариант 2 - найденные ячейки писать на новый лист в подобном же формате, но как переключатся между листами вообще не представляю.

Код


Sheets("НовыйЛист").Select

--------------------

There's nothing left but silent epitaphs.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »