ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Open в VBA
20 сообщений из 20, страница 1 из 1
Open в VBA
    #34865526
alien123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alien123
Гость
Очень странная ситуация с Open.
имеем следующее

Open FileNameVar for Output #FileNum

в переменной FileNameVar формируется полное имя нового файла

при выполнении выдает ошибку File not found если такого файла нет и Bad file mode если есть.

меняю код на

Open 'C:\test.txt' for Output #FileNum

запускаю - работает, возвращаю обратно - РАБОТАЕТ!.

на следующий день опять все сначала.
...
Рейтинг: 0 / 0
12.10.2007, 15:31
| Ответить | Цитировать | Написать  
Open в VBA
    #34865537
чужие
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
чужие
Гость
alien123чужие!!!
...
Рейтинг: 0 / 0
12.10.2007, 15:35
| Ответить | Цитировать | Написать  
Open в VBA
    #34865579
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
У вас там что-то странное с одинарными кавычками.
...
Рейтинг: 0 / 0
12.10.2007, 15:47
| Ответить | Цитировать | Написать  
Open в VBA
    #34865596
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
И где "As" ? Вы вообще уверены, что показываете код, а не сон в летнюю ночь?
...
Рейтинг: 0 / 0
12.10.2007, 15:51
| Ответить | Цитировать | Написать  
Open в VBA
    #34865599
alien123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alien123
Гость
извеняюсь торопился конечно же

Open "C:\test.txt" for Output #FileNum
...
Рейтинг: 0 / 0
12.10.2007, 15:52
| Ответить | Цитировать | Написать  
Open в VBA
    #34865616
alien123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alien123
Гость
етить
и as пропустил
...
Рейтинг: 0 / 0
12.10.2007, 15:55
| Ответить | Цитировать | Написать  
Open в VBA
    #34865617
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
То, что вы показываете, не VB.
...
Рейтинг: 0 / 0
12.10.2007, 15:55
| Ответить | Цитировать | Написать  
Open в VBA
    #34865619
AndreyMp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreyMp
Участник
FileNameVar - тип какой?
И все же VladConnИ где "As" ? Вы вообще уверены, что показываете код, а не сон в летнюю ночь?
...
Рейтинг: 0 / 0
12.10.2007, 15:56
| Ответить | Цитировать | Написать  
Open в VBA
    #34865623
alien123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alien123
Гость
1. Open FileNameVar for Output as #FileNum
2. Open "C:\test.txt" for Output as #FileNum
...
Рейтинг: 0 / 0
12.10.2007, 15:57
| Ответить | Цитировать | Написать  
Open в VBA
    #34865640
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
И значение FileNum? Знак # - для double, и почему он впереди? И вообще, там требуется целое.
...
Рейтинг: 0 / 0
12.10.2007, 16:01
| Ответить | Цитировать | Написать  
Open в VBA
    #34865647
alien123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alien123
Гость
FileNameVar - String
FileNum - Integer
...
Рейтинг: 0 / 0
12.10.2007, 16:02
| Ответить | Цитировать | Написать  
Open в VBA
    #34865652
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
То, что у вас "as", а не "As", говорит, что ваш код - даже не прошел компиляцию.
...
Рейтинг: 0 / 0
12.10.2007, 16:03
| Ответить | Цитировать | Написать  
Open в VBA
    #34865666
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
Добавлю: "#" впереди - для предпроцессирования.
...
Рейтинг: 0 / 0
12.10.2007, 16:06
| Ответить | Цитировать | Написать  
Open в VBA
    #34865688
alien123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alien123
Гость
по поводу #
из примеров по VBA

Open "TESTFILE" For Input As #1

значение FileNum получаю с помощью функции FreeFile
...
Рейтинг: 0 / 0
12.10.2007, 16:10
| Ответить | Цитировать | Написать  
Open в VBA
    #34865695
alien123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alien123
Гость
ничего это не говорит
я не копировал, ручками набрал
...
Рейтинг: 0 / 0
12.10.2007, 16:11
| Ответить | Цитировать | Написать  
Open в VBA
    #34865700
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
Уберите долбанную решетку. Так вам понятно?

:0)
...
Рейтинг: 0 / 0
12.10.2007, 16:12
| Ответить | Цитировать | Написать  
Open в VBA
    #34865732
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
alien123ничего это не говорит
я не копировал, ручками набрал

Вот именно, значит и не прошел! Ручками набрать недостаточно.
...
Рейтинг: 0 / 0
12.10.2007, 16:22
| Ответить | Цитировать | Написать  
Open в VBA
    #34865794
alien123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alien123
Гость
VladConn alien123ничего это не говорит
я не копировал, ручками набрал

Вот именно, значит и не прошел! Ручками набрать недостаточно.

по поводу присутствия #

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
FreeFile Function Example
This example uses the FreeFile function to return the next available file number. Five files are opened for output within the loop, and some sample data is written to each.

Dim MyIndex, FileNumber
For MyIndex = 1 To 5    ' Loop 5 times.
    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.
Next MyIndex

если он здесь лишний хочу знать почему.


специально для вас

1. Open FileNameVar for Output Аs #FileNum
2. Open "C:\test.txt" for Output Аs #FileNum

по существу можете что-нибудь ответить
...
Рейтинг: 0 / 0
12.10.2007, 16:39
| Ответить | Цитировать | Написать  
Open в VBA
    #34865797
alien123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alien123
Гость
ну теперь на for ругнись
...
Рейтинг: 0 / 0
12.10.2007, 16:41
| Ответить | Цитировать | Написать  
Open в VBA
    #34866291
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
Проверь permissions и попробуй без #. А ругаться нечего: тебе простой стэйтмент понадобилось несколько раз печатать, все никак без ошибок не выходит. Один маленький стэйтмент. Так, улыбаюсь. Я же рисовал смайлик.

Насчет решетки: я не знаю, может и не она виновата, но я бы ее убрал, т.к. нигде в Help я не нашел объяснения, с чего вдруг она стоит впереди переменной. Может, это такой изврат исключительно дле Open, но и это нигде не указано. Может и поможет. Но у тебя возможны проблемы, завязанные на код, тобой не показанный. Ты и показанный код брал не из листинга, а печатал как Б-г на душу положит. Но это так, не в порядке критики, это твое право, а просто в контексте.

Скорее всего, проблема в каком-то другом коде и/или в правах и/или тебе там этот файл надо закрывать, код не закрывает, пытается опять открыть. Что-то такое, ну, предполагаю.

Попробуй, если проблема останется, FSO.

Дай знать.
...
Рейтинг: 0 / 0
12.10.2007, 21:04
| Ответить | Цитировать | Написать  
20 сообщений из 20, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Open в VBA
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&gotonew=1&tid=2163264]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 54ms
get topic data:
 9ms
get first new msg:
 6ms
get forum data:
 2ms
get page messages:
 56ms
get tp. blocked users:
 1ms
others: 252ms
total:  410ms
созд. / загр.: 410ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]