Модераторы: mihanik
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Запись в текстовый файл, Excel 
V
    Опции темы
olga90
Дата 21.3.2008, 10:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
хочу записать значения в текстовый файл

Код

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim fso As New FileSystemObject
Dim ts As textstream
Dim line As String
Dim i As Long

Set fso = CreateObject("scripting.filesystemobject")
Set ts = fso.opentextfile("c:\var.txt", ForWriting)

With ts
    Do While Not .atendofstream
        .WriteLine y2
        .WriteLine y3
        .WriteLine y4
        .WriteLine y5
        .WriteLine y6
        .WriteLine y7
    Loop
    .Close
End With
End Sub



выдается ошибка на Do While Not .atendofstream

Цитата

Bad File Mode
PM MAIL   Вверх
LOPUH
Дата 21.3.2008, 13:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Растение
*


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

Репутация: 3
Всего: 4
Код

Option Explicit


Sub Example()
Dim fs As Object, a As Object
Dim varData As Variant, i As Variant
varData = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9)

Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\testfile.txt", True)
    For Each i In varData
        a.WriteLine (i)
    Next i
a.Close
End Sub

 Вот наваял.. вроде работает.. Если файла не существует,то он создается , старый переписывается..
Или тебе нужно значения к старым дописывать?

Это сообщение отредактировал(а) LOPUH - 21.3.2008, 13:22
PM MAIL   Вверх
Akina
Дата 21.3.2008, 13:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454
Цитата(olga90 @  21.3.2008,  11:15 Найти цитируемый пост)
выдается ошибка на Do While Not .atendofstream

Ну правильно - какой может быть конец потока у файла, открытого на ЗАПИСЬ???


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
olga90
Дата 21.3.2008, 13:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
а как правильно тогда нужно?
PM MAIL   Вверх
Akina
Дата 21.3.2008, 15:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454
Цитата(olga90 @  21.3.2008,  14:55 Найти цитируемый пост)
а как правильно 

Какой у тебя критерий окончания записи? Когда все данные записаны. Следовательно, проверять-то ничего не требуется. То есть из твоего кода убираем цикл Do-Loop (удаляем строки номер 11 и 18) - и остается нормальный рабочий код.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
mihanik
Дата 5.4.2008, 13:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 9
Всего: 109
Помечаем решённым



--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Программирование, связанное с MS Office"
mihanik staruha

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


  • Несанкционированная реклама на форуме запрещена
  • Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль "Помогите!" таковым не является.
  • Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
  • Оставляйте свои записи в "Книге отзывов о работе администрации"
  • А вот тут лежит FAQ нашего подраздела

Если Вам понравилась атмосфера форума, заходите к нам чаще!
С уважением mihanik и staruha.

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

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0463 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.