Hello,

I have an excel addin (.xla) file under excel startup folder (ie,
\office11\startup), where I have defined App_WorkbookActivate event.
This macro executes fine when I open the excel file from explorer. But
when I open the file from automation, it does not execute.
The code is as follows,

Application.EnableEvent(True)
ActiveWorkbook = AllWorkbooks.Open("filename")
ActiveWorkbook.RunAutoMacros(3)

Any suggestions would help!

Thankyou.

Application.EnableEvent(True)
Application.EnableEventS=true


Here is one I use with a double_click event to goto a workbook whose name is
typed in a cell.

Sub GetWorkbook()
If ActiveCell.Value = "" Then Exit Sub
workbookname = ActiveCell.Value
On Error GoTo OpenWorkbook
Windows(workbookname & ".xls").Activate
Exit Sub
OpenWorkbook:
Workbooks.Open(workbookname & ".xls").RunAutoMacros xlAutoOpen
End Sub
--
Don Guillett
SalesAid Software

wrote in message
ups.com...
Hello,

I have an excel addin (.xla) file under excel startup folder (ie,
\office11\startup), where I have defined App_WorkbookActivate event.
This macro executes fine when I open the excel file from explorer. But
when I open the file from automation, it does not execute.
The code is as follows,

Application.EnableEvent(True)
ActiveWorkbook = AllWorkbooks.Open("filename")
ActiveWorkbook.RunAutoMacros(3)

Any suggestions would help!

Thankyou.

Don Guillett wrote:
Application.EnableEvent(True)
Application.EnableEventS=true


Here is one I use with a double_click event to goto a workbook whose name is
typed in a cell.

Sub GetWorkbook()
If ActiveCell.Value = "" Then Exit Sub
workbookname = ActiveCell.Value
On Error GoTo OpenWorkbook
Windows(workbookname & ".xls").Activate
Exit Sub
OpenWorkbook:
Workbooks.Open(workbookname & ".xls").RunAutoMacros xlAutoOpen
End Sub
--
Don Guillett
SalesAid Software

wrote in message
ups.com...
Hello,

I have an excel addin (.xla) file under excel startup folder (ie,
\office11\startup), where I have defined App_WorkbookActivate event.
This macro executes fine when I open the excel file from explorer. But
when I open the file from automation, it does not execute.
The code is as follows,

Application.EnableEvent(True)
ActiveWorkbook = AllWorkbooks.Open("filename")
ActiveWorkbook.RunAutoMacros(3)

Any suggestions would help!

Thankyou.


Thanks for your reply.
The code looks similar, except for
Windows(workbookname & ".xls").Activate
What does the above line of code do?
I am writing in c++ and I am not sure what is the code equivalent to
the above in c++?
I understand Workbook activate is executed when workopen is opened.

wrote:
Don Guillett wrote:
Application.EnableEvent(True)
Application.EnableEventS=true


Here is one I use with a double_click event to goto a workbook whose name is
typed in a cell.

Sub GetWorkbook()
If ActiveCell.Value = "" Then Exit Sub
workbookname = ActiveCell.Value
On Error GoTo OpenWorkbook
Windows(workbookname & ".xls").Activate
Exit Sub
OpenWorkbook:
Workbooks.Open(workbookname & ".xls").RunAutoMacros xlAutoOpen
End Sub
--
Don Guillett
SalesAid Software

wrote in message
ups.com...
Hello,

I have an excel addin (.xla) file under excel startup folder (ie,
\office11\startup), where I have defined App_WorkbookActivate event.
This macro executes fine when I open the excel file from explorer. But
when I open the file from automation, it does not execute.
The code is as follows,

Application.EnableEvent(True)
ActiveWorkbook = AllWorkbooks.Open("filename")
ActiveWorkbook.RunAutoMacros(3)

Any suggestions would help!

Thankyou.


Thanks for your reply.
The code looks similar, except for
Windows(workbookname & ".xls").Activate
What does the above line of code do?
I am writing in c++ and I am not sure what is the code equivalent to
the above in c++?
I understand Workbook activate is executed when workopen is opened.

I am sorry, I did have EnableEvents(True) in my code, it was a typo.
And I am coding in c++, so ActiveWorkbook is a object variable in my
code. It has nothing to do with the predefined reference.
The macro itself that I have defined in the xla file is as follows,

Private Sub App_WorkbookActivate(ByVal Wb As Workbook)

Application.SendKeys ("%C")
Application.Dialogs(xlDialogPrintPreview).Show

