Ошибка: file already open (VBA)

@daggg · Регистрация: 29.08.2017

Author24 — интернет-сервис помощи студентам

Доброго времени суток многоуважаемые форумчане!
Я конечно понимаю уже существуют похожие темы, вроде написан код правильно и команду Close #1 предусмотрел в конце цикла, но все равно компилируется Ошибка: file already open.
В чем дело не понятно((((???

Visual Basic

Sub DoWhileDemol()
Dim LineCt As Long
Dim LineOfText As String
Open "F:\.........\text01.txt" For Input As #1
LineCt = 0
Do While Not EOF(l)
Line Input #1, LineOfText
Range("Al").Offset(LineCt, 0) = UCase(LineOfText)
LineCt = LineCt + 1
Loop
Close #1
End Sub

mobile · 13.10.2017, 00:55

Ошибка здесь: Do While Not EOF(l). Надо: Do While Not EOF(1)

@daggg · 13.10.2017, 01:30 **[ТС]**

mobile,
Do While Not EOF(l). Надо: Do While Not EOF(1) - Исправил косяк,
Но ошибка все равно никуда не пропала

shanemac51 · 13.10.2017, 06:46

может ваш файл уже открыт в другой версии вашей процедуры(без строки ckjse #1) или в блокноте
попробуйте добавить строку

Visual Basic

Sub DoWhileDemol()
Dim LineCt As Long
Dim LineOfText As String
''''''''''
reset
 
Open "F:\.........\text01.txt" For Input As #1
LineCt = 0
Do While Not EOF(l)
Line Input #1, LineOfText
Range("Al").Offset(LineCt, 0) = UCase(LineOfText)
LineCt = LineCt + 1
Loop
Close #1
End Sub

SoftIce · 13.10.2017, 07:11

Используйте функцию FreeFile

Функция FreeFile

FreeFile([RangeNumber])

Функция FreeFile используется для возвращения незанятого номера(не задействованного для открытия другого файла) файла, который можно использовать при открытии файла инструкцией Open. Рекомендуется всегда использовать эту функцию при открытии файла во избежание различных проблем
Возвращаемое значение

Возвращает значение типа Integer в диапазоне от 1 до 511, представляющее следующий номер файла, доступный для использования с инструкцией Open
Параметры

RangeNumber
Необязательный аргумент типа Variant, указывающим диапазон, из которого возвращается следующий свободный номер файла. Значение 0 (используется по умолчанию) задает возвращение номера файла из диапазона 1 – 255 включительно. Значение 1 задает возвращение номера файла из диапазона 256 – 511

Пример

Visual Basic

' Используем функцию FreeFile
' для определения следующего свободного номера файла
' В цикле последовательно открываются для вывода данных
' пять файлов, в каждый из которых записываются
' некоторые данные
Dim MyIndex, FileNumber
For MyIndex = 1 To 5 ' Выполняет цикл 5 раз
 FileNumber = FreeFile ' Определяем свободный номер файла
' Создаем файл
 Open "TEST" & MyIndex For Output As #FileNumber 
 Write #FileNumber, "Пример." ' выводим текст
 Close #FileNumber ' закрываем файл
Next MyIndex

@Burk · 13.10.2017, 08:07

daggg, не уверен, что freefile поможет. у меня открыто много файлов, фри выдает 1. Поэтому не будет проверки на уже существующий файл. Для своих программ я написал такую функцию для проверки существования файла. Sname строка с именем файла. Истина, если уже загружен, иначе Ложь

Visual Basic

Public Function IsWbExist(Sname As String) As Boolean
Dim W As Object
IsWbExist = True
On Error GoTo WbFal
Set W = Workbooks(Sname)
GoTo Final
WbFal:
IsWbExist = False
Final:
On Error GoTo 0
End Function

SoftIce · 13.10.2017, 08:13

Сообщение от Burk

фри выдает 1

Вы не о тех файлах пишите.
Речь идет только о файлах открытых инструкцией Open

@Burk · 13.10.2017, 08:14

daggg, да и открывать, если его нет, нужно без #Number. Sname без полного пути к файлу, только его имя

SoftIce · 13.10.2017, 08:20

Сообщение от Burk

открывать, если его нет, нужно без #Number

Не понял, если честно. Можете пояснить?

Добавлено через 3 минуты
Короче

Visual Basic

Sub DoWhileDemol()
Dim LineCt As Long, ff as integer
Dim LineOfText As String
ff=FreeFile
Open "F:\.........\text01.txt" For Input As #ff
LineCt = 0
Do While Not EOF(ff)
Line Input #ff, LineOfText
Range("A1").Offset(LineCt, 0) = UCase(LineOfText)
LineCt = LineCt + 1
Loop
Close #ff
End Sub

@Burk · 13.10.2017, 09:52

SoftIce, я пишу только о файлах, которые у меня открыты инструкцией Open

mobile 26815 / 14494 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	13.10.2017, 00:55	2
	Ошибка здесь: Do While Not EOF(l). Надо: Do While Not EOF(1) 0

@daggg 2 / 2 / 0 Регистрация: 29.08.2017 Сообщений: 13
	13.10.2017, 01:30 [ТС]	3
	mobile, Do While Not EOF(l). Надо: Do While Not EOF(1) - Исправил косяк, Но ошибка все равно никуда не пропала 0

SoftIce es geht mir gut 11272 / 4756 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	13.10.2017, 08:13	7
	Сообщение от Burk фри выдает 1 Вы не о тех файлах пишите. Речь идет только о файлах открытых инструкцией Open 0

@Burk 1846 / 1161 / 354 Регистрация: 11.07.2014 Сообщений: 4,102
	13.10.2017, 08:14	8
	daggg, да и открывать, если его нет, нужно без #Number. Sname без полного пути к файлу, только его имя 0

@Burk 1846 / 1161 / 354 Регистрация: 11.07.2014 Сообщений: 4,102
	13.10.2017, 09:52	10
	SoftIce, я пишу только о файлах, которые у меня открыты инструкцией Open 0