How to open Excel file from PowerPoint?

Office XP

From a macro in PowerPoint, I open an Excel file I want to work with. I use:

Excel.Workbooks.Open FileName:= _
"C:\Whatever.xls"
Excel.Application.Visible = True

Excel and the file open, but I don't have access to my Excel addins. Their
commands no longer appear in the Tools menu. (For example, Bovey's
CodeCleaner.) However, the addins show as installed and loaded.

How can I open the Excel file from PowerPoint with addins intact?

Is there anything else I should know about opening Excel from PowerPoint?

Thank you.

I think you have to load them all manually when using automation, so you
need to open them as any other Excel file.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Bob H" <nobodyspecial@nowhereintheworld.com> wrote in message
news:vj1Ce.84678$Tt.6002@bignews3.bellsouth.net...
> Office XP
>
> From a macro in PowerPoint, I open an Excel file I want to work with. I
use:
>
> Excel.Workbooks.Open FileName:= _
> "C:\Whatever.xls"
> Excel.Application.Visible = True
>
> Excel and the file open, but I don't have access to my Excel addins. Their
> commands no longer appear in the Tools menu. (For example, Bovey's
> CodeCleaner.) However, the addins show as installed and loaded.
>
> How can I open the Excel file from PowerPoint with addins intact?
>
> Is there anything else I should know about opening Excel from PowerPoint?
>
> Thank you.
>
>
>

Yes

This was suggested by KeepItCool and should work:

code from KeepItCool (Oct 21, 2004)
Sub LoadXLwithAddins()
Dim xl As Object
Dim ai As Object

Set xl = CreateObject("Excel.Application")

For Each ai In Application.AddIns
If ai.Installed Then
xl.Workbooks.Open(ai.FullName).RunAutoMacros 1
End If
Next

xl.Visible = True
Set xl = Nothing
End Sub

--
Regards Ron de Bruin
http://www.rondebruin.nl


"Bob Phillips" <bob.phillips@notheretiscali.co.uk> wrote in message news:eEE8zjdiFHA.3448@TK2MSFTNGP12.phx.gbl...
>I think you have to load them all manually when using automation, so you
> need to open them as any other Excel file.
>
> --
>
> HTH
>
> RP
> (remove nothere from the email address if mailing direct)
>
>
> "Bob H" <nobodyspecial@nowhereintheworld.com> wrote in message
> news:vj1Ce.84678$Tt.6002@bignews3.bellsouth.net...
>> Office XP
>>
>> From a macro in PowerPoint, I open an Excel file I want to work with. I
> use:
>>
>> Excel.Workbooks.Open FileName:= _
>> "C:\Whatever.xls"
>> Excel.Application.Visible = True
>>
>> Excel and the file open, but I don't have access to my Excel addins. Their
>> commands no longer appear in the Tools menu. (For example, Bovey's
>> CodeCleaner.) However, the addins show as installed and loaded.
>>
>> How can I open the Excel file from PowerPoint with addins intact?
>>
>> Is there anything else I should know about opening Excel from PowerPoint?
>>
>> Thank you.
>>
>>
>>
>
>

Thanks Ron (and KeepItCool).

It choked several times when I first ran it. I changed
Application.Addins to xl.AddIns and it got past that line, but still errored
(1004) when trying to open the addin. I disabled the Excel 10.0 Object
library in PPT, and it continued to crash, but after a few runs, it
miraculasly started working. So, it works now is the bottom line.

Thanks again.

