Hola, una opcion muy simple es guardar el archivo Excel en formato CSV, lo que en tu caso crearía algo similar a esto
ABBA xxxxxxxxx;Caseros;0000;40005;SAN CRISTOBAL
ABBA xxxxxxxxx;Caseros;0000;40007;SAN CRISTOBAL
El proceso intermedio a lo que tu deseas sería un LINE INPUT para leer el Secuencial y guardarlo mas o menos así
Print #1, CHR$(34);Replace(Linea, ";"; CHR$(34) & "," & CHR$(34)); CHR$(34)
Creo que podría funcionar
Saludos
Teniendo en cuenta que el CSV viene separado por ; esta ejemplo funciona
Private Sub Command1_Click()
Open "C:\Libro1.csv" For Input As #1
Open "C:\Libro1.txt" For Output As #2
While Not EOF(1)
Line Input #1, linea
Print #2, Chr$(34) & Replace(linea, ";", Chr$(34) & "," & Chr$(34)) & Chr$(34)
Wend
Close #1, #2
End Sub
Esta conversión que indico es porque (por lo menos en mi caso) no se si siempre es así o depende de la configuracion regional, el excel me crea el CSV con campos separados por PUNTO Y COMA, y creo que lo necesitas separados con COMA y entrecomillados.
Veo que en el enlace SIGUIENTE que a puesto Raul, el ejemplo indica los valores: 2008,"E1A",MIGUEL,JORQUERA y mi excel 2003 me crea el csv como 2008;E1A;MIGUEL;JORQUERA
Reedito para confirmar esto:
Para modificar el delimitador (separador) por defecto en Excel sólo tendremos que modificar el del mismo sistema.
