Making an Excel file invisible

[azizrasul]

I have the following code. In the Else part of the code, after the wb.Activate line, what code can I place here that will assign wb.Name to the
objExcelApp object ao that when the line .Visible = False kicks in, it will make the already opened MS Excel file invisible.

    Dim strExcelFile As String
    Dim wb As Workbook
    Set objExcelApp = GetObject(, "Excel.Application")
    
    If objExcelApp Is Nothing Then
        Set objExcelApp = CreateObject("Excel.Application")
        objExcelApp.Workbooks.Open FileName:=strExcelFile
    Else
        For Each wb In objExcelApp.Workbooks
            If wb.Name = Right(strExcelFile, Len(strExcelFile) - InStrRev(strExcelFile, "\")) Then
                wb.Activate                
                Exit For
            End If
        Next wb
    End If

    With objExcelApp
        .Visible = False
        'other code
    End With

 

[azizrasul]

I understand what you are saying. Thanks for the comprehensive reply.

 

[xenou]

No problem you are welcome.

A final note, be sure to read this article to understand a common pitfall about using Excel objects in Access (not properly "chaining" or "tying" objects can lead to "auto-instantiation" and extra Excel objects floating around your computer -- hence, always being careful to use reference variables for your objects is the right practice):

Why Excel has a problem when using code in access | BTAB Development

 

[azizrasul]

Explains why I have had this problem in the past with new EXCEL lines in the TM. I always got it to work if I 'tied' the action back to the Excel object as your link is saying.