(13/06/2019, 22:10)haliliyas yazdı: 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

Ben çözemedim bu kodları da kullandım bazen çalışıyor bazen çalışmıyor 
problemin proje veya kodlardan değil de bilgisayarım yada excel'den kaynaklı olduğunu düşünüyorum
bilgisayar ayarları ya da Excel ayarları konusunda tahmini çözüm bilgisi olan olursa 
yardımlarını bekliyorum Teşekkür ederim