Will you try it like this...
VB Code:
Public Sub Test() Dim exl As Excel.Application Dim myBook As Excel.Workbook Dim fName As String Set exl = New Excel.Application fName = exePath & "exportXL.xls" Set myBook = exl.Workbooks.Open(fName) 'stuff myBook.Save myBook.Close Set myBook = Nothing exl.Quit Set exl = Nothing End Sub




Reply With Quote