Soru kapalı xls dosyasından veri çekerken uyumluluk hatası

[işsiz123]

Merhabalar,
Kapalı dosyadan veri çektiğimde bazı xls dosyalarında uyumluluk hatası veriyor. Bu hatayı nasıl geçebilirim. xls Excel dosyasını açıp Dosya>Bilgi menüsünde Uyumluluk Kısmını dönüştür deyince oluyor. bunu dosyayı açmadan yapmak istiyorum.
Şimdiden Teşekkürler

Set cn = CreateObject("adodb.connection")
Set Rs = CreateObject("adodb.recordset")
cnstr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ExcelDosyaYolu & ExcelDosyaAdi & ";Extended Properties=""Excel 12.0 Macro;HDR=NO"""
cn.Open (cnstr)

Set oRS = cn.OpenSchema(adSchemaTables)
Do While Not oRS.EOF
   sSheetName = oRS.Fields("table_name").Value
   aaa = sSheetName
   oRS.MoveNext
Loop



    s1 = "[Excel 12.0 Macro;HDR=NO;Database=" & ExcelDosyaYolu & ExcelDosyaAdi & "].[" & aaa & "]"

    Sorgu = "select F1,F2,F3,F4,F5   from " & s1 & " where F5 is not null and F5 not like 'T%' and F5 not like 'Özel İşlem Açıklamam'"
Set Rs = cn.Execute(Sorgu)

 

[tukayf]

Display alerts false ekleyerek deneyebilir misiniz hocam

 

[işsiz123]

Display alerts false ekleyerek deneyebilir misiniz hocam

Teşekkürler. Application.DisplayAlerts = False olarak ekledim ancak hata devam ediyor. Dosya da maalesef özel olduğu için paylaşamıyorum.