Dim currentWindow As Window
For Each currentWindow In Wb.Windows
currentWindow.View = xlPageBreakPreview
Next currentWindow

End Sub

The xla file is in the excel start up folder, so it gets executed when
I open the file from explorer. However, when I try to open the file
from automation, it does not execute the activate event.

I don't do C++. This is visual basic for applications VBA

--
Don Guillett
SalesAid Software

wrote in message
ups.com...

Don Guillett wrote:
Application.EnableEvent(True)
Application.EnableEventS=true


Here is one I use with a double_click event to goto a workbook whose name
is
typed in a cell.

Sub GetWorkbook()
If ActiveCell.Value = "" Then Exit Sub
workbookname = ActiveCell.Value
On Error GoTo OpenWorkbook
Windows(workbookname & ".xls").Activate
Exit Sub
OpenWorkbook:
Workbooks.Open(workbookname & ".xls").RunAutoMacros xlAutoOpen
End Sub
--
Don Guillett
SalesAid Software

wrote in message
ups.com...
Hello,

I have an excel addin (.xla) file under excel startup folder (ie,
\office11\startup), where I have defined App_WorkbookActivate event.
This macro executes fine when I open the excel file from explorer. But
when I open the file from automation, it does not execute.
The code is as follows,

Application.EnableEvent(True)
ActiveWorkbook = AllWorkbooks.Open("filename")
ActiveWorkbook.RunAutoMacros(3)

Any suggestions would help!

Thankyou.


Thanks for your reply.
The code looks similar, except for
Windows(workbookname & ".xls").Activate
What does the above line of code do?
I am writing in c++ and I am not sure what is the code equivalent to
the above in c++?
I understand Workbook activate is executed when workopen is opened.

I see your deeply engaged with Don in some heavy duty topics, but just for
interest, Addins and files in the xlStart directory are not loaded when Excel
is started programmatically.

--
Regards,
Tom Ogilvy





" wrote:


Don Guillett wrote:
Application.EnableEvent(True)
Application.EnableEventS=true


Here is one I use with a double_click event to goto a workbook whose name is
typed in a cell.

Sub GetWorkbook()
If ActiveCell.Value = "" Then Exit Sub
workbookname = ActiveCell.Value
On Error GoTo OpenWorkbook
Windows(workbookname & ".xls").Activate
Exit Sub
OpenWorkbook:
Workbooks.Open(workbookname & ".xls").RunAutoMacros xlAutoOpen
End Sub
--
Don Guillett
SalesAid Software

wrote in message
ups.com...
Hello,

I have an excel addin (.xla) file under excel startup folder (ie,
\office11\startup), where I have defined App_WorkbookActivate event.
This macro executes fine when I open the excel file from explorer. But
when I open the file from automation, it does not execute.
The code is as follows,

Application.EnableEvent(True)
ActiveWorkbook = AllWorkbooks.Open("filename")
ActiveWorkbook.RunAutoMacros(3)

Any suggestions would help!

Thankyou.


Thanks for your reply.
The code looks similar, except for
Windows(workbookname & ".xls").Activate
What does the above line of code do?
I am writing in c++ and I am not sure what is the code equivalent to
the above in c++?
I understand Workbook activate is executed when workopen is opened.

Thanks.
Is there any way I can have this macro execute when excel is started
programatically?


Tom Ogilvy wrote:
I see your deeply engaged with Don in some heavy duty topics, but just for
interest, Addins and files in the xlStart directory are not loaded when Excel
is started programmatically.

--
Regards,
Tom Ogilvy





" wrote:


Don Guillett wrote:
Application.EnableEvent(True)
Application.EnableEventS=true


Here is one I use with a double_click event to goto a workbook whose name is
typed in a cell.

Sub GetWorkbook()
If ActiveCell.Value = "" Then Exit Sub
workbookname = ActiveCell.Value
On Error GoTo OpenWorkbook
Windows(workbookname & ".xls").Activate
Exit Sub
OpenWorkbook:
Workbooks.Open(workbookname & ".xls").RunAutoMacros xlAutoOpen
End Sub
--
Don Guillett
SalesAid Software

wrote in message
ups.com...
Hello,

I have an excel addin (.xla) file under excel startup folder (ie,
\office11\startup), where I have defined App_WorkbookActivate event.
This macro executes fine when I open the excel file from explorer. But
when I open the file from automation, it does not execute.
The code is as follows,

Application.EnableEvent(True)
ActiveWorkbook = AllWorkbooks.Open("filename")
ActiveWorkbook.RunAutoMacros(3)

