Excel CSV bestand bevat "quotes"

[Jollyjohn]

Bekijk bijlage Export naar IMF V4.xlsbBekijk bijlage Export naar IMF V4.xlsb Excel bijgevoegd.

In het aangemaakte CSV bestand bevinden zich voor sommige regeles "quotes" met als resultaat dat het bestand niet kan worden geimporteerd (andere applicatie).
Is er mogelijkheid in Excel om de "quotes" niet te plaatsen.

Voorbeeld bestand:
HDR;ORDER ;60003348;15240341;3015;16112015;39582_HF;KV Standaard 1 HF;0;15240341;16112015;38000;1000;38;50;50;2;1000;480;4;5;3;0;0;0;2;0;0;997;200;200;200;5;5;200;0,
0;0;0;0;0;0;0;0;000000;00;1,
0;0;0;0;0;0;0;0;000000;00;1,
"0;0;1;0;0;0;0;0;803,3;01;1"
0;0;0;0;0;0;0;0;000000;00;1,
0;0;0;0;1;0;0;0;000197;01;1,
0;0;0;0;0;0;0;0;0;00;1,
0;0;0;0;0;0;0;0;000000;00;1,
0;0;0;0;0;0;0;1;000000;00;1,

Het gaat in dit voorbeeld dan om de 4e regel, verschil met de andere regels is dat er een getal met een decimaal in de regel voorkomt.

Het CSV bestand wordt aangemaakt met een macro:
Sub Opslaan()
'
' Opslaan Macro
'

'
Application.ScreenUpdating = False

Sheets("Opslaan").Select
Bestand = Sheets("Opslaan").Cells(1, 1).Value

Sheets("Exportdata").Select
ActiveWorkbook.SaveAs Filename:= _
Bestand, FileFormat:=xlCSV, _
CreateBackup:=False
Sheets("Opslaan").Select

MsgBox "De gegevens zijn succesvol weggeschreven"

End Sub

 

[edmoor]

Hier is ook inzicht in het eigenlijke Excel document nodig. Plaats die er dus even bij.

 

[Jollyjohn]

Niemand een suggestie/oplossing?

 

[VenA]

Probeer deze eens.

Sub VenA()
ar = Sheets("Exportdata").Cells(1).CurrentRegion
For j = 1 To UBound(ar)
    c00 = c00 & ar(j, 1) & vbCrLf
Next j
CreateObject("scripting.filesystemobject").CreateTextFile(Sheets("Opslaan").Range("A1")).write Replace(c00, vbCrLf & ",", vbCrLf)
End Sub

 

[edmoor]

Niemand een suggestie/oplossing?

De opmerking in #2 was niet duidelijk?

 

[Jollyjohn]

@edmoor: ik kan geen opmerking #2 zien, of is dat jouw opmerking.
Ik heb een voorbeeld Excel bijgevoegd.

@VenA: bedankt voor je reactie. Ik ga het aanpassen en proberen.

Wordt vervolgd.

 

[snb]

Lossen we eenvoudig op met:

Sub M_snb()
    Sheets("exportdata").UsedRange.Copy
    
    With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
       .GetFromClipboard
       CreateObject("scripting.filesystemobject").createtextfile("G:\OF\voorbeeld_snb_009.csv").write .gettext
    End With
End Sub

Zoals hier beschreven:

http://www.snb-vba.eu/VBA_Arrays.html#L_6.15.2.3

 

[Jollyjohn]

Bedankt voor de reacties.

Beidevoorgestelde oplossingen werken!

Uiteindelijk de oplossing van VenA gekozen omdat die eenvoudig was aan te vullen met onze instellingen voor de bestandslocatie en naam.