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." <(E-Mail Removed)> escreveu na mensagem
news:83335893-6FDA-4464-A8E3-(E-Mail Removed)...
> 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.
>