ERRO EM TEMPO DE EXECUÇÃO -2147467259 (80004005)

 Tópico anterior Próximo tópico Novo tópico

ERRO EM TEMPO DE EXECUÇÃO -2147467259 (80004005)

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#485133 - 30/10/2018 13:03:33

FFABIOG
JOINVILLE
Cadast. em:Maio/2012


 Anexos estao visíveis somente para usuários registrados

Senhores,
Troquei meu HD pelo SSD, porem a minha planilha está gerando erro na conexão.
Alguém já passou por esse problema?



  Sub Conectar_Excel()
  
    Dim Caminho As String
    Dim Arquivo As String
      
    Caminho = "Z:\Documentos\Fábio\Frota 2.0\"
    Arquivo = "Base_dados.xlsx"
    
    'Define string de Conexão
    str_Conexao = _
        "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};" & _
                "DSN=TESTE_SQL;DBQ=" & Caminho & Arquivo & ";" _
                & "ReadOnly=0;DefaultDir=" & Caminho & ";" _
                & "DriverId=1046;FIL=excel 12.0;MaxBufferSize=2048;PageTimeout=5;"
    
    'Seta ADODB
    Set ado_Conexao = CreateObject("ADODB.Connection")
    
    'Abre Conexão
    ado_Conexao.Open str_Conexao
    
    
End Sub




#485134 - 30/10/2018 14:17:02

JABA
CABO FRIO
Cadast. em:Agosto/2005


Parece algo relacionado ao driver ODBC. Reinstale-o na versão que estava antes.

_______________________________________________________________________________________________

Se a alma ou espírito são imateriais, como eles fazem para se localizarem quando o corpo está em movimento?



Resposta escolhida #485135 - 30/10/2018 14:49:36

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Porque usar DSN?
Use essa connectionstring:
Provider=Microsoft.ACE.OLEDB.12.0;Data Source=c:\myFolder\myExcel2007file.xlsx;Extended Properties="Excel 12.0 Xml;HDR=YES";

_______________________________________________________________________
Gostaria de ter seu sistema Desktop "traduzido" para uma interface web? Podemos conversar...
Virei Oráculo!
The end is nigh, be ready for the nukes!


#485139 - 30/10/2018 18:00:07

FFABIOG
JOINVILLE
Cadast. em:Maio/2012


Citação:
:
Porque usar DSN?
Use essa connectionstring:
Provider=Microsoft.ACE.OLEDB.12.0;Data Source=c:myFoldermyExcel2007file.xlsx;Extended Properties="Excel 12.0 Xml;HDR=YES";


Deu certo, fiz conforme sua orientação.
Obrigado



 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por FFABIOG em 30/10/2018 18:00:34