Страницы: 1
RSS
Не работает чтение из txt файла
 
Здравствуйте.
Выскакивает ошибка Run-time error '62': Input past end of file
В debug жалуется на строку txt = CreateObject("scripting.filesystemobject").OpenTextFile(Filename, 1, True).ReadAll
На других 5 компьютерах все работает отлично (в разных офисах - 2003, 2007, 2010).
Проблема возникает в офисе 2003, данные в файле, с которого происходит чтение, в порядке. Изначально на этом компьютере не было блокнота, ярлык блокнота ссылался на другой ехе файл, не знаю нужен ли блокнот экселю для чтения данных из текстового файла, на всякий случай сбросил блокнот на тот комп, проблема не исчезла.
Если удалить текстовый файл ошибка остается, но, в строке из макроса включено создание файла при его отсутствии в нужной папке, на том компьютере этого не происходит.
Подскажите кто знает, в чем может быть проблема и как ее решить.
 
Попробуйте
Код
set obj=CreateObject("scripting.filesystemobject")
создастся ли объект - может библиотеки в системе не хватает.
 
berant, либо нет файла, либо он пустой. Попробуйте вставить перед этой командой
Код
MsgBox FileLen(Filename)
Если будет ошибка - нет файла, если выведет 0 - файл пустой.
 
Hugo, доступ к тому компьютеру будет только завтра, попробую. scrrun.dll файл там есть, проверял, может поврежден, как заменить scrrun.dll файл посмотрел, пара вопросов по этому - если проблема связана с этим, заменить этот файл можно же таким же файлом с моего компьютера и нет ли шансов навредить ОС манипуляциями с этим файлом? Комп нужен для работы и удален, хотелось бы обойтись без последствий и привлечения программистов.
Страницы: 1
Читают тему
Наверх