VISUAL BASIC EXCEL 2010

GILBAPG 30/07/2014 14:20:00
#440042

Bom dia pessoal,

Estou tendo um problema pois quando trabalhava com o Excel 2007 executava conexoes para visual basic e nao tinha nenhum problema

Porém agora com o 2010 em diante, tento abrir o mesmo arquivo e nao estou conseguindo. ele me acusa um [Ô]Erro em tempo de execução 3706. Provedor nao encontrado..[Ô]

Nao sei mais o que fazer. Ja tentei pelas referências, etc mas nao estou conseguindo.

Um exemplo da compilação aonde funcionava no 2007 e nao funciona mais no 2010 é esta funçao:

Private Sub PopulaCidades()
Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim sql As String

Set conn = New ADODB.Connection
With conn
.Provider = [Ô]Microsoft.JET.OLEDB.4.0[Ô]
.ConnectionString = [Ô]Data Source=[Ô] & ThisWorkbook.FullName & [Ô];Extended Properties=Excel 8.0;[Ô]
.Open
End With

sql = [Ô]SELECT DISTINCT Cidade FROM [Fornecedores$][Ô]

Set rst = New ADODB.Recordset
With rst
.ActiveConnection = conn
.Open sql, conn, adOpenDynamic, _
adLockBatchOptimistic
End With

Do While Not rst.EOF
If Not IsNull(rst(0).Value) Then
lstCidades.AddItem rst(0).Value
End If
rst.MoveNext
Loop

[ô] Fecha o conjunto de registros.
Set rst = Nothing
[ô] Fecha a conexão.
conn.Close

End Sub


Obrigado,

Gilberto

PS: Envio um exemplo deste arquivo que abria normalmente no Excel 2007 e no 2010 tenho problema ao ativar a função de [Ô]procurar[Ô]