 |
|
Модераторы: Akina |
 
|
|
Выгрузка в текстовой файл из Excel, Не работает выгрузка в текстовой файл из 
| Гость_Дмитрий |
|
|||
|
Unregistered |
Беру практически хелповский пример
FileNumber = FreeFile ' Get unused file ' number. Open "TEST" & MyIndex For Output As #FileNumber ' Create file name. Write #FileNumber, "This is a sample." ' Output text. Close #FileNumber ' Close file. Дома, на Excel 2000 работает. На работе - Excel 2002 - нет. Смотрю дебагером - доходит до строки Open и останавливается. Некоторое время думает, потом прекращает выполнение. Ни каких сообщений не выдает, файл не создает. Кто нибудь сталкивался? |
|||
|
||||
Загрузка ...
| Staruha |
|
|||
 Эксперт  Профиль Группа: Участник Клуба Сообщений: 1292 Регистрация: 1.2.2004 Где: Казань Репутация: 2 Всего: 27 |
Может дома ты работаешь на диске С ,а на работе на D?
-------------------- Возмездие настигнет |
|||
|
||||
| Guest |
|
|||
|
Unregistered |
с правами доступа все в порядке?
|
|||
|
||||
| cardinal |
|
|||
 Инженер Профиль Группа: Экс. модератор Сообщений: 6003 Регистрация: 26.3.2002 Где: Германия Репутация: 19 Всего: 99 |
Попробуй что-нибудь типа:
То есть во-первых напиши где ты хочешь файл создать (в той директории где ты сидишь например, чтобы долго не искать), а во вторых если будет ошибка, то ты сможешь прочитать какая ошибка. Может просто он не ругается особо, но если Open не сработало, то на самом деле может какая-то информация появилась в Err. -------------------- Немецкая оппозиция потребовала упростить натурализацию иммигрантов В моем блоге: Разные истории из жизни в Германии "Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино". А. и Б. Стругацкие |
|||
|
||||
| Гость_Дмитрий |
|
|||
|
Unregistered |
С доступом в порядке.
Перетащил на С, сделал сообщение - до Open доходит и ни дальше не идет , ни на метку не перескакивает.  |
|||
|
||||
| Гость_Дмитрий |
|
|||
|
Unregistered |
А может есть другие способы выгрузить в файл?
|
|||
|
||||
| Guest |
|
|||
|
Unregistered |
у меня тоже excel 2002
написал такой код: Private Sub CommandButton1_Click() Dim FileNumber As Integer On Error GoTo errReceive FileNumber = FreeFile Open "d:\test" For Output As #FileNumber Write #FileNumber, "This is a sample." Close #FileNumber Exit Sub errReceive: MsgBox Err.Description End Sub все прекрасно работает! |
|||
|
||||
| bankuss |
|
|||
 Опытный Профиль Группа: Участник Сообщений: 396 Регистрация: 26.3.2004 Репутация: 3 Всего: 4 |
у меня тоже excel 2002
написал такой код: Private Sub CommandButton1_Click() Dim FileNumber As Integer On Error GoTo errReceive FileNumber = FreeFile Open "d:\test" For Output As #FileNumber Write #FileNumber, "This is a sample." Close #FileNumber Exit Sub errReceive: MsgBox Err.Description End Sub все прекрасно работает! Извиняюсь...под гостем набрал  |
|||
|
||||
| Staruha |
|
|||
|
Эксперт Профиль Группа: Участник Клуба Сообщений: 1292 Регистрация: 1.2.2004 Где: Казань Репутация: 2 Всего: 27 |
Open "TEST" & MyIndex For Output As #FileNumber ' Create file name- у тебя Open "d:\test" For Output As #FileNumber - у bankuss
мне кажется тут копать надо -------------------- Возмездие настигнет |
|||
|
||||
|
|
| Правила форума "VB6" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina. |
| 1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | VB6 | Следующая тема » |
[ Время генерации скрипта: 0.0764 ] [ Использовано запросов: 21 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |