Opening a Spreadsheet

[solo7]

Using the MS help site I've used the code below to create a spreadsheet, insert data into specific cells and then produce the result of a calculation on the data I've input into another specific cell :-

Function ExcelTest()
Dim xlobject As Object, xlsheet As Object

Set xlobject = CreateObject("excel.sheet.5&quot
Set xlsheet = xlobject.Application.activeworkbook.sheets("sheet1&quot

With xlsheet
.range("b3&quot.Value = CDbl(InputBox("Enter 1st Number", "Excel Example&quot)
.range("c3&quot.Value = CDbl(InputBox("Enter 2nd Number", "Excel Example&quot)
.range("d3&quot.Value = xlsheet.range("b3&quot.Value * xlsheet.range("c3&quot.Value
End With

xlsheet.Parent.SaveAs "c:\temp\xltest.xls"
xlobject.Application.Quit
Set xlobject = Nothing
End Function


My question is this:-
I don't want to create a new spreadsheet as this code is doing but I want to open a ready made spreadsheet template (c:\temp\xltest.xlt). I've toyed around with the GetObject function instead of the CreateObject function but I'm loosing the battle.
Does anyone have any suggestions??

Steady ...

 

[gerard1979]

Set appword = CreateObject("word.application&quot
appword.Visible = True
'Open the selected merge-document
appword.Documents.Open strWordDoc

I've not test it for Excel, but in Word it's working. I think it also does in Excel, strWordDoc is the full pathname of youre template "C:\test.xls" or something

If it's not working, come back to me and I will look further