Preciso ler uma planilha de escel usando conexão odbc sem dsn.
A conexão eu já consegui fazer, veja código abaixo.
Private Sub ImportaPlanilhaExcel()
Dim Conec As New ADODB.Connection
Conec.Open "Driver={Microsoft Excel Driver (*.xls)};" & _
"DriverId=790;" & _
"DBQ=C:ATESTECusto.xls;" & _
"DefaultDir=ATESTE;"
O meu problema é abrir um recordset que me traga os dados da planilha.
Se for necessário eu envio a planilha, para quem puder me ajudar.
Estou tentando abrir o Record set pelo código abaixo, que ainda está dando erro.
Dim RS As New ADODB.Recordset
With RS
.CursorType = adOpenStatic
.CursorLocation = adUseClient
.LockType = adLockPessimistic
'Aqui falta o ".source", usei duas formas que dão erro, segue abaixo.
'.Source = "C:ATESTECusto.xls"
'.Source = "select * from Custo"
RS.Open
End With
Agradeço a atenção,
