Este fórum está sendo desativado

Depois de 9 anos, este fórum será desativado. Mas calma.... estamos migrando para uma comunidade no DISCORD. Junte-se a nós.

ENTRAR PARA DISCORD

Tópicos relacionados a códigos VBA, gravação de macros, etc.
Por jfelicio1
Posts
#51854
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
long long title how many chars? lets see 123 ok more? yes 60

We have created lots of YouTube videos just so you can achieve [...]

Another post test yes yes yes or no, maybe ni? :-/

The best flat phpBB theme around. Period. Fine craftmanship and [...]

Do you need a super MOD? Well here it is. chew on this

All you need is right here. Content tag, SEO, listing, Pizza and spaghetti [...]

Lasagna on me this time ok? I got plenty of cash

this should be fantastic. but what about links,images, bbcodes etc etc? [...]

Estamos migrando para uma comunidade no Discord