Skip to main content
1 de 2
Cristina
  • 55
  • 1
  • 1
  • 5

copiar datos de un csv a un excel usando vba

Quiero copiar datos que tengo en un csv a un excel usando vba. Tengo el código que lo hace, pero no quiero copiar la primera fila del csv y no sé como hacerlo. Este es mi csv:

Mi csv

Y este es mi código en vba de un excel:

Private Sub Workbook_Open()
'
' Makro1 Makro
' Makro indspillet 17-04-2017 by Cristina
'

'
Dim valuesLine
    FilePath = "C:\Users\Tmicro2\Desktop\DATOS.csv"
    Open FilePath For Input As #1
    myColumn = 1
    myRow = 2
    Do While Not EOF(1)
        Line Input #1, valuesLine
        myarray = Split(valuesLine, ",")
        For i = 0 To UBound(myarray) - LBound(myarray)
            Hoja1.Cells(myRow, myColumn) = myarray(i)
            myColumn = myColumn + 1
        Next i
        myRow = myRow + 1
        myColumn = 1
    Loop
    Close #1
End Sub

Este es el resultado que obtengo:

introducir la descripción de la imagen aquí

¿Qué debo modificar del código para que no me copie los títulos de Matrícula, Grupo, Asignatura...?

Graciass!!

Cristina
  • 55
  • 1
  • 1
  • 5