Excel тупит или я?..

[Alex@ndr]

я понимаю что это тупо, но...

возьмём стандартную функцию из файла хелпа...

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

Open "TESTFILE" For Output As #1    ' Open file for output.
Write #1, "Hello World", 234    ' Write comma-delimited data.
Write #1,    ' Write blank line.

Dim MyBool, MyDate, MyNull, MyError
' Assign Boolean, Date, Null, and Error values.
MyBool = False: MyDate = #2/12/1969#: MyNull = Null
MyError = CVErr(32767)
' Boolean data is written as #TRUE# or #FALSE#. Date literals are
' written in universal date format, for example, #1994-07-13#
'represents July 13, 1994. Null data is written as #NULL#.
' Error data is written as #ERROR errorcode#.
Write #1, MyBool; " is a Boolean value"
Write #1, MyDate; " is a date"
Write #1, MyNull; " is a null value"
Write #1, MyError; " is an error value"
Close #1    ' Close file.

всё это сваливается с ошибкой... 54... бэд файл моде...
свой кусок делаю аналогично... и выходит так же... 54... бэд файл моде...

а задача банальная... в ексэле есть таблица... колонки 2,3,4 строки с 2 по ххх... заполненные данными не важно какими...

надо создать файл txt видом :
"содержимое ячейки [строка,2]" ; "содержимое ячейки [строка,3]" ; "содержимое ячейки [строка,4]"
"содержимое ячейки [строка+1,2]" ; "содержимое ячейки [строка+1,3]" ; "содержимое ячейки [строка+1,4]"
"содержимое ячейки [строка+2,2]" ; "содержимое ячейки [строка+2,3]" ; "содержимое ячейки [строка+2,4]"
"содержимое ячейки [строка+3,2]" ; "содержимое ячейки [строка+3,3]" ; "содержимое ячейки [строка+3,4]"
и т.д.

[Alex@ndr]

ошибку выкидывает в строке:
Write #1, "Hello World", 234 ' Write comma-delimited data.

и в моём коде тоже... в такой же строке сразу после
Open "TESTFILE" For Output As #1

[GSerg]

Файловая система NTFS?

[Alex@ndr]

угу

WinXP SP2 Офис2003

[GSerg]

В Моих документах попробуй TESTFILE создать.

[Alex@ndr]

есть там файлик...

кстати может быть дополнительно...
надо тогда и создать файл...

[Alex@ndr]

вот собественно моя процедура...

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

Private Sub zSave_Click()
    Dim Indx, FileNumber
    FileNumber = FreeFile    ' Get unused file
    FileName = Excel.Application.ActiveWorkbook.Path & "\ABB-Oreder.txt"
    Open FileName For Output As #FileNumber    ' Create file name.

    Columns("C:C").Select
    Selection.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate

    For Indx = 2 To ActiveCell.Row
        Print #FileNumber, Cells(Indx, 2) & ";" & Cells(Indx, 3) & ";" & Cells(Indx, 4) ' Output text.
    Next Indx
    Close #FileNumber    ' Close file.
End Sub

сваливается в строке:

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

        Print #FileNumber, Cells(Indx, 2) & ";" & Cells(Indx, 3) & ";" & Cells(Indx, 4) ' Output text.

[GSerg]

Ладно, поставим вопрос по-другому...

У тебя есть разрешение на запись файлов в тот каталог, куда ты пытаешься их записывать?

[Alex@ndr]

я администратор на компе... и файлик экселя лежит в "Мои Документы"... так что я думаю разрешение такое есть если не надо ещё каким-нибудь образом давать програмно

[Alex@ndr]

и эксель и текстстовый файлы лежат в одном и том же месте

[uhm]

Вопрос в несколько другом русле: а зачем вообще это делать? Экселевские файлы можно сохранять в .csv формате через ThisWorkbook.SaveAs format:=xlCSV

[GSerg]

Эксель делает это очень своеобразно.
Иногда ставит запятую как разделитель, иногда - текущий национальный сепаратор, причём никогда не знаешь, что он выберет.

[uhm]

Клево, не знал.

[Alex@ndr]

в том то и дело что он всякий раз на разных машинах под разными версиями офиса это делает по разному сохранение CSV...

поэтому надо я думаю сделать рукописную функцию...

[Alex@ndr]

вот собственно приложение которое я делаю...

посмотрите код... что требуется я думаю уже понятно...

[Alex@ndr]

я не прошу вас сделать файлик... скажите хотябы что не так...

[uhm]

У меня все работает. Excel 2003, Win 2000 Professional, система NTFS.

[Alex@ndr]

т.е. мой файлик работает?...

млин... а что сделать чтобы работал у всех стопудово?...
вон сразу ведь у меня хп сп2 с офисом 2003... и не работает

[Snussi]

У меня тоже все ок.
Ексел 2000

[Alex@ndr]

ещё раз поясните плиз... мой архив что я выложил у всех работает?...

или нет?... если нет... то может подскажете варианты решения проблемы...

[Alex@ndr]

всем спасибо...

самое странное что на моей машинке не работает, а на машине которой предстоит работать с этим файлом всё чики-чики...