Hola Héctor, ¿Van a ser muchas consultas a la planilla? ¿No la podés pasar a un SQLite, que es muy rápido? Te paso un link que permite usar SQLite en VB: http://www.freevbcode.com/ShowCode.asp?ID=6893
Podrías convertir el XLS en un CSV e importarlo a una tabla SQLite. Hay conversores xls2csv. Saludos. Juan On jue, 2008-01-10 at 13:13 -0200, [EMAIL PROTECTED] wrote: > Buenas tardes listeros! > Estoy trabajando sobre una aplicación ya hecha, el tema es que abre un > archivo de excel así: > > Set cnn = New ADODB.Connection > cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ > "Data Source=" & Trim(Ruta) & ";" & _ > "Extended Properties=""Excel 8.0;HDR=YES; > IMEX=1;""" > > luego: > > Set rs = New ADODB.Recordset > With rs > .CursorLocation = adUseClient > .CursorType = adOpenStatic > LockType = adLockReadOnly > > End With > > y luego carga los datos: > > Set rec = cnn.OpenSchema(adSchemaTables) > While Not rec.EOF > If intContador = 1 Then > strNombreHoja = rec!TABLE_NAME > End If > > intContador = intContador + 1 > > rec.MoveNext > Wend > > finalmente: > > rs.Open "SELECT * FROM [" & strNombreHoja & "]", cnn, , , > adCmdText > > El tema es que funciona bien, pero tarda mucho, según mis jefes... > Habrá alguna forma de hacer lo mismo pero que tarde mucho menos? Ahora > tarda unos 40 segundos en recuperar los datos... > Alguna indicación? > > Héctor Daniel Correa > > > > __________________________________________________ > > > Internet gratis. Siempre. > > http://www.fullzero.com.ar -- Juan Jose Costello Levien [EMAIL PROTECTED]
