Importeren .CSV en scheiden in kolommen

[GByte]

Graag had ik hulp bij het volgende gehad.

Een programma produceert bijgesloten .CSV bestanden.
Graag had ik de data geïmporteerd, en de gegevens daarbij gescheiden in kolommen om het als een Excel file te saven.

Als je de file gewoon opent in Excel en op een cel gaat staan dan lijkt het alsof de data gescheiden is door tabs wanneer deze bekeken wordt boven aan de pagina in het veld.

Wie weet wat ik over het hoofd zie, maw waarom de tabs geen seperator lijken te zijn.

Bij voorbaat dank

 

[edmoor]

Dat komt omdat alles tussen dubbele aanhalingstekens staat.

Zet het csv bestand op je desktop.
Open een nieuw Excel document.
Zet daarin deze macro en voer hem uit.
Sluit dat Excel document en dubbelklik dan op het bestand GByte.csv op je desktop.

Sub GByte()
    Open Environ("Userprofile") & "\Desktop\Voorbeeld_PVdata_6.368_-10.699_SA2_crystSi_1kWp_14_20deg_168deg.csv" For Input As #1
    Open Environ("Userprofile") & "\Desktop\GByte.csv" For Output As #2
    While Not EOF(1)
        Line Input #1, rgl
        rgl = Replace(rgl, vbTab, ";")
        rgl = Replace(rgl, Chr(34), "")
        Print #2, rgl
    Wend
    Close #1
    Close #2
End Sub

 

[snb]

Gebruik na opening van het bestand:

Sub M_snb()
   Columns(1).TextToColumns , , , , 0, 0, 0, 0, 1, Chr(9)
End Sub

 

[jkpieterse]

Lees eens: https://jkp-ads.com/articles/importtextnl.asp

 

[peter59]

Hallo,

Met een optie van JKpieterse (PowerQuery) uitgevoerd.
Het geheel kan natuurlijk nog verder "opgeschoond" worden.

 

[GByte]

wat zijn de stappen

Hallo Peter,

Het resultaat is prima bruikbaar, het is me echter niet duidelijk welke stap(pen) je zet.
Geeg je bij het importeren de juiste beschijving van de seperator aan?

Mvg Martin

 

[peter59]

Hallo Martin

Dat kan maar hoeft vaak niet aangezien power query het vaak bij het goede eind heeft.
Zoals nu ook dus een tab.

 

[GByte]

Aan iedereen die hier gereageerd heeft, het is gelukt, hartelijk dank voor jullie hulp en tijd.

Het is me duidelijk dat ik even een inkijkje gekregen heb in wat voor mij de wereld van de "Hogere Excelkunde" is.