Skip to main content

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é comocómo 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!!

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!!

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é cómo 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...?

Origen Enlace
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!!