помогите организовать сохранение

[Yuri_K]

Проблема следующая - я реализовал такой вот код
'''''''''''''''''''
Sub main()
tranz = 1
bbb = 0
While tranz < 6
bbb = bbb + 1
If bbb < 25 Then
On Error GoTo raz:
ChDir "d:\temp\"
tranz = 1
On Error GoTo raz:
Kill "d:\temp\trans.txt"
tranz = 2
On Error GoTo raz:
Worksheets("trans").SaveAs "d:\temp\trans.txt", FileFormat:=xlTextPrinter, CreateBackup:=False
tranz = 3
On Error GoTo raz:
ChDir "d:\temp\"
tranz = 4
On Error GoTo raz:
Kill "d:\temp\trans.xls"
tranz = 5
On Error GoTo raz:
ActiveWorkbook.SaveAs Filename:="d:\temp\trans.xls", FileFormat:=xlNormal, CreateBackup:=False
tranz = 6
label1:
End If
If bbb >= 25 Then tranz = 7
Wend
Exit Sub


raz:
Resume label1:

End Sub
''''''''''''''''''''''''''''
проблема в следующем - сохраняемым файлом пользуется еще одна программа, соответственно когда код пытается сохранить иногда возникает ошибка "файл занят другим приложением", "нет доступа к файлу" и т.п.
хотелось бы чтобы процедура сохранения осуществлялась в любом случае: нет ошибки все ок, есть ошибка ждем пока файл не освободился и пытаемся сохранить пока не сохранится. Важно чтобы не возникало сообщений на подтверждение операции и т.п.
Заранее благодарен за помощь

[doober]

Я смысла такого кода не понял,но для сохранения можно использовать тамер,например каждые 10 секунд
Если папки нет,её можно создать,зачем удалять текстовый файл
и заводить его наличие в ошибку,если можно переписать,или очищать
Многое не понятно



Sub SAVE()


Процедура сохранения книги


NextTick = Now + TimeValue("00:00:010")
Application.OnTime NextTick, "SAVE"

Процедура сохранения книги

если результат достигнут,то выход

End Sub