çalışmanızı görmeden bir şey demem zor ama aşağıdakine benzer bir kod kullandığımda bende otomatik olarak en önde açıldı
Dim appExcel As Excel.Application
Dim myWorkbook As Excel.Workbook
Set appExcel = CreateObject("Excel.Application")
Set myWorkbook = appExcel.Workbooks.Open(dosyaAdresiveAdi)
appExcel.Visible = True
Set appExcel = Nothing
Set myWorkbook = Nothing
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
(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
(14/06/2019, 20:03)zaferlacin yazdı: [ -> ] (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
Projemde formumu açıyorum
Set myWorkbook = appExcel.Workbooks.Open(DosyaAdiveYolu)
bu satırda dosyaAdi tekrar yazıyorum
kaydedip çıkıyorum çalışıyor
programdan çıkış yapıyorum sonra tekrar açıp deniyorum çalışmıyor
dosyaadi nı tekrar yazıp kaydediyorum dosya adını değiştirmiyorum aynısını yazıyorum kaydediyorum
çalışıyor
çözemedim
aşağıdaki kod düzgün çalışıyor gibi geldi, bir kaç defa denedim.
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İ
zafer bey çalışmanızın son durumu ile ilgili bilgi verir misiniz?