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
son olarak da aşağıdaki kodu bir deneyin isterseniz