Excel, запись в TXT / Ошибка 54

[AlexG]

Скромный код который переносит значения столбца в TXT

Код: Выделить всё

iLastStroka = Range("A1").End(xlDown).Row
    Open "D:\3_Per\1.txt" For Output As #1
        For i = 1 To iLastStroka
                data = Cells(i, 1).Value
                Print #1, data
        Next i
    Close #1

.......но на Print #1, data идет ошибка Bad file mode (Error 54).

help по ошибке "A Print # statement specifies a file opened for an access mode other than Output or Append."

В чем ошибка то?

[alibek]

data = Cells(i, 1).Text
или
Print #1, CStr(data)

[AlexG]

и то и другое опять дает ошибку 54....

Да и в data - железно стринг идет....смотрел пошагово.

[RayShade]

Я бы попробовал закрывать файл перед открытием...

[AlexG]

Я бы попробовал закрывать файл перед открытием...

точно тут проблема....

Сам новый txt создавал вот так:

Код: Выделить всё

Workbooks.Add
    Path_Name = Path_BaseBook & "" & "1.txt"
    ActiveWorkbook.SaveAs Filename:= _
    Path_Name, FileFormat:=xlText, CreateBackup:=False
    ActiveWorkbook.Close SaveChanges:=True

Получается, что после последней инструкции 1.txt остается открытым...

[RayShade]

Хм. Это странный код. Получается что ты, создаешь файл, сохраняешь в него данные а потом перезатираешь.

Может стоит просто сделать

Код: Выделить всё

Path_Name = Path_BaseBook & "\" & "1.txt"
Open Path_Name for Output As #1
Close #1


И потом уже дальше?

[AlexG]

Нет....создаю новый...и потом помещаю в него данные....

Код: Выделить всё

' создаем новый txt    
    Workbooks.Add
    Path_Name = Path_BaseBook & "\" & "1.txt"
    ActiveWorkbook.SaveAs Filename:= _
    Path_Name, FileFormat:=xlText, CreateBackup:=False
    ActiveWorkbook.Close SaveChanges:=True

' заливаем  в новый txt данные с листа
iLastStroka = Range("A1").End(xlDown).Row
    Open Path_Name  For Output As #1
        For i = 1 To iLastStroka
                data = Cells(i, 1).Value
                Print #1, data
        Next i
    Close #1

Но все равно ошибка 54.

Может есть какая то другая техника порождения нового (пустого) txt?

[AlexG]

Весь прикол в том, что до отпуска этот код работал...

Что могли сделать с компом, то теперь идет сбой...?

Может какие то библиотеки?

[RayShade]

Ты не просто создаешь новый TXT. Ты в него SaveAs книгу сохраняешь.

А пустой файл делается, как я тебе написал.

Код: Выделить всё

close #1
open fname for output as #1
close #1

И вот у нас есть пустой файл в который мы можем писать что угодно.

[AlexG]

Идея ясна. Спасибо RayShade.

[AlexG]

Почему не работает такая конструкция по созданию нового txt файла:

Код: Выделить всё

Close #1
Open  "D:\1\New.txt" For Output As #1
Close #1

Пишет....ошибка 53 "Fle not found"....

[Viper]

уж не на первом ли Close #1?

[AlexG]

Да нет....
На:

Код: Выделить всё

Open  "D:\1\New.txt" For Output As #1

Даже если убрать первый Close - тот же результат.....

[AlexG]

Даже если так сделать:

Код: Выделить всё

Dim FN As Integer
FN = FreeFile
Open  "D:\1\New.txt" For Output As #FN
Close #FN

...таже ошибка.

[Viper]

Может Path Not Found? Это в случае если каталог D:\1 не существует

[AlexG]

мой настоящий код чуток не такой:

Код: Выделить всё

Dim FN As Integer
FN = FreeFile
Open Path_BaseBook & "\New.txt" For Output As #FN
Close #FN

где Path_BaseBook - путь книги из которой идет попытка создания пустого txt, так что ...сам понимаешь.....

[Viper]

Значит что-то все-таки не то в сочетании Path_BaseBook & "\New.txt".
Я у себя сию ошибку не сумел воспроизвести никакими способами...

[AlexG]

даже если сделать:
Open "c:\New.txt" For Output As #FN
..все равно таже ошибка...


Дело в другом....я думаю..в Версии сборки Office.
На другом компе идет на ура. Я уже когда мучался с кодом, где надо было сделать KILL file.....

На 5-ти из 8-ми компов идет нормально ....на 3-ех, хоть ты что угодно делай - не работает....

Так и с создание нового txt файла. Ладно - бум пробывать обходные пути......копировать другой txt, чистить его, блин....

[HandKot]

а антивирус (и какой если есть) на компьютере стоит,
и на тех компьютерах где запускается макрос?

[AlexG]

У нас корпоративная сеть...

Посему у всех стоит одно и тоже ...и той же версии....Касперский для Windows Workstations.

[ANDLL]

AlexG
Могу сделать простое предположение.

Open "c:\New.txt" For Output As #FN

А ты уверен, что собственно можешь создавать файлы на диске C?
Попробуй создать файл вручную, с помощью проводника.

[AlexG]

Вручную.....создается! Элементарно...

Там все проверено.......полные права доступа.....

[HandKot]

и, все-таки, попробуйте отключить Касперского
за ним такое замечалось иногда

[AlexG]

Попробывал. Причина НЕ в Касперском.

[Tatiana_K]

Стандартная excel-евская на вашем компе не работает. Лечится использованием другой библиотеки для записи файла. А вообще-то нужно переустановить винду.