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
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
Laatst bewerkt: