Hello,

I am trying to put my Excel templates on a menu in Word along with my Word
templates, hoping that I can create a new spreadsheet based on my Excel
template. I have these two macros which I have tried with no luck:

Sub Tryit()

Dim xlApp As Object
Dim xlWB As Object
Dim xlWS As Object
Dim cRows As Long
Dim i As Long
Set xlApp = CreateObject("Excel.Application")
Set xlWB = xlApp.Workbooks.Add("C:\Program Files\Microsoft
Office\Templates\Timetable\Rule16 fed.xlt")
Set xlWS = xlWB.Worksheets(1)

End Sub

Sub tryitagain()

Dim xlWB As Object
Dim xlWS As Object
Dim cRows As Long
Dim i As Long
Set xlApp = CreateObject("Excel.Application")
Set xlWB = xlApp.Workbooks.Add(Template:="C:\Program Files\Microsoft
Office\Templates\Timetable\Rule16 fed.xlt")
Set xlWS = xlWB.Worksheets(1)

End Sub

I'm using Word and Excel 2003. Can anyone help me? Thanks for your time.

Hi Angie

Probabli Excel is open, but invisible.

Try to include the followin statement:

xlApp.Visible = True

Bye

Joe

"Angie M." escreveu na mensagem
...
Hello,

I am trying to put my Excel templates on a menu in Word along with my Word
templates, hoping that I can create a new spreadsheet based on my Excel
template. I have these two macros which I have tried with no luck:

Sub Tryit()

Dim xlApp As Object
Dim xlWB As Object
Dim xlWS As Object
Dim cRows As Long
Dim i As Long
Set xlApp = CreateObject("Excel.Application")
Set xlWB = xlApp.Workbooks.Add("C:\Program Files\Microsoft
Office\Templates\Timetable\Rule16 fed.xlt")
Set xlWS = xlWB.Worksheets(1)

End Sub

Sub tryitagain()

Dim xlWB As Object
Dim xlWS As Object
Dim cRows As Long
Dim i As Long
Set xlApp = CreateObject("Excel.Application")
Set xlWB = xlApp.Workbooks.Add(Template:="C:\Program Files\Microsoft
Office\Templates\Timetable\Rule16 fed.xlt")
Set xlWS = xlWB.Worksheets(1)

End Sub

I'm using Word and Excel 2003. Can anyone help me? Thanks for your time.