Red de conocimiento informático - Problemas con los teléfonos móviles - VB, cómo abrir y extraer datos de archivos csv, cómo compilar el código

VB, cómo abrir y extraer datos de archivos csv, cómo compilar el código

Private Sub Command1_Click()

Dim TextLine

Dim TextString

Dim SplitStr como variante

Dim SplitStr2 como variante

Dim i As Long, j As Long

Dim s As String

Abrir App.Path &"\abc.csv " Para entrada como #1 'Abre el archivo.

Do While Not EOF(1) ' Bucle hasta el final del archivo.

Entrada de línea #1, Línea de texto ' Lee una línea de datos y asígnala a una variable.

Debug.Print TextLine ' Muestra datos en la ventana de depuración.

Si TextString = "" Entonces

TextString = TextLine

De lo contrario

TextString = TextString & ";" >

Finalizar si

Bucle

Cerrar #1 ' Cierra el archivo.

SplitStr = Split(TextString, ";")

Para i = 0 a UBound(SplitStr)

s = ""

SplitStr2 = Split(SplitStr(i), ","")

Para j = 0 Para UBound(SplitStr2)

s = s & SplitStr2(j)

Si j <> UBound(SplitStr2) Entonces s = s & ","

Siguiente j

MsgBox s

Siguiente i

Fin del subtítulo