CSV bestand bevat ; ipv ,

[PatricaCalor]

Hoi,

Ik gebruik de Engelstalige versie van Excel 2010.

Ik wil een XLS bestand opslaan als CSV, maar wanneer ik het CSV bestand open in een editor zie ik als scheidingsteken staan ; ipv ,
Ik heb bij land/regio instellingen de lijstscheidingstekens veranderd van ; naar ,
Daarna de notebook opnieuw opgestart, maar het probleem blijft.

Iemand een idee?

groetjes
Patricia

 

[edmoor]

En hoe doe je dat opslaan?
Via Opslaan als of in een VBA routine?

En bij Opslaan als, welke optie gebruik je dan van deze 2?

 

[PatricaCalor]

Hoi

Ja via File -> Save As -> CSV
Alhoewel ik geen UTF-8 zie staan erbij, maar ik heb dat apart geselecteerd bij Tools -> Web Options

Groetjes
Patricia

 

[edmoor]

Dan zal je ook je Regiocode moeten veranderen.
Die puntcomma is standaard in NL voor CSV en de komma is dat voor USA.

Als je dat niet wilt is het ook eenvoudig in VBA te maken.
Dat wil ik wel voor je doen als je je document, of een relevant voorbeeld ervan, kan plaatsen.

 

[PatricaCalor]

Hoi,

In de biijlage de Excel.

Dit moet dan een csv bestand worden met de kenmerken:

1. Komma gescheiden
2. Alle velden tussen quotes, dus "Auto"
3. UTF8

Groetjes
Patricia

 

[edmoor]

Probeer deze maar eens. Het CSV bestand wordt gemaakt in de map waar je document staat:
Bekijk bijlage inlees7.xlsm

 

[PatricaCalor]

Gaat de goede kant op, alleen gaat het niet goed met de eerste kolom. Is er daarin mogelijk een teken dat niet herkend wordt?"

Ik gebruik de csv om berichten te generen in Wordpress via een plugin.

 

[edmoor]

Waar merk je dat aan?
Ik zie in het csv bestand niets speciaals:

 

[PatricaCalor]

Ik kan het zo ook niet zien, maar bij het importeren naar Wordpress, wordt het eerste veld overgeslagen.

Als ik iets simpels doe als:

"post_title","post_content"
"Hallo","Dit is een test"

Dan zie ik dat Hallo wel wordt meegenomen als titel bij een bericht in WP

 

[PatricaCalor]

Klopt het trouwens dat de csv steeds onder inlees7.csv wordt opgeslagen, ook al heb ik het bestand een nieuwe naam gegegeven? Niet dat het erg is, maar dan weet ik dat

 

[edmoor]

Ja, dat klopt. Dat kan uiteraard anders.
Welk teken verwacht WP als record scheidingsteken?

 

[PatricaCalor]

Dus als scheidingsteken inderdaad een komma en dat gaat goed bij de rest van de kolommen, alleen de eerste kolom...Ik kan mij voorstellen dat het een beetje moeilijk uitleggen is..
Ik gebruik de plugin Really Simple CSV Importer

 

[edmoor]

Ik ken dat verder niet en het bestand is m.i. in orde.
Overigens is het recordscheidingteken iets anders dan die komma.
De komma is het veldscheidingsteken.

Bij deze versie wordt ook rekening gehouden met de bestandsnaam:
Bekijk bijlage inlees7.xlsm

Je vroeg specifiek om UTF8.
Is dat wegens eventuele diacritische tekens?

Probeer wat het probleem betreft eens het volgende.
Open dat CSV bestand in Kladblok en doe dan File, Save As... en wijzig Encoding in Ansi.
Heeft WP dan nog dat probleem?

 

[PatricaCalor]

Apart, als ik de eerste kolom in de Excel verwissel met de laatste dan gaat het wel goed:

post_date post_type post_status post_content post_category post_title
23-7-2018 post draft Te koop, bouwjaar 2017, BMW 320 autos BMW 320
23-7-2018 post draft Te koop, bouwjaar 2017, BMW 520 autos BMW 520
23-7-2018 post draft Te koop, bouwjaar 2017, BMW 530 autos BMW 530

 

[edmoor]

Dat is vreemd inderdaad. Heb ik geen verklaring voor.

 

[PatricaCalor]

Het werkt in ieder geval, super bedankt!

Zijn er nog beperkingen aan het omzetten? B.v. het aantal kolommen?

 

[edmoor]

Dat is simpel. Je kan in de kode zien dat het nu hard op 6 (0-5) staat.
Dat kan je eenvoudig aanpassen. Ook kan het zo gemaakt worden dat het flexibel is.
Wat ik voor je maakte is exact volgens het voorbeeld document, voor de snelheid van gereed hebben

 

[PatricaCalor]

Hmmm. even kijken hoe ik in de code kom, ben niet zo bekend ermee.

Nogmaals bedankt!

groetjes
Patricia

 

[edmoor]

Met ALT-F11.

Bij deze de code voor flexibel aantal regels en kolommen:

Option Base 1

Private Sub btnExportToCSV_Click()
    Dim rgl() As String
    Dim fsT As Object
    Set fsT = CreateObject("ADODB.Stream")
    fsT.Type = 2
    fsT.Charset = "utf-8"
    fsT.Open
    
    naam = Left(ThisWorkbook.Name, FindFromRight(ThisWorkbook.Name, ".") - 1)

    For x = 1 To Range("A1").CurrentRegion.Rows.Count
        For y = 1 To Range("A1").CurrentRegion.Columns.Count
            ReDim Preserve rgl(y)
            rgl(y) = Chr(34) & Cells(x, y) & Chr(34)
        Next y
        fsT.WriteText Join(rgl, ",") & vbCrLf
    Next x

    fsT.SaveToFile ThisWorkbook.Path & "\" & naam & ".csv", 2
    
End Sub

Function FindFromRight(Tekst As String, Teken As String) As Long
    Dim i As Long
    
    Tekst = Trim(Tekst)
    For i = Len(Tekst) To 1 Step -1
        If Mid(Tekst, i, 1) = Teken Then
            FindFromRight = i
            Exit Function
        End If
    Next i
    FindFromRight = 0
End Function

En graag gedaan

 

[edmoor]

Voor de code in het Excel document maakt dat niks uit dus ik denk dat WP erover struikelt?
Ze kunnen door die code wel verwijderd worden of vervangen door een ander teken.
Laat het maar weten.