перенес нажатие кнопки в один файл....вызывает ошибку не найден макрос...я так понимаю в строчке
Application.OnTime Now, "raschet"
надо указать полное имя макроса...как это сделать?

имя макроса совпадает с именем процедуры или нет?

нашел точное место ошибки...
изначално в процебдуре обработки нажатия кнопки стоит
Application.OnTime Now, "raschet"...Запускает процедуру RASCHET
В конце процедуры RASXСHET стоит
Application.OnTime Now + TimeValue("00:05:00"), "raschet()"

то есть сама процедура ссылаетс яна себя каждые пять минут...Но она выдает ошибку что не найден макрос..ЧТо делать?

без разницы..все равно не зацикливается млин

окей..

блин...сдесь лимиты по размерам стоят

а можете выслать мне ваш скрипт?

извините

спасибо конечно но что вы именно сделали и что за ошибка у меня?

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

опять та же самая проблема в другом скрипте..Уже делаю на VB 6.0..Нужно запустить мониторинг текстовика каждые 10 минут. Опять выводит ошибку в цикле

Private Sub rab()
Dim a As Integer
Dim MyFile
Dim i As Integer
Dim tS As String
Dim S As String
MyFile = FreeFile

Open (Text1(0).Text) For Input As #1
While Not EOF(1)
Line Input #1, tS
a = a + 1
Wend
Close #MyFile

Open (Text1(0).Text) For Input As #1
For i = 1 To a
Line Input #1, tS
If i >= a Then S = tS
Next i
Close #MyFile

Text2.Text = S
'soob (S)
MsgBox ("Привет")

Application.OnTime Now + TimeValue("00:10:10"), "rab"

End Sub





Private Sub Command1_Click()

rab

End Sub


Private Sub Command2_Click(Index As Integer)
CommonDialog1(Index).Filter = "(*.txt)| *.txt" CommonDialog1(Index).ShowOpen
If CommonDialog1(Index).FileName = "" Then
MsgBox "ФАйл не найден! "
CommonDialog1(Index).FileName = "C:\1.txt"
Else
a = CommonDialog1(Index).FileName Text1(Index).Text = a
End If
End Sub

Помогите пожалуста