Thread
:
personal.xls doesn't launch in COM
View Single Post
#
5
Posted to microsoft.public.excel.misc
Dave Peterson
Posts: n/a
personal.xls doesn't launch in COM
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.
wrote:
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 wrote:
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)
wrote:
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
--
Dave Peterson
Reply With Quote