Any suggestions would help!

Thankyou.


Thanks for your reply.
The code looks similar, except for
Windows(workbookname & ".xls").Activate
What does the above line of code do?
I am writing in c++ and I am not sure what is the code equivalent to
the above in c++?
I understand Workbook activate is executed when workopen is opened.

Sure, in the same code that opens the workbook, open the addin as well.

As an alternative, you can load it as an addin, but opening it should have
the same effect.

--
Regards,
Tom Ogilvy


"ksr" wrote:

Thanks.
Is there any way I can have this macro execute when excel is started
programatically?


Tom Ogilvy wrote:
I see your deeply engaged with Don in some heavy duty topics, but just for
interest, Addins and files in the xlStart directory are not loaded when Excel
is started programmatically.

--
Regards,
Tom Ogilvy





" wrote:


Don Guillett wrote:
Application.EnableEvent(True)
Application.EnableEventS=true


Here is one I use with a double_click event to goto a workbook whose name is
typed in a cell.

Sub GetWorkbook()
If ActiveCell.Value = "" Then Exit Sub
workbookname = ActiveCell.Value
On Error GoTo OpenWorkbook
Windows(workbookname & ".xls").Activate
Exit Sub
OpenWorkbook:
Workbooks.Open(workbookname & ".xls").RunAutoMacros xlAutoOpen
End Sub
--
Don Guillett
SalesAid Software

wrote in message
ups.com...
Hello,

I have an excel addin (.xla) file under excel startup folder (ie,
\office11\startup), where I have defined App_WorkbookActivate event.
This macro executes fine when I open the excel file from explorer. But
when I open the file from automation, it does not execute.
The code is as follows,

Application.EnableEvent(True)
ActiveWorkbook = AllWorkbooks.Open("filename")
ActiveWorkbook.RunAutoMacros(3)

Any suggestions would help!

Thankyou.


Thanks for your reply.
The code looks similar, except for
Windows(workbookname & ".xls").Activate
What does the above line of code do?
I am writing in c++ and I am not sure what is the code equivalent to
the above in c++?
I understand Workbook activate is executed when workopen is opened.

Tom, please feel free to step in and help the OP

--
Don Guillett
SalesAid Software

"Tom Ogilvy" wrote in message
...
I see your deeply engaged with Don in some heavy duty topics, but just for
interest, Addins and files in the xlStart directory are not loaded when
Excel
is started programmatically.

--
Regards,
Tom Ogilvy





" wrote:


Don Guillett wrote:
Application.EnableEvent(True)
Application.EnableEventS=true


Here is one I use with a double_click event to goto a workbook whose
name is
typed in a cell.

Sub GetWorkbook()
If ActiveCell.Value = "" Then Exit Sub
workbookname = ActiveCell.Value
On Error GoTo OpenWorkbook
Windows(workbookname & ".xls").Activate
Exit Sub
OpenWorkbook:
Workbooks.Open(workbookname & ".xls").RunAutoMacros xlAutoOpen
End Sub
--
Don Guillett
SalesAid Software

wrote in message
ups.com...
Hello,

I have an excel addin (.xla) file under excel startup folder (ie,
\office11\startup), where I have defined App_WorkbookActivate event.
This macro executes fine when I open the excel file from explorer.
But
when I open the file from automation, it does not execute.
The code is as follows,

Application.EnableEvent(True)
ActiveWorkbook = AllWorkbooks.Open("filename")
ActiveWorkbook.RunAutoMacros(3)

Any suggestions would help!

Thankyou.


Thanks for your reply.
The code looks similar, except for
Windows(workbookname & ".xls").Activate
What does the above line of code do?
I am writing in c++ and I am not sure what is the code equivalent to
the above in c++?
I understand Workbook activate is executed when workopen is opened.

Activeworkbook is a predefined reference to the workbook that is active. I
wouldn't try setting it to anything.

The fact that you show that code and say that it works in any situation
makes your whole presentation suspect.

Of course Don has already pointed out an additional offending line:
Application.EnableEvent(True)
--
Regards,
Tom Ogilvy


" wrote:

Hello,

I have an excel addin (.xla) file under excel startup folder (ie,
\office11\startup), where I have defined App_WorkbookActivate event.
This macro executes fine when I open the excel file from explorer. But
when I open the file from automation, it does not execute.
The code is as follows,

Application.EnableEvent(True)
ActiveWorkbook = AllWorkbooks.Open("filename")
ActiveWorkbook.RunAutoMacros(3)

Any suggestions would help!

Thankyou.