Перетащил на С, сделал сообщение - до Open доходит и ни дальше не идет , ни на метку не перескакивает.
| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > VB6 > Выгрузка в текстовой файл из Excel |
| Автор: Гость_Дмитрий 10.8.2004, 09:42 |
| Беру практически хелповский пример 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 10.8.2004, 10:43 |
| Может дома ты работаешь на диске С ,а на работе на D? |
| Автор: Guest 10.8.2004, 11:25 |
| с правами доступа все в порядке? |
| Автор: cardinal 10.8.2004, 12:25 | ||
Попробуй что-нибудь типа:
То есть во-первых напиши где ты хочешь файл создать (в той директории где ты сидишь например, чтобы долго не искать), а во вторых если будет ошибка, то ты сможешь прочитать какая ошибка. Может просто он не ругается особо, но если Open не сработало, то на самом деле может какая-то информация появилась в Err. |
| Автор: Гость_Дмитрий 10.8.2004, 15:13 |
| С доступом в порядке. Перетащил на С, сделал сообщение - до Open доходит и ни дальше не идет , ни на метку не перескакивает. |
| Автор: Гость_Дмитрий 10.8.2004, 15:17 |
| А может есть другие способы выгрузить в файл? |
| Автор: Guest 11.8.2004, 08:34 |
| у меня тоже 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 11.8.2004, 08:36 |
| у меня тоже 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 12.8.2004, 08:11 |
| Open "TEST" & MyIndex For Output As #FileNumber ' Create file name- у тебя Open "d:\test" For Output As #FileNumber - у bankuss мне кажется тут копать надо |