VBA Code bypass İletişim Kutusu

Question

VBA'da bir Microsoft Project dosyası açan bazı verileri alıyorum, bazı verileri çeker ve sonra dosyayı kapatır. Ne yazık ki, Proje dosyasına bazı bağlantılar ekledim ki şimdi açtığımda bazı Açılış Ekranları açılır. Kodumu düzenlemeye çalışıyorum ki kod, makroyu çalıştıran kullanıcı için Splash Ekranlarını kapatır, böylece görmez veya yanıt vermezler ve makro otomatik olarak süreç boyunca devam eder.

Bu şu anda yazılır yolu (FileToOpen dosya konumu olarak ayarlanır) kodu

'Open the MSProject file 
     Set mpApp = New MSProject.Application 
     mpApp.Visible = True 
     AppActivate "Microsoft Project" 
     mpApp.FileOpen FileToOpen 

Sonra veri toplar ve

'Close Project and select Excel as running program 
    mpApp.FileClose pjDoNotSave 
    mpApp.Quit 
    Set mpApp = Nothing 

sıçrama vardır dosyayı kapatır ekranlar arasında geçiş yapmam gerekiyor ya da Tamam düğmesini tıklayıp İptal et:

Burada

tıklamak kapatın (diğer tüm seçenekleri her zaman gri görünebilir değil):

Herhangi yardım büyük takdir !!

Teşekkürler!

Answer 1

ben this denemek: açık kaynak havuzu bilgi iletişim vba:

mpApp.FileOpen Name:=file_location_and_name, ReadOnly:=True, openPool:=pjDoNotOpenPool 

Bu Aradım sorgusu olur. 1. düzeltmeyi uyguladıktan sonra sorun devam ederse, diğer iletişim kutusu için aynı aramayı deneyin.

HTH