açtım kapattım tekrar tekrar -5 6 defa- dendim sorun çıkarmadı
dilerim işinize yarar
Dim XL As Excel.Application
Dim appExcel As excel.Application
Dim myWorkbook As excel.Workbook
Set appExcel = CreateObject("Excel.Application")
Set myWorkbook = appExcel.Workbooks.Open(DosyaAdiveYolu)
appExcel.Visible = True
AppActivate appExcel.Windows(1).Caption'<==eklendi
'myWorkbook.Activate '<==silindi
Set appExcel = Nothing
Set myWorkbook = Nothing
'2. Yöntem____________
On Error Resume Next
AppActivate "Microsoft Excel"
AppActivate "Excel"
'______________________2. Yöntem_BİTTİ