RE:AYUDA: Importar un archivo separado por comas
Mira a ver si te sirve esto.
Es un fichero delimitado por la tacla"#", no por comas, pero solo tienes que cambiar la tecla que delimita los campos, tienes también la opación de eliminar la primera linea si se trata de los títulos de los campos.
Si tienes alguna duda me preguntas, espero que te sirva.
Private Sub crear()
l5.Caption = "GENERANDO TABLA DE TARIFAS"
Dim vt2 As Variant
Dim vi As Integer
Dim vd As Double
Dim vf As Date
Dim vs As String
Dim vr1 As Recordset
Module1.conex
cn1.Open
' DataEnvironment1.cn1.Open
vgvs = "SELECT crp,ccp,cean,cpvp,cuc,ccpa,cpp,cfd FROM tt"
Set vr1 = New Recordset
With vr1
.Source = vgvs
.ActiveConnection = cn1
.CursorType = adOpenKeyset
.CursorLocation = adUseServer
.LockType = adLockOptimistic
End With
vr1.Open Options:=adCmdText
Open vgt2 For Input As #1
Do While Not EOF(1)
vr1.AddNew
Line Input #1, vt1
vt2 = Split(vt1, "#", -1, OptionCompare = 2)
vr1.Fields(0) = vt2(0)
vs = Left(vt2(2), 10)
vr1.Fields(1) = vs
vr1.Fields(2) = vt2(3)
vd = CDec(vt2(4))
vr1.Fields(3) = vd
vi = CInt(vt2(6))
vr1.Fields(4) = vi
vi = CInt(vt2(7))
vr1.Fields(5) = vi
vs = Left(vt2(8), 25)
vr1.Fields(6) = vs
If IsDate(vt2(13)) = True Then
v