File already Open, err 55, при окрытии на запись. Как решить проблему? / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / File already Open, err 55, при окрытии на запись. Как решить проблему?

12 сообщений из 12, страница 1 из 1

File already Open, err 55, при окрытии на запись. Как решить проблему?

#35988577

DasTin

Гость

Помогите, пожалуйста, разобраться, почему при попытке открытия файла для записи макрос выдаёт ошибку "file already Open". Не могу понять почему??

'===================================
f611 = FreeFile
f611out = FreeFile

Open filepath For Input As #f611
Open Range("OutPutFile").Value For Append As #f611out ' <-- Ошибка '55' file already Open

Do Until EOF(f611)
Line Input #f611, data

If rrr Then
outdata = 1

If rrr< 5 Then
outdata = 2

ElseIf outdata = 3
Else outdata = 4

End If

Print #1, outdata

Loop

Close #f611
Close #f611out
'===================================

...

Рейтинг:

0 / 0

15.05.2009, 16:10

| Ответить | Цитировать | Написать

File already Open, err 55, при окрытии на запись. Как решить проблему?

#35988590

Konst_One

Участник

Сообщения: 12 099

Рейтинг: 0 / 0

может он блокирован другим процессом?

...

Рейтинг:

0 / 0

15.05.2009, 16:14

| Ответить | Цитировать | Написать

File already Open, err 55, при окрытии на запись. Как решить проблему?

#35988600

DasTin

Гость

Konst_One,

Вряд ли, я создавал новые файлы и подставлял в макрос, со всеми та же беда.

...

Рейтинг:

0 / 0

15.05.2009, 16:16

| Ответить | Цитировать | Написать

File already Open, err 55, при окрытии на запись. Как решить проблему?

#35988604

Konst_One

Участник

Сообщения: 12 099

Рейтинг: 0 / 0

- filepath
- Range("OutPutFile").Value

чему равны?

...

Рейтинг:

0 / 0

15.05.2009, 16:19

| Ответить | Цитировать | Написать

File already Open, err 55, при окрытии на запись. Как решить проблему?

#35988611

DasTin

Гость

Konst_One,

filepath = "C:\tmp\input.txt"
Range("OutPutFile").Value = "C:\tmp\output.txt"

...

Рейтинг:

0 / 0

15.05.2009, 16:21

| Ответить | Цитировать | Написать

File already Open, err 55, при окрытии на запись. Как решить проблему?

#35988613

Konst_One

Участник

Сообщения: 12 099

Рейтинг: 0 / 0

Код: plaintext

Open FileName For Append Access Write Shared As #handle

...

Рейтинг:

0 / 0

15.05.2009, 16:21

| Ответить | Цитировать | Написать

File already Open, err 55, при окрытии на запись. Как решить проблему?

#35988627

DasTin

Гость

Konst_One,

Код: plaintext

Open Range("OutPutFile").Value For Append Access Write Shared As #f611out

Пишет "file already Open", @

...

Рейтинг:

0 / 0

15.05.2009, 16:28

| Ответить | Цитировать | Написать

File already Open, err 55, при окрытии на запись. Как решить проблему?

#35988638

Konst_One

Участник

Сообщения: 12 099

Рейтинг: 0 / 0

значит он действительно OPEN
проверяйте ваш код, может вы в цикле одни и те же файлы открываете, но забываете их закрывать из-за ошибки например.

используйте в обработчике ошибок универсальный метод:

Код: plaintext

Close

...

Рейтинг:

0 / 0

15.05.2009, 16:31

| Ответить | Цитировать | Написать

File already Open, err 55, при окрытии на запись. Как решить проблему?

#35988699

DasTin

Гость

Konst_One,

Логическим тыком я понял, что ошибку "file already Open" он выдаёт если пытаться открывать одновременно файл и на считывание и на запись, предварительно не закрыв один из них, даже если это разные файлы.

...

Рейтинг:

0 / 0

15.05.2009, 16:49

| Ответить | Цитировать | Написать

File already Open, err 55, при окрытии на запись. Как решить проблему?

#35988728

DasTin

Гость

Есть ли какя-то функция, которая бы позволяла держать открытыми два и более файлов???

...

Рейтинг:

0 / 0

15.05.2009, 17:01

| Ответить | Цитировать | Написать

File already Open, err 55, при окрытии на запись. Как решить проблему?

#35988752

Konst_One

Участник

Сообщения: 12 099

Рейтинг: 0 / 0

вы что-то недоговариваете, должно все работать.

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.

Private Sub Command1_Click()

On Error GoTo err_debug
Dim f1 As Integer
Dim f2 As Integer
Dim Data As String

    f1 = FreeFile
    
    Open "c:\realtek.log" For Input Access Read Shared As #f1
    
    f2 = FreeFile
    Open "c:\1.txt" For Append Access Write Shared As #f2
    
    Do Until EOF(f1)
        
        Line Input #f1, Data
        
        'Debug.Print Data
        
        Print #f2, Data
        
    Loop
    
lb_out:
    Close #f2
    Close #f1
    Exit Sub
    
err_debug:
    Resume lb_out
    
End Sub

...

Рейтинг:

0 / 0

15.05.2009, 17:08

| Ответить | Цитировать | Написать

File already Open, err 55, при окрытии на запись. Как решить проблему?

#35988808

DasTin

Гость

Konst_One,

Всё правильно, моя ошибка записать код так:

Код: plaintext

1.
2.
3.
4.
5.

f611 = FreeFile             ' Value = 1
f611out = FreeFile         ' Value = 1

Open filepath For Input As #f611
Open Range("OutPutFile").Value For Append As #f611out ' <-- Ошибка '55' file already Open

А надо было правильно так:

Код: plaintext

1.
2.
3.
4.
5.

f611 = FreeFile            ' Value = 1
Open filepath For Input As #f611

f611out = FreeFile        ' Value = 2
Open Range("OutPutFile").Value For Append As #f611out ' ОК

В моём, первом, случае f611 и f611out было присвоено одно и тоже значение 1, поэтому ВБ, не давал держать открытым два файла.

Большое спасибо!!!

...

Рейтинг:

0 / 0

15.05.2009, 17:32

| Ответить | Цитировать | Написать

12 сообщений из 12, страница 1 из 1

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / File already Open, err 55, при окрытии на запись. Как решить проблему?

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&msg=35988611&tid=2161008]:	0ms
get settings:	9ms
get forum list:	21ms
check forum access:	4ms
check topic access:	4ms
track hit:	55ms
get topic data:	13ms
get forum data:	3ms
get page messages:	71ms
get tp. blocked users:	2ms
others:	196ms

total:	378ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы