none
Erro ao Abrir essa macro no Excel 2010 - Erro inesperado causado pelo drivers de banco de dados externo conexão RRS feed

  • Pergunta

  • 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

    terça-feira, 30 de julho de 2013 19:38