Importare csv dato rigo

Hai un problema con Excel?

Nuova discussione

Importare csv dato rigo
di Mark_Sol (utente non iscritto) data: 05/12/2017 11:17:23
Buongiorno a tutti,
facendo una ricerca su google, ho trovato questa macro in una discussione del forum,
nella stessa c'è anche la soluzione per partire dal rigo numero 2 usando
Line Input #1, line ' <<<<<< linea aggiunta
io ho sostituito 1 con 40 ma non funziona.
Si può modificare per far partire l'importazione dal rigo numero 41?
Grazie

Sub Import1()
    filepath = "F:DownloadListinolistino1.csv" ' <<<<< modifica percorso
    linenumber = 1
    elementnumber = 1
    Open filepath For Input As #1 ' Open file for input
        Do While Not EOF(1) ' Loop until end of file
            linenumber = linenumber + 1
            Line Input #1, line
            arrayOfElements = Split(line, "|")

            elementnumber = 1
            For Each element In arrayOfElements
                elementnumber = elementnumber + 1
                Cells(linenumber, elementnumber).Value = element
            Next
        Loop
    Close #1 ' Close file.
End Sub

di Mister_x (utente non iscritto) data: 05/12/2017 11:54:27
ciao

senza il file GSV di prova e' difficile dirlo, comunque tento in questo modo con queste modifiche alla sub()

ciao

PS MANCANO TUUTE LE DICHIARAZIONI DELLE VARIABILI

Sub Import1()
    filepath = "F:DownloadListinolistino1.csv" ' <<<<< modifica percorso
    nriga = 1
    linenumber = 1
    elementnumber = 1
    Open filepath For Input As #1 ' Open file for input
        Do While Not EOF(1) ' Loop until end of file
            linenumber = linenumber + 1
            Line Input #1, Line
            arrayOfElements = Split(Line, "|")

            elementnumber = 1
       If linenumber > 40 Then
            For Each element In arrayOfElements
                elementnumber = elementnumber + 1
                Cells(nriga, elementnumber).Value = element
            Next
          nriga = nriga + 1
        End If
        Loop
    Close #1 ' Close file.
End Sub

di Mark_Sol (utente non iscritto) data: 05/12/2017 14:14:04
Magico.
Grazie per la soluzione.

Vuoi Approfondire?