open and close excel from word 1

[ETID]

I can't remember the code to open and close (without prompts to save) an excel xls from within a word vba sub.

anyone?

 

[JustinEzequiel]

Option Explicit

Sub test()
Dim oXL As Excel.Application
Dim oWB As Excel.Workbook
Dim sFile As String

sFile = "C:\My Documents\OT.xls"

Set oXL = CreateObject("Excel.Application&quot
Set oWB = oXL.Workbooks.Open(sFile)

' do whatever you want with the open workbook here
' ex. Debug.Print oWB.BuiltInDocumentProperties("Author&quot

oWB.Saved = True
oWB.Close
Set oWB = Nothing
Set oXL = Nothing
End Sub

 

[ETID]

Thanks much...