yo estoy lleyendo txt tengo una funcion que estoy en prueba es lo mismo
necesitas 2 botones
un datagrid1
un modulo clase
y un commondialog
'------------------------------------------------------------------------
Private Sub BtnAbrir_Click()
Dim conta As Double
CommonDialogabrir.InitDir = "c:\"
CommonDialogabrir.Filter = "Archivos Excel|*.xls|Archivos Texto|*.txt"
CommonDialogabrir.ShowOpen
If Not (CommonDialogabrir.FileName = "") Then
'btnExcel.Enabled = True
End If
End Sub
Private Sub btnTXT_Click()
Dim obj As New Class1
'Set DataGrid1.DataSource = obj.LeerTxt(App.Path)
Set DataGrid1.DataSource = obj.LeerTxt(CommonDialogabrir.FileName)
'CommonDialogabrir.FileName
Set obj = Nothing
End Sub
'modulo Class1 colocar
Public Function LeerTxt(Directorio As String) As ADODB.Recordset
Directorio = "C:\Documents and Settings\fdoyevenes\Escritorio\carpeta\"
On Error GoTo ErrorFunction
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
cn.Open "DRIVER={Microsoft Text Driver (*.txt; *.csv)};" & _
"DBQ=" & Directorio & ";", "", ""
rs.Open "select * from [prueba#txt]", cn, adOpenStatic, adLockReadOnly, adCmdText
Set LeerTxt = rs
Set rs = Nothing
Set cn = Nothing
Exit Function
ErrorFunction:
MsgBox Err.Description, vbCritical
Err.Clear
End Function
'-------------------------------------------------------------------------
al final lo levanta a una datagrid el problema como le cambio mi delimitacion de ' a ; en la lectura la ruta de directorio se la puedo dar yo y el acrivo de lectura tambien es un cambio , si alguien me dice como delimitarlo seria de ayuda
tambien le puse un comond dialogo "" que aun no termino ya que tengo que usar sentencia split para colocar bien mi ruta pero es la idea
si tienen una solucion
[email protected]