Olá Galera.
Gostaria de uma ajuda de vocês, eu criei essa macro no Excel 2007 abaixo, porém ao Abrir em uma outra máquina com o Excel 2010 apresenta esse erro.
Erro em tempo de execução '-2147467259 (80004005)'
Erro inesperado causado pelo drivers de banco de dados externo conexão vba
Desde já muito obrigado.
Segue o código
Private Sub Workbook_Open()
Dim cn As ADODB.Connection
Dim rs1 As ADODB.Recordset
Dim resul As String
Dim texto 'As Variant
Dim sqlstring As String
Dim wb As Workbook
'On Error GoTo trataErro
Set cn = New ADODB.Connection
Set rs1 = New ADODB.Recordset
If wb Is Nothing Then Set wb = ThisWorkbook
If Application.Version < 12 Then
cn.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & wb.FullName & ";" & _
"Extended Properties=Excel 8.0"
Else
cn.ConnectionString = _
"Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & wb.FullName & ";" & _
"Extended Properties=Excel 8.0"
End If
Plan11.ComboBox1.Clear
sqlstring = "Select Distinct Regional "
sqlstring = sqlstring & " From [Plan1$]"
sqlstring = sqlstring & " where Regional is not null "
sqlstring = sqlstring & " order by Regional"
cn.Open
rs1.Open sqlstring, cn
Do Until rs1.EOF
Plan11.ComboBox1.AddItem rs1!Regional
rs1.MoveNext
Loop
rs1.Close
cn.Close
'Exit Sub
'trataErro:
' MsgBox "Error...", vbCritical, "Erro."
' 'Resume
End Sub