Ofice 365' de kod çalışma sorunu hk.

[tamer42]

Merhaba,
Aşağıdaki kod ofice 2016 da sıkıntısız çalışırken,
Ofice 365' de çalıştırıldığı zaman;
RS.Open sorgu, Con, 1, 3
satırında mevcut dosyadan salt okunur olarak yeni bir dosya daha oluşturuyor, sonra salt okunur dosyayı kaptmak isterken de "Bağlantı kesildi" diye kod hata veriyor,
Bu konuda nasıl bir çözüm önerisi önerebilirsiniz

teşekkürler,
iyi akşamlar.

Sub xRapor3()
Dim Con As ADODB.Connection
Dim RS As ADODB.Recordset
Dim SH As Worksheet
Dim strConn As String
Dim myFile  As String

Set SH = Sayfa5

SH.Range("A2:K20000").ClearContents

Set Con = New ADODB.Connection

    myFile = ThisWorkbook.FullName
   
    strConn = _
        "Provider=Microsoft.ACE.OLEDB.12.0;" & _
        "User ID=Admin;" & _
        "Data Source='" & myFile & "';" & _
        "Extended Properties=""Excel 12.0;hdr=yes"""

    sorgu = _
        "Select * from [Data$] "
        
Con.Open strConn

Set RS = New ADODB.Recordset

RS.Open sorgu, Con, 1, 3

SH.Select

SH.Range("A2").CopyFromRecordset RS

Con.Close
Set Con = Nothing
Set SH = Nothing

MsgBox "İşlem Tamam", vbInformation, "Bilgi"

End Sub