personal.xls doesn't launch in COM

[tim.leach]

I've written some could that launches excel and populates a new
worksheet using COM, Unfortunately, when I launch Excel through my COM
script, it does not open my hidded Personal.xls workbook. I need this
to open for the user so they can use macros that are stored there.

Any ideas??

TIA

Here's a snippet of my code:

Dim xlApp As Variant
Dim xlsheet As Variant

Set xlApp = CreateObject("Excel.Application")
xlApp.StatusBar = "Creating WorkSheet. Please be patient..."
xlApp.Visible = True
xlApp.Workbooks.Add
xlApp.ReferenceStyle = 2
Set xlsheet = xlApp.Workbooks(1).Worksheets(1)

 

[Dave Peterson]

This worked when I tested it using MSWord's VBA:

Dim xlApp As Variant
Dim xlsheet As Variant

Set xlApp = CreateObject("Excel.Application")
xlApp.StatusBar = "Creating WorkSheet. Please be patient..."
xlApp.Visible = True
xlApp.workbooks.Open FileName:=xlApp.StartupPath & "\" & "personal.xls"
xlApp.workbooks.Add
xlApp.ReferenceStyle = 2
Set xlsheet = xlApp.workbooks(1).Worksheets(1)

========
If your personal.xls workbook has an auto_open procedure that you need to run:

Dim xlApp As Variant
Dim xlsheet As Variant
Dim xlWkbk As Object

Set xlApp = CreateObject("Excel.Application")
xlApp.StatusBar = "Creating WorkSheet. Please be patient..."
xlApp.Visible = True
Set xlWkbk = xlApp.workbooks.Open _
(FileName:=xlApp.StartupPath & "\" & "personal.xla")
xlWkbk.RunAutoMacro 1 'xlautoopen

xlApp.workbooks.Add
xlApp.ReferenceStyle = 2
Set xlsheet = xlApp.workbooks(1).Worksheets(1)

 

[Dave Peterson]

Ps. My personal.xl* is .xla. I forgot to change the extension back to .xls in
the second example.

 

[tim.leach]

Thanks for the idea Dave. One problem I have is I can't remember how
to handle VBA methods that use ":=". I'm using COM in LotusScript.

Any ideas??

 

[Dave Peterson]

Sorry.

Just leave the keyword out (filename is the first in the list of positional
parameters):

xlApp.workbooks.Open FileName:=xlApp.StartupPath & "\" & "personal.xls"
becomes
xlApp.workbooks.Open xlApp.StartupPath & "\" & "personal.xls"

Same thing with the second example.

 

[tim.leach]

Thanks Dave,

That worked great.

Sorry.

Just leave the keyword out (filename is the first in the list of positional
parameters):

xlApp.workbooks.Open FileName:=xlApp.StartupPath & "\" & "personal.xls"
becomes
xlApp.workbooks.Open xlApp.StartupPath & "\" & "personal.xls"

Same thing with the second example.