Conectar SQL com arquivos CSV via VBA
Enviado: 21 Jan 2020 às 18:13
Boa tarde,
Eu consegui criar um código que lê uma planilha XLSX na pasta e importa para a Pasta de Trabalho atual.
Porem quando fui trocar a extenção para . CSV ele da erro e não reconhece o banco de dados.
OBS: já tentei trocar a linha em negrito para: str_Conexao = "Driver={Microsoft Access Text Driver {*.txt, *.csv);DBQ=C:\Dropbox\Volatilidade\Cotacoes_diarias" mas também não deu certo
O Código que lê o banco de dados é:
Sub ConectaTeste()
Dim Caminho As String
Dim Arquivo As String
Caminho = "C:\Dropbox\Volatilidade\Cotacoes_diarias\"
Arquivo = Range("O1")
'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
Grato
Eu consegui criar um código que lê uma planilha XLSX na pasta e importa para a Pasta de Trabalho atual.
Porem quando fui trocar a extenção para . CSV ele da erro e não reconhece o banco de dados.
OBS: já tentei trocar a linha em negrito para: str_Conexao = "Driver={Microsoft Access Text Driver {*.txt, *.csv);DBQ=C:\Dropbox\Volatilidade\Cotacoes_diarias" mas também não deu certo
O Código que lê o banco de dados é:
Sub ConectaTeste()
Dim Caminho As String
Dim Arquivo As String
Caminho = "C:\Dropbox\Volatilidade\Cotacoes_diarias\"
Arquivo = Range("O1")
'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
Grato