son olarak da aşağıdaki kodu bir deneyin isterseniz

Dim appExcel As excel.Application

 Dim myWorkbook As excel.Workbook

  Set appExcel = CreateObject("Excel.Application")

    Set myWorkbook = appExcel.Workbooks.Open(DosyaAdiveYolu)

    appExcel.Visible = True

myWorkbook.Activate '<==eklendi

    Set appExcel = Nothing

    Set myWorkbook = Nothing