Thread: Loop with Time
View Single Post
  #10   Report Post  
Posted to microsoft.public.excel.programming
Antonio Antonio is offline
external usenet poster
 
Posts: 134
Default Loop with Time

It does not reopen if you run the sub in tta.xls manually.

If you run it programatically it does reopen.

I have tried it on several computers Office 2003 and 07, all the same.

Please let me know. Thanks.

"Bob Phillips" wrote:

Well I have just tried it and it works fine for me. File B does not re-open
at all.

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Antonio" wrote in message
...
I wish I were wrong, I really wish.

Try this:

tta.xls Module1

Sub main()

Workbooks("ttb.xls").Close SaveChanges:=False

End Sub


ttb.xls ThisWorkbook

Public Sub Workbook_Open()

timer

End Sub

Public Sub Workbook_BeforeClose(cancel As Boolean)

cancel_timer


End Sub

ttb.xls Module1

Public rt As Double

Public Sub timer()

rt = Now + TimeValue("00:00:02")

Application.OnTime rt, "timer"

End Sub

Public Sub cancel_timer()


Application.OnTime rt, "timer", , False


End Sub

Do this now:

Open ttb.xls
Open tta.xls
Assing sub main() in tta.xls to a button, click on the button, it does

close
ttb.xls but....ttb.xls reopens. This is not supposed to happen and it

creates
all sorts of problems. If you know that I am wrong please correct me, you
would help me tremendously.

There is a workaround, but it is not reliable.






"Bob Phillips" wrote:

As long as you call it with exactly the same scheduled time as when you

set
it, it works fine.

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Antonio" wrote in message
...
Hi Bob,

I have done intensive work on this issue.

I know how it is suposed to be done but it just does not work. It is a
bug,
an annoying one.

Again, try closing a workbook with a live On Time procedure from a
different
workbook, if you rely on the Before_Close event it does not work. It

never
works.

You have to call the kill timer sub independently and it does not

always
work.

"Bob Phillips" wrote:

You should kill the timer. Chip Pearson explains it all on
http://www.cpearson.com/excel/ontime.htm

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Antonio" wrote in message
...
Hi Excelent,

I have been looking at your code.

Since you have worked with the Application On Time command I

wonder if
you
have run into the following difficulty:

If you try to close the workbook that has the timer running from
another
workbook, programatically, the Before_Close event will run the
Stoptimer
but
it won't kill it. It will refire again.

This has caused me ample problems.

Try it
"excelent" wrote:

Maby u can use this as inspiration

http://pmexcelent.dk/FileMaster.xls