"Ron de Bruin" <rondebruin@kabelfoon.nl> wrote in message
news:%23X2wKxdiFHA.3056@TK2MSFTNGP10.phx.gbl...
> Yes
>
> This was suggested by KeepItCool and should work:
>
> code from KeepItCool (Oct 21, 2004)
> Sub LoadXLwithAddins()
> Dim xl As Object
> Dim ai As Object
>
> Set xl = CreateObject("Excel.Application")
>
> For Each ai In Application.AddIns
> If ai.Installed Then
> xl.Workbooks.Open(ai.FullName).RunAutoMacros 1
> End If
> Next
>
> xl.Visible = True
> Set xl = Nothing
> End Sub
>
> --
> Regards Ron de Bruin
> http://www.rondebruin.nl
>
>
> "Bob Phillips" <bob.phillips@notheretiscali.co.uk> wrote in message
> news:eEE8zjdiFHA.3448@TK2MSFTNGP12.phx.gbl...
>>I think you have to load them all manually when using automation, so you
>> need to open them as any other Excel file.
>>
>> --
>>
>> HTH
>>
>> RP
>> (remove nothere from the email address if mailing direct)
>>
>>
>> "Bob H" <nobodyspecial@nowhereintheworld.com> wrote in message
>> news:vj1Ce.84678$Tt.6002@bignews3.bellsouth.net...
>>> Office XP
>>>
>>> From a macro in PowerPoint, I open an Excel file I want to work with. I
>> use:
>>>
>>> Excel.Workbooks.Open FileName:= _
>>> "C:\Whatever.xls"
>>> Excel.Application.Visible = True
>>>
>>> Excel and the file open, but I don't have access to my Excel addins.
>>> Their
>>> commands no longer appear in the Tools menu. (For example, Bovey's
>>> CodeCleaner.) However, the addins show as installed and loaded.
>>>
>>> How can I open the Excel file from PowerPoint with addins intact?
>>>
>>> Is there anything else I should know about opening Excel from
>>> PowerPoint?
>>>
>>> Thank you.
>>>
>>>
>>>
>>
>>
>
>

I think that is what I told you to do.

--
HTH

Bob Phillips

"Bob H" <nobodyspecial@nowhereintheworld.com> wrote in message
news:J_eCe.42675$ag7.42317@bignews4.bellsouth.net...
> Thanks Ron (and KeepItCool).
>
> It choked several times when I first ran it. I changed
> Application.Addins to xl.AddIns and it got past that line, but still
errored
> (1004) when trying to open the addin. I disabled the Excel 10.0 Object
> library in PPT, and it continued to crash, but after a few runs, it
> miraculasly started working. So, it works now is the bottom line.
>
> Thanks again.
>
> "Ron de Bruin" <rondebruin@kabelfoon.nl> wrote in message
> news:%23X2wKxdiFHA.3056@TK2MSFTNGP10.phx.gbl...
> > Yes
> >
> > This was suggested by KeepItCool and should work:
> >
> > code from KeepItCool (Oct 21, 2004)
> > Sub LoadXLwithAddins()
> > Dim xl As Object
> > Dim ai As Object
> >
> > Set xl = CreateObject("Excel.Application")
> >
> > For Each ai In Application.AddIns
> > If ai.Installed Then
> > xl.Workbooks.Open(ai.FullName).RunAutoMacros 1
> > End If
> > Next
> >
> > xl.Visible = True
> > Set xl = Nothing
> > End Sub
> >
> > --
> > Regards Ron de Bruin
> > http://www.rondebruin.nl
> >
> >
> > "Bob Phillips" <bob.phillips@notheretiscali.co.uk> wrote in message
> > news:eEE8zjdiFHA.3448@TK2MSFTNGP12.phx.gbl...
> >>I think you have to load them all manually when using automation, so you
> >> need to open them as any other Excel file.
> >>
> >> --
> >>
> >> HTH
> >>
> >> RP
> >> (remove nothere from the email address if mailing direct)
> >>
> >>
> >> "Bob H" <nobodyspecial@nowhereintheworld.com> wrote in message
> >> news:vj1Ce.84678$Tt.6002@bignews3.bellsouth.net...
> >>> Office XP
> >>>
> >>> From a macro in PowerPoint, I open an Excel file I want to work with.
I
> >> use:
> >>>
> >>> Excel.Workbooks.Open FileName:= _
> >>> "C:\Whatever.xls"
> >>> Excel.Application.Visible = True
> >>>
> >>> Excel and the file open, but I don't have access to my Excel addins.
> >>> Their
> >>> commands no longer appear in the Tools menu. (For example, Bovey's
> >>> CodeCleaner.) However, the addins show as installed and loaded.
> >>>
> >>> How can I open the Excel file from PowerPoint with addins intact?
> >>>
> >>> Is there anything else I should know about opening Excel from
> >>> PowerPoint?
> >>>
> >>> Thank you.
> >>>
> >>>
> >>>
> >>
> >>
> >
> >
>
>
>
>
>
>