Closing an Open Workbook

[jdlc]

I have a workbook which is already opened and I want to close it. the code that i have is (see below) is not working. Anyone can share some inputs?

Function CloseExcel(sExcelFile As String) As Integer
Dim XLapp As New Excel.Application
Dim ObjXL As Excel.Workbook
    
On Error GoTo ErrorTrap
    Set ObjXL = XLapp.Workbooks.Open(sExcelFile)
    ObjXL.Application.Visible = True
    ObjXL.Windows(1).Visible = True
    ObjXL.Close
    Set ObjXL = Nothing
    Exit Function
ErrorTrap:
    Debug.Print "(" & Err.Number & ") " & Err.Description
End Function

 

[jdlc]

what the code is doing it opening again that excel file (which is already opened) and close it. is this something about the new excel.application that i declared?

 

[vbaInet]

Look into GetObject()

 

[jdlc]

Look into GetObject()

as usual thanks for the tip boss: here is the code.

Function CloseExcel(fileName As String) As Integer
    
Dim excelObj As Object
On Error GoTo ErrorTrap
    Set excelObj = GetObject(fileName)
    excelObj.Close
    Set excelObj = Nothing
ExitTrap:
    CloseExcel = Err.Number
    Exit Function
    
ErrorTrap:
    Debug.Print "(" & Err.Number & ") " & Err.Description
    Resume ExitTrap
   
End Function

 

[vbaInet]

No problem boss.