Buenas....
Desde el lunes vengo ensayando, una conexion Entre Visual Y Excel, en una pag me encontre un codigo, le corregi cosas y funciono a la perfeccion, (Gracias a informacion Que Entre Aca...
..), y ahora entento hacer otro pero mejoras; Utilizo DriverListBox,DirlistBox,FileListBox para buscar el archivo, Un TextBox para la Ruta, otro para El nombre De la Hoja y por ultimo dos mas para la celda de inicio y de fin si el usuario solo quiere ver un segmento, y un command para mostrarla. Utlizo la referencia Microsoft Activex Data Objects 2.1
El compilador muesta el error en la cadena de Conexion
. Error '-214746729 (80004005)' En Tiempo De Ejecucion: No se puedo Encontrar el Archivo ISAM Instalable.
Option Explicit
Public Ruta As String, Hoja As String, Rango As String
Private Sub CmdMostar_Click()
'Asignacion De los Valores de c/u de las variables
Ruta = TxtRuta.Text 'Sera El Path o Ruta Del Archivo A Visualizar
'Especificacion Del Rango si el usuario Solo quiere ver un segmento
Rango = Trim(TxtCelInicio.Text & ":" + TxtCelFinal.Text) 'Se concatenan La Celda Inicial y la Final con ":", Ademas _
De Verificar que no queden Espacios en blanco a los laterales de la cadena, con la funcion "Trim"
If Rango = ":" Then 'Se Compara El Rango con ":" para saber si no fue asignado
Hoja = TxtHoja.Text + "$" 'Hoja Sera la variable que hara referencia a el nombre de la hoja de excel,siempre este nombre de ir _
Acompañado con El Signo De Dolares "$"
Else 'Lo que significa Que el Rango si fue Asignado
Hoja = TxtHoja.Text & "$" & Rango 'Se Concatenan los Tres Valores...."Nombre De La Hoja", " Signo De Dolares","El Rango"
End If
Leer_Datos_De_Excel_En_Un_DataGird 'Se Llama el procedimiento que nos mostrara los Datos En la DataGrid
End Sub
Private Sub DirUbicacion_Change()
FilUbicacion.Path = DirUbicacion.Path
End Sub
Private Sub DrvUbicacion_Change()
DirUbicacion.Path = DrvUbicacion.Drive
End Sub
Private Sub FilUbicacion_Click()
If Len(FilUbicacion.Path) = 3 Then
TxtRuta.Text = (FilUbicacion.Path + FilUbicacion.FileName)
Else
TxtRuta.Text = (FilUbicacion.Path + "\" + FilUbicacion.FileName)
End If
End Sub
Sub Leer_Datos_De_Excel_En_Un_DataGird()
Dim Conexion_Excel As New ADODB.Connection, RsExcel As New ADODB.Recordset
Set Conexion_Excel = New ADODB.Connection
' EN LA SIGUIENTE LINEA MUESTRA EL ERROR
Conexion_Excel.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Ruta & ";Extented Properties=""Excel 8.0;HDR=Yes;""" ' AQUI MUESTRA EL ERROR
Set RsExcel = New ADODB.Recordset
With RsExcel
.CursorType = adOpenStatic
.LockType = adLockOptimistic
.CursorLocation = adUseClient
.Open "Select * From [" & Hoja & "]", Conexion_Excel, , , adCmdText
End With
Set DataGrid.DataSource = RsExcel
End Sub[/COLOR]
Ya He buscado En Google... y no he encotrado nada...
Gracias De Antemano
...se falta informacion me avisan...
Salu2
Clark
