Boa tarde.
Depois de fazer as atualizações mais recentes, o código abaixo deixou de funcionar mas apenas para quem tem o Windows 11 instalado.
Todos os utilizadores estão a utilizar o Office 365.
O erro acontece ao abrir a conexão.
Alguém sabe como resolver?
strFile = ThisWorkbook.FullName
strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strFile & ";Extended Properties=""Excel 12.0;HDR=Yes;IMEX=1;"";"
Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
cn.CursorLocation = adUseClient
cn.Open strCon
O erro acontece na ultima linha, ou seja, não consegue fazer a conexão.
Quem está com o Windows10 funciona sem problema.
Postado : 20/10/2022 6:20